发表于:2017/11/7 23:03:56
#0楼
如:在wincc画面中,插入一个输入/输出域,对象名称为text,画面运行后输入“1234567”,通过全局脚本VBS怎么读到“1234567”,并将其值通过下面所属方法写到数据库表格中!请各位大神赐教,谢谢!!
我现在写的一个脚本可以读到PLC变量的值并将其写到数据库表格中,如PLC输入值标签名称为JKTDH,运行后PLC所对应值域的值为9876543,通过以下脚本可以将JKTDH这个标签值9876543写到对应的数据库表格中!以下功能的代码实现的功能:通过改变按钮“ahuo_sta1”的状态,将PLC标签"JKTDH"的值9876543写到SQL2005数据库表名为WaterPercent,列名为tdh所对应的表格中;
Dim tdh
Set tdh = HMIRuntime.Tags("JKTDH")
Dim fahuo_sta1
Set fahuo_sta1 = HMIRuntime.Tags("fahuo_sta1")
database = "fysystem"
server="JH1-PC\WINCC"
uid="jm"
pwd="12345678"
conn = "Provider = SQLOLEDB.1;DRIVER = SQL SERVER;SERVER="&server&";DATABASE="&database&";UID="&uid&";PWD="&pwd&""
Set db = CreateObject( "ADODB.Connection" )
Set restemp = CreateObject( "ADODB.Recordset" )
db.connectionstring = conn
db.Open
If fahuo_sta1.Read = 1 Then
sqlstr = "INSERT INTO WaterPercent(tdh) VALUES('"&tdh.read&"')"
db.execute(sqlstr)
Else
End If
db.close
请问,如何用类似的定义方法将“画面中的对象”手动输入的1234567写入对应的表格,其属性的定义是什么格式!
请大神们赐教,非常感谢!!
我现在写的一个脚本可以读到PLC变量的值并将其写到数据库表格中,如PLC输入值标签名称为JKTDH,运行后PLC所对应值域的值为9876543,通过以下脚本可以将JKTDH这个标签值9876543写到对应的数据库表格中!以下功能的代码实现的功能:通过改变按钮“ahuo_sta1”的状态,将PLC标签"JKTDH"的值9876543写到SQL2005数据库表名为WaterPercent,列名为tdh所对应的表格中;
Dim tdh
Set tdh = HMIRuntime.Tags("JKTDH")
Dim fahuo_sta1
Set fahuo_sta1 = HMIRuntime.Tags("fahuo_sta1")
database = "fysystem"
server="JH1-PC\WINCC"
uid="jm"
pwd="12345678"
conn = "Provider = SQLOLEDB.1;DRIVER = SQL SERVER;SERVER="&server&";DATABASE="&database&";UID="&uid&";PWD="&pwd&""
Set db = CreateObject( "ADODB.Connection" )
Set restemp = CreateObject( "ADODB.Recordset" )
db.connectionstring = conn
db.Open
If fahuo_sta1.Read = 1 Then
sqlstr = "INSERT INTO WaterPercent(tdh) VALUES('"&tdh.read&"')"
db.execute(sqlstr)
Else
End If
db.close
请问,如何用类似的定义方法将“画面中的对象”手动输入的1234567写入对应的表格,其属性的定义是什么格式!
请大神们赐教,非常感谢!!
[此贴子已经被jint于2017/11/9 9:03:40编辑过]
20分悬赏