Wincc操作数据库SQLSERVER

PHPz
发布: 2018-09-30 11:06:50
转载
3680 人浏览过

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视频教程

相关标签:
来源:csdn.net
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板