博途wincc 与 sql 连接操作(博途V14 wincc advanced) 您所在的位置:网站首页 wincc无法访问数据库权限 博途wincc 与 sql 连接操作(博途V14 wincc advanced)

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

2024-07-14 23:20| 来源: 网络整理| 查看: 265

博途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



【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有