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
‘取第一列的值
‘temp1 = rs("text")从数据集中取字段“text”的值
Set temp2 = HMIRuntime.Tags("textdataAuto")
temp2.Read
temp2.Write temp1
conn.close
Set rs = Nothing
Set conn=Nothing
Wincc操作数据库SQLSERVER,布布扣,bubuko.com
原文：http://blog.csdn.net/yangbingzhou/article/details/24558789