Dim strsql
Dim a
a=HMIRuntime.Tags("station_number").Read
Set conn=CreateObject("adodb.connection")
Set rs=CreateObject("adodb.recordset")
conn.Provider = "sqloledb"
conn.open "SERVER=node\WINCC;uid='';pwd='';database=hotpower"
If nChar = 13 Then
strsql="insert into station_info(station_number)VALUES('"&a&"')"
Set rs=conn.execute(strsql)
conn.close
Set rs=Nothing
Set conn=Nothing
End If

------------------------------
改成这样还是不行啊,另外根据其中一个字段为条件查询,怎么读取同行数据到WINCC画面上?写不行了,我先试试读取.