wincc中使用VBS脚本读写SQLServer数据库文件Word下载.doc
- 文档编号:3957629
- 上传时间:2023-05-02
- 格式:DOC
- 页数:3
- 大小:16.50KB
wincc中使用VBS脚本读写SQLServer数据库文件Word下载.doc
《wincc中使用VBS脚本读写SQLServer数据库文件Word下载.doc》由会员分享,可在线阅读,更多相关《wincc中使用VBS脚本读写SQLServer数据库文件Word下载.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,再编号输入输出域中输入编号,点击读数据按钮,得到需要的数据
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- wincc 使用 VBS 脚本 读写 SQLServer 数据库文件