wincc通过vb如何读取mysql_从wincc中调用数据库里的数据用vbs语句-工业支持中心-西门子中国...

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&"