WINCC写数据库
在WINCC的图形编辑器中,在输入域的属性中。选择事件。再选择键盘的释放动作,在动作代码框中写下例如以下代码:
Dim conn,rs
Dim strsql
Dim a
a=HMIRuntime.Tags("datavariable").Read
Set conn=CreateObject("adodb.connection")
Set rs=CreateObject("adodb.recordset")
conn.Provider = "sqloledb"
conn.open "SERVER=Yang-PC\WINCC;uid=sa;pwd=sa;database=datasavetest"
strsql="insert into tt_ch(TagValue)VALUES('" & a &"')"
Set rs=conn.execute(strsql)
conn.close
Set rs=Nothing
Set conn=Nothing
End If
如此,就可以实现WINCC的实时数据向SQL SERVER的数据写入。
WINCC读数据库
Dim conn,rs
Dim strsql
Dim temp1,temp2
Set conn=CreateObject("adodb.connection")
Set rs=CreateObject("adodb.r