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(999)"

Set rs=conn.execute(strsql)


conn.close

Set rs=Nothing

Set conn=Nothing

End If

这个程序有什么问题?就是不能写入.