中使用VBS脚本读写SQLServer数据库文件.docx

Wincc读写SQLServe数据库
一、 在数据库中建立数据库文件，文件名为 “读写数据库 ”，在数据库中建 立新的表，命名为 “个人信息 ”分别建立编号、姓名、年龄。
二、 数据库中建立表后，在 wincc 中建立与数据库中类型相同的变量，变 量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加 三个输入输出域，并连接变量。
三、 添加两个按钮控件，分别命名为写数据、读数据
1、在写数据按钮中写入一下 VBS脚本
wincc 变量写入数据库
定义变量
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
DimData1, Data2, Data3
‘读取 wincc 变量
Data仁HMIRu （‘ 编号 ”）.read
Data2二HMIRu （‘ 姓名"）.read
Data3=HMIRu （‘ 年龄"）.read
连接数据库
Con="Provider=SQLOL
E
;I ntegratedSecurity二SSPI;PersistSecurityl nfo二False;l ni tialCatalo 读写数据 库;Data Source二.\WINCC"
Set conn = CreateObject("ADO
D
")
= Con
= 3

‘写入数据库
sSql="insert into 个人信息 VALUES^" & Data1 & "','" & Data2&"',"&Data3&"');"
Set oRs = CreateObject("ADO
D
")
Set oCom = CreateObject("ADO
D
")
Set = conn
= 1
= sSql
Set oRs =
Set oRs = Nothing

Set conn = Nothing 在实际项目中需要修改的只有定义变量时增加或减少数据 data 的个数，
").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二HMIRu ("编号 ”).read
Con="Provider=SQLOL
E
;IntegratedSecurity=SSPI;Persis