wincc中使用VBS脚本读写SQLServer数据库文件文档格式.doc

wincc中使用VBS脚本读写SQLServer数据库文件文档格式.doc

《wincc中使用VBS脚本读写SQLServer数据库文件文档格式.doc》由会员分享，可在线阅读，更多相关《wincc中使用VBS脚本读写SQLServer数据库文件文档格式.doc（3页珍藏版）》请在冰豆网上搜索。

DimsSql

DimoRs

Dimconn

DimoCom

DimCon

DimData1,Data2,Data3

‘读取wincc变量

Data1=HMIRuntime.tags（"

编号"

）.read

Data2=HMIRuntime.tags（"

姓名"

Data3=HMIRuntime.tags（"

年龄"

‘连接数据库

Con="

Provider=SQLOLEDB.1;

IntegratedSecurity=SSPI;

PersistSecurityInfo=False;

InitialCatalog=读写数据库;

DataSource=.\WINCC"

Setconn=CreateObject（"

ADODB.Connection"

）

conn.ConnectionString=Con

conn.CursorLocation=3

conn.Open

‘写入数据库

sSql="

insertinto个人信息VALUES（'

"

&

Data1&

"

'

'

Data2&

&

Data3&

）;

SetoRs=CreateObject（"

ADODB.Recordset"

SetoCom=CreateObject（"

ADODB.Command"

SetoCom.ActiveConnection=conn

oCom.CommandType=1

oCom.CommandText=sSql

SetoRs=oCom.Execute

SetoRs=Nothing

conn.Close

Setconn=Nothing

在实际项目中需要修改的只有定义变量时增加或减少数据data的个数，Data1=HMIRuntime.tags（"

）.read中的变量名，数据库的名字，以及数据库的表名

2、在读数据按钮中写入一下VBS脚本

读取数据库变量到wincc变量

DimData1

DimData2

DimData3

Dimdata4

Dimdata5

Dimdata6

Dimdata7

data7=HMIRuntime.tags（"

Con="

SELECT*FROM个人信息WHERE编号='

data7&

;

'

SetoRs=Nothing

data4=oRs.Fields（0）.Value

data5=oRs.Fields

（1）.Value

data6=oRs.Fields

（2）.Value

data1.writedata4

Setdata1=HMIRuntime.Tags（"

Setdata2=HMIRuntime.Tags（"

Setdata3=HMIRuntime.Tags（"

data1.Read

data1.Writedata4

data2.Read

data2.Writedata5

data3.Read

data3.Writedata6

读取数据时，按照编号读取数据，在实际中需要修改数据库语言。

运行wincc，再编号输入输出域中输入编号，点击读数据按钮，得到需要的数据