Dim conn,rs

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=WINCC;uid='';pwd='';database=hotpower"

If nChar = "13" Then

strsql="insert into dbo.station_info(station_number)VALUES('"&a&"')"

Set rs=conn.execute(strsql)


conn.close

Set rs=Nothing

Set conn=Nothing

End If

一样不行