|
各位大神好,
敬上!
VBA入门水准。今日使用VBA运行MS SERVER的存储过程(主要是Update),运行没有报错,但是查看MS SERVER并没有成功执行(该存储在SERVER可成功执行) 。
脚本为:
Public Const strcn = "provider=sqloledb;Server=*****;Database=***;Uid=***;Password=***; data source=****,****;"
Public strsql As Variant
sub ss()
Dim i As Integer, j As Integer, m As Integer
Dim cnn As New ADODB.Connection
cnn.CommandTimeout = 500
strsql = " use **; exec dbid.shema.pro_name '***','***','***'"
cnn.Open strcn
rs.Open strsql, cnn ',1,3
end sub
这个测试在前期是能够成功执行的,可现在又闹脾气,不报错也后台也没有相应的结果。
请各位大神,诊断诊断。
谢谢! |
|