Wincc操作数据库SQLSERVER

WINCC写数据库 在WINCC的图形编辑器中，在输入域的属性中，选择事件，再选择键盘的释放动作，在动作代码框中写下如下代码： Dim conn,rs Dim strsql Dim a a=HMIRuntime.Tags(datavariable).Read Set cOnn=CreateObject(adodb.connection) Set rs=CreateObje

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.recordset")
conn.Provider = "sqloledb"
conn.open "SERVER=YANG-PC\WINCC;uid=sa;pwd=1988525;database=datasavetest"

strsql="select * from table_1"
Set rs=conn.execute(strsql)

rs.movenext '读取数据集中的下一条 还可以通过数据集的其他属性进行操作

temp1 = rs.Fields(0).Value '取第一列的&＃20540;

'temp1 = rs("text")从数据集中取字段“text”的&＃20540;

Set temp2 = HMIRuntime.Tags("textdataAuto")
temp2.Read
temp2.Write temp1

conn.close
Set rs = Nothing
Set cOnn=Nothing