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 '取第一列的值
'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"
更多相关教程请访问 mysql视频教程