Wincc读写MSSQL
侧边栏壁纸
  • 累计撰写 21 篇文章
  • 累计收到 4 条评论

Wincc读写MSSQL

滕招
2021-10-14 / 0 评论 / 483 阅读 / 正在检测是否收录...
'定义变量,注意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 
0

评论 (0)

取消