用vbs脚本写wincc读取sql数据库信息

用vbs脚本写wincc读取sql数据库信息

以下是示例代码，该代码使用VBScript编写WinCC中的一个VBscript模块，可以读取SQL Server数据库中的信息。

[code]Sub ReadFromSQL()
    Dim conn, rs, sql

    '创建连接对象
    Set conn = CreateObject("ADODB.Connection")
   
    '设置连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB; Data Source=MyServer; Initial Catalog=MyDatabase; User ID=MyUser; Password=MyPassword"
   
    '打开数据库连接
    conn.Open
   
    '设置SQL查询语句
    sql = "SELECT * FROM MyTable"
   
    '执行查询
    Set rs = conn.Execute(sql)
   
    '遍历结果集并输出到WinCC消息框
    Do While Not rs.EOF
        WinCC.Print "ID: " & rs("ID") & ", Name: " & rs("Name")
        rs.MoveNext
    Loop
   
    '关闭结果集和数据库连接
    rs.Close
    conn.Close
End Sub[/code]

使用该程序需要将代码复制粘贴到WinCC中的VBscript模块，并按照实际情况修改连接字符串、SQL查询语句和输出内容。在WinCC中可以使用按钮或其他触发事件来调用该程序。