写一个wincc 与sql 数据库的读写修改删除程序

以下是一个WinCC与SQL数据库的读写修改删除程序示例，具体实现可以根据实际需要进行修改：

' 引用ADO库
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 设置数据库连接字符串
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"

' 打开数据库连接
conn.Open

' 插入数据
conn.Execute "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES ('值1', '值2', '值3')"

' 修改数据
conn.Execute "UPDATE 表名 SET 字段1='新值1', 字段2='新值2' WHERE 条件"

' 删除数据
conn.Execute "DELETE FROM 表名 WHERE 条件"

' 查询数据
rs.Open "SELECT * FROM 表名", conn

' 将查询结果写入WinCC标签
If Not rs.EOF Then
    ' 获取第一行数据
    Dim data As Variant
    data = rs.GetRows(1)

    ' 写入WinCC标签
    HMITagWrite "Tag名称1", data(0, 0)
    HMITagWrite "Tag名称2", data(0, 1)
    HMITagWrite "Tag名称3", data(0, 2)
End If

' 关闭数据库连接和记录集
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

在程序中，首先引用了ADO库，然后设置连接字符串、打开数据库连接、插入数据、修改数据、删除数据、查询数据、将查询结果写入WinCC标签等操作。需要根据实际情况修改连接字符串、SQL语句和WinCC标签名称等参数。