输入输出域读取SQL数据库

			         WINCC 输入输出域读取SQL数据库
			          
1.建立一个内部变量，变量名为textdataAuto变量类型要和数据库中一致

2.建立一个输入输出域，右键【组态对话框】连接变量textdataAuto

3.选中【输入输出域】》事件》键盘》释放

4.代码如下

im conn,rs

Dim strsql

Dim temp1,temp2

Set conn=CreateObject(“adodb.connection”)
Set rs=CreateObject(“adodb.recordset”)
conn.Provider = “sqloledb”
conn.open
“SERVER=WIN-V92B5PFU25I\WINCC;uid=test;pwd=1;database=WINCC”
strsql=“select * from SIEMENS” ‘SIMENS是表名
Set rs=conn.execute(strsql)
temp1= rs.Fields(0).Value
HMIRuntime.Tags(“textdataAuto”).Write temp1 '将值写个变量
conn.close
Set rs = Nothing
Set conn=Nothing

5.数据库

欢迎加入技术交流群399837282