SubOnClick(ByvalItem)
DimsCom
DimsSql
DimoRs
Dimconn
DimoCom
DimCon
DimDate1,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;IntegratedSecurity=SSPI;PersiSTSecurityInfo=False;InitialCatalog=gaolu;DateSource=PC-201703202137\wincc"
Setconn=CreateObject("ADODB.Connection")
conn.ConnectionString=Con
conn.CursorLocation=3
‘conn.Open注释
sSql="inseRTinto小车VALUES(‘"&Date1&"’,’"&Date2&"’,’"&Date3&"’,’"&Date4&"’,’"&Date5&"’);"
SetoRs=CreateObject("ADODB.Recordset")
SetoCom=CreateObject("ADODB.Command")
‘SetoCom.ActiveConnection=conn注释
oCom.CommandType=1
oCom.CommandText=sSql
‘SetoRs=oCom.Execute注释
SetoRs=Nothing
‘conn.Close注释
Setconn=Nothing
Msgbox("…..")
EndSub
以上程序段是我写的关于从wincc用vbs语句从数据库调用数据的程序，可是程序在运行到我加上注释的地方就会卡住，我把这些语句注释掉后其他与巨可以运行，没问题，请教各位大佬怎么让本程序成功运行
（注：sql新建数据库的名称是gaolu，下面的表的名称是小车，有5个变量是“高炉号”“趟次”“趟次”“罐号”“编号”）（wincc的计算机名称是PC-201703202137）
最佳答案
第一个注释conn.open没有执行，说明打开链接失败，因此以后所有的关于SQL链接的对象全部都不对，也就是你后边的注释，因此问题出在conn.open这里，可能是数据源设置不对，Con的设置有问题。看后边那意思你是自己建的表，一般自己表的连接就一句很简单的，手机不方便打出来，有问题欢迎交流2606352062
提问者对于答案的评价：
