见附件所示。

一、案例说明

在VxSCADA软件中使用VBS来读写SQL Server数据库。

基础信息：

SQL Server版本：2012 企业版

例子数据库名称：CQXDB

例子数据表名称：Student，表结构总共2列，“Name”，“Age”

例子数据库账户名:sa

例子数据库账户密码:123456

二、基本步骤

1.在流程图中添加两个按钮，“写入”、“查询”，如下图所示。

2. 编辑“写入”按钮的脚本，代码如下。

set conn=CreateObject("ADODB.Connection")   ‘创建ADO连接对象

conn.Open"Driver={SQL server};server=127.0.0.1;database=CQXDB;uid=sa;pwd=123456"  ‘连接数据库服务

dim sqlStr

sqlStr="INSERT INTO Student(Name, Age) values ('cqx', '30')"  ‘ 插入语句

conn.Execute sqlStr   ‘执行插入数据

conn.Close   ‘ 关闭连接对象

set conn=nothing

3、编辑“查询”按钮的脚本，代码如下。

set conn=CreateObject("ADODB.Connection")  ‘ 创建ADO对象

conn.Open"Driver={SQL server};server=127.0.0.1;database=CQXDB;uid=sa;pwd=123456"

‘ 打开数据库服务

set rst=CreateObject("ADODB.Recordset")  ‘ 创建数据集对象

dim sqlStr

sqlStr="select * from Student"   ‘定义查询语句

rst.Open sqlStr, conn, 1, 1   ‘执行查询

if rst.EOF and rst.BOF then   ‘逐个遍历数据集

app.MsgBox "no data", "sql", 1

else

do while not rst.EOF     ‘循环遍历查询结果数据集

Name=rst("Name").value   ‘获取查询结果中的数据元素(一列)

Age=rst("Age").value

app.MsgBox Name & Age, "sql", 1  

‘输出，也可以置值到VxSCADA系统的某个位号中

rst.MoveNext

loop

end if

rst.Close    ‘关闭数据集

set rst=nothing

conn.Close   ‘关闭ADO对象

set conn=nothing

正在下载，请等待……

下载附件需0积分！