博途wincc 与 sql 连接操作(博途V14 wincc advanced)

博途wincc 与 sql 连接操作(博途V14 wincc advanced)
1，sql 端配置，创建数据库，可在vb中进行，或者直接定义好（更为简单）
1, 使用 ODBC数据源连接 conn.open"Provider=SQLOLEDB.1;DSN=12" 此方式运行时提示字符串不正确
其中 Provider = SQLOLEDB.1。 SQLOLEDB.1是Windows集成的驱动程序
2，采用传统的链接方式，设置编写连接字符串。

    con = "Provider=SQLOLEDB.1;Integrated Security = SSPI;Persist Security Info=False;UserID=sa;password=123456;Initial Catalog=Machine_01;Data Source=DESKTOP-QFMFB1D\WQ"   
    Set conn=CreateObject("ADODB.Connection")
    conn.ConnectionString=con
    conn.CursorLocation=3
    conn.Open


    		
    sSql2="select *from Table_1 where id='12'"  //定义sql语句
    
    Set oRs=CreateObject("ADODB.Recordset") //创建Recordset对象用来容纳记录
    Set oCom=CreateObject("ADODB.Command")//创建Command对象用来执行sql指令
    Set oCom.ActiveConnection=conn
    oCom.CommandType=1

    oCom.CommandText=sSql2
    Set oRs = oCom.Execute//执行sql语句

    SmartTags("HMI_Tag_1") = oRs.fields(0).name//赋值给西门子变量

2，wincc 端配置
vb 中写脚本即可， 最后有全部脚本代码

3，vb 脚本 需要三个对象，缺一不可。
1，ADODB.Connection
Connection 对象用于创建一个到达某个数据源的开放连接。通过此连接，您可以对一个数据库进行访问和操作。
2，ADODB.Command
Command 对象用于执行面向数据库的一次简单查询。此查询可执行诸如创建、添加、取回、删除或更新记录等动作。
3，ADODB.Recordset
Recordset 对象用于容纳一个来自数据库表的记录集。一个 Recordset 对象由记录和列（字段）组成。
在 ADO 中，此对象是最重要且最常用于对数据库的数据进行操作的对象。

4，脚本文档

Dim sCon
Dim sSql
Dim sSql2
Dim sSql3

Dim oRs
Dim conn
Dim con
Dim oCom

Dim aa

con = "Provider=SQLOLEDB.1;Integrated Security = SSPI;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=Machine_01;Data Source=DESKTOP-QFMFB1D\WQ"
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=con
conn.CursorLocation=3
conn.Open


sSql2="select *from Table_1 where id='12'"

Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=conn
oCom.CommandType=1

oCom.CommandText=sSql2
Set oRs = oCom.Execute


If Not (oRs.EOF And oRs.BOF) Then
	
	oRs.MoveFirst
	
	SmartTags("HMI_Tag_1") = oRs.fields(0).name
	
	 oRs.close
Else
	ShowSystemAlarm"Dat_No.is not availble"
	
	
End If

Set oRs=Nothing
conn.Close
Set conn=Nothing

此链接位淘宝上某位卖家，感谢他的帮助。
https://item.taobao.com/item.htm?spm=a1z10.1-c.w4004-932985339.8.2badd640QEwzLe&id=570401337752