Dim val
Dim conn
Dim is_sql
Set conn = CreateObject("ADODB.Connection")
With conn
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=administrator;Initial Catalog=CC_qqc2_06_04_28_11_09_07R;Data Source=QQC2\WinCC"
.ConnectionTimeout = 10
.Open
End With
Set val=HMIRuntime.Tags("testtag").read
is_sql = "insert into qqc3(savetime,id,value1,alarm,note) values('" & Now() & "','1','" & val & "','1','testtag')"
conn.Execute is_sql
conn.Close
我在不写读变量 和插入VAL时， 在VB里测试通过 而且WINCC也通过