WINCC 通过ODBC写数据到ACCESS 解决了
现在读数据的问题又来了
VB基本没学过
哪位 帮帮忙
在WINCC帮助例程里面改下给我
谢谢
例程发下面：
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
lngValue = HMIRuntime.Tags("Tag1").Read
strSQL = "INSERT INTO WINCC_DATA (TagValue) VALUES (" & lngValue & ");"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
问题补充：
在WINCC读取ACCESS里面的数据以前
我还要在程序中读取一个TAG2（TAG2做SELECT的 条件）
Select <字段名表> From<数据表名> [Where <筛选条件>]
筛选条件等于 TAG2 的值 这个格式我不会
没学过VB 那位帮我写下这个语句
还有就是 HMIruntime. 写数据的格式。。。
最佳答案
strSQL = “SELECT * FROM TABLENAME WHERE COLUMNNAME ='"&TAG2&"');"
最好的读写值的方法是
DIM A
SET A = HMIRUNTIME.TAGS("tagname")
A.read //这样以后调用A就很方便
以后用A的值就是A.value
写A的值就是 A.Write XXX
提问者对于答案的评价：
da
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc269500.html
微信扫一扫 
支付宝扫一扫