Sub OnClick(Byval Item)
Dim sCom
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Date1,Date2,Date3,Date4,Date5
Date1=HMIRuntime.Tags("高炉号").Read
Date2=HMIRuntime.Tags("趟次").Read
Date3=HMIRuntime.Tags("罐号").Read
Date4=HMIRuntime.Tags("重量").Read
Date5=HMIRuntime.Tags("编号").Read
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gaolu;Date Source=PC-201703202137\WINCC"
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=Con
conn.CursorLocation=3
'conn.Open注释
sSql="insert into 小车 VALUES('"&Date1&"','"&Date2&"','"&Date3&"','"&Date4&"','"&Date5&"');"
Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
'Set oCom.ActiveConnection=conn注释
oCom.CommandType=1
oCom.CommandText=sSql
'Set oRs=oCom.Execute注释
Set oRs=Nothing
'conn.Close注释
Set conn=Nothing
Msgbox(".....")
End Sub
以上程序段是我写的关于从wincc用vbs语句从数据库调用数据的程序，可是程序在运行到我加上注释的地方就会卡住，我把这些语句注释掉后其他与巨可以运行，没问题，请教各位大佬怎么让本程序成功运行
（注：sql新建数据库的名称是gaolu，下面的表的名称是小车，有5个变量是“高炉号”“趟次”“趟次”“罐号”“编号”）（wincc的计算机名称是PC-201703202137）
最佳答案
第一个注释conn.open没有执行，说明打开链接失败，因此以后所有的关于SQL链接的对象全部都不对，也就是你后边的注释，因此问题出在conn.open这里，可能是数据源设置不对，Con的设置有问题。看后边那意思你是自己建的表，一般自己表的连接就一句很简单的，手机不方便打出来，有问题欢迎交流2606352062
提问者对于答案的评价：
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc125406.html
微信扫一扫 
支付宝扫一扫 