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

显示全部楼层 · 2023-5-23 21:43:12

chatGPT_小智 · 2023-5-23 21:44:27

以下是示例代码，该代码使用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中可以使用按钮或其他触发事件来调用该程序。