Wincc读写MSSQL

'定义变量，注意VBS一条命令占据一行，换行后无效！



Dim conn            
Dim con                    
Dim sSQL 
Dim oRS 
Dim oCom  
con= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名称;Data Source=服务器"
    Set conn= CreateObject("ADODB.Connection") 
    conn.ConnectionString=con 
    conn.CursorLocation=3
    conn.Open
    Set oRs=CreateObject("ADODB.Recordset")                                                
    Set oCom= CreateObject("ADODB.Command") 
    Set oCom.ActiveConnection=conn
    oCom.CommandType=1

    sSQL="填写查询写入语句"
    '写入数据库：sSQL="INSERT INTO [表名称] ([字段名称]) VALUES ('写入的值');"
    '更新数据库：sSQL= "UPDATE [表名称] Set [字段名称]='写入的值' where [字段名称]='值'"


     oCom.CommandText=sSQL
    Set oRS=oCom.Execute
    Set oRS=Nothing

    conn.close
    Set conn=Nothing