在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 '取第一列的值
'temp1 = rs("text")從數據集中取字段“text”的值
Set temp2 = HMIRuntime.Tags("textdataAuto")
temp2.Read
temp2.Write temp1
conn.close
Set rs = Nothing
Set conn=Nothing
假設我們須要連接的是access數據庫，僅僅須要將
"SERVER=YANG-PC\WINCC;uid=sa;pwd=1988525;database=datasavetest"替換為
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=datasavetest"