Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                                                                       

Dim sSql

Dim sCom

Dim oRs

Dim conn

Dim oCom

Dim Con

Dim data7,data8

data7=HMIRuntime.Tags("111").Read

data8=HMIRuntime.Tags("112").Read

HMIRuntime.Tags("xianshi").Write data7

Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=zzb;Data Source=.\wincc"

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=Con

conn.CursorLocation=3

conn.Open

sSql="insert into zzb3 VALUES('"&data7&","&data8&"');"

Set oRs=CreateObject("ADODB.Recordset")

Set oCom=CreateObject("ADODB.Command")

oCom.CommandType=1

Set oCom.ActiveConnection=conn

oCom.CommandText=sSql

Set oRs=oCom.Execute     '这条指令不执行！

Msgbox "12345"

Set oRs=Nothing

conn.Close

Set conn=Nothing

End Sub

在wincc画面中放置一个按钮，脚本为上，111,112，xianshi为wincc的变量，点击按钮将111和112的值存入数据表zzb3当中，请大家指教一下，谢谢！