- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Wincc 读写SQLServer 数据库
一、在数据库中建立数据库文件,文件名为“读写数据库”,在数据库中建立新的表,命名
为“个人信息”分别建立编号、姓名、年龄.
二、数据库中建立表后,在 wincc 中建立与数据库中类型相同的变量,变量类型相同在读写
数据时很重要.在图形编辑器中新建画面,并在画面中增加三个输入输出域,并连接变量。
三、添加两个按钮控件,分别命名为写数据、读数据
1、在写数据按钮中写入一下VBS 脚本
wincc 变量写入数据库
定义变量
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1, Data2, Data3
‘读取wincc 变量
Data1=HMIRuntime。tags (编号).read
Data2=HMIRuntime。tags(”姓名”) 。read
Data3=HMIRuntime.tags (”年龄” ).read
‘连接数据库
Con=Provider=SQLOLEDB.1 ;Integrated Security=SSPI ;Persist Security Info=False;Initial
Catalog=读写数据库;Data Source=.\WINCC”
Set conn = CreateObject (ADODB.Connection”)
conn.ConnectionString = Con
conn 。CursorLocation = 3
conn 。Open
‘写入数据库
sSql=insert into 个人信息 ALUES ( & Data1 ”,” Data2 &,Data3”’); ”
Set oRs = CreateObject (ADODB.Recordset”)
Set oCom = CreateObject(”ADODB。Command)
Set oCom.ActiveConnection = conn
oCom 。CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom。Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
在实际项目中需要修改的只有定义变量时增加或减少数据data 的个数,Data1=HMIRuntime。
tags(”编号”) 。read 中的变量名,数据库的名字,以及数据库的表名
2、在读数据按钮中写入一下VBS 脚本
读取数据库变量到wincc 变量
定义变量
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1
Dim Data2
Dim Data3
Dim data4
Dim data5
Dim data6
Dim data7
data7=HMIRuntime。tags(编号)。read
Con=Provider=SQLOLEDB。1;Integrated Security=SSPI;Persist Security Info=False;Initial
Catalog=读写数据库;Data Source= 。\WINCC
Set conn = CreateObject (”ADODB.Connection”)
conn.ConnectionString = Con
conn.CursorLocation = 3
conn 。Open
sSql=SELECT * FROM 个人信息 WHERE 编号= ’”data7&;”
Set oRs = CreateObject (ADODB.Recordset)
Set oCom = CreateObject (”ADODB 。Command”)
Set oCom。ActiveConnection = conn
oCom 。CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
’Set oRs = Nothing
data4=oRs.Fields (0 )。Value
data5=oRs 。Fields(1).Value
data6=oRs 。Fields(2 ).Value
data1。write data4
文档评论(0)