admin 管理员组文章数量: 1086019
2024年4月30日发(作者：argument缩写)
Wincc读写SQLServer数据库
一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，
命名为“个人信息”分别建立编号、姓名、年龄。
二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同
在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连
接变量。
三、添加两个按钮控件，分别命名为写数据、读数据
1、在写数据按钮中写入一下VBS脚本
wincc变量写入数据库
定义变量
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1, Data2, Data3
‘读取wincc变量
Data1=("编号").read
Data2=("姓名").read
Data3=("年龄").read
‘连接数据库
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
Info=False;Initial Catalog=读写数据库;Data Source=.WINCC"
Set conn = CreateObject("tion")
tionString = Con
Location = 3
‘写入数据库
Security
sSql="insert into个人信息VALUES('" & Data1 & "','" & Data2&"','"&Data3&"');"
Set oRs = CreateObject("set")
Set oCom = CreateObject("d")
Set Connection = conn
dType = 1
dText = sSql
Set oRs = e
Set oRs = Nothing
Set conn = Nothing
在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，
Data1=("编号").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=("编号").read
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=读写数据库;Data Source=.WINCC"
Set conn = CreateObject("tion")
tionString = Con
Location = 3
sSql="SELECT * FROM 个人信息 WHERE 编号='"&data7&"';"
Set oRs = CreateObject("set")
Set oCom = CreateObject("d")
Set Connection = conn
dType = 1
dText = sSql
Set oRs = e
'Set oRs = Nothing
data4=(0).Value
data5=(1).Value
data6=(2).Value
' data4
Set data1=("编号")
Set data2=("姓名")
Set data3=("年龄")
data4
data5
data6
Set oRs = Nothing
Set conn = Nothing
读取数据时，按照编号读取数据，在实际中需要修改数据库语言。运行wincc，再编
号输入输出域中输入编号，点击读数据按钮，得到需要的数据
版权声明：本文标题：wincc中使用VBS脚本读写SQLServer数据库文件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714450699a680668.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论