用于组态软件与数据库通讯

(添加一命名为aaa的VBA子程序,可作为命令调用，操作代码为VbaExec aaa)

Sub aaa()

Dim strcn, cn

Dim is_SQL, rscom

Dim sv1,sv2

Set sv1 = gTagDb("dl_v1")

Set sv2 = gTagDb("dl_v2")

Set cn = CreateObject("ADODB.Connection")

Set rscom = CreateObject("ADODB.Recordset")

is_SQL = "insert into tab1(v1,v2) ValueS('" + Str(sv1) + "','" + Str(sv2) + "')" strcn = "Provider=MSDASQL;DSN=aa;UID=;PWD=;"

cn.ConnectionString = strcn

cn.Open

cn.Execute is_SQL

cn.Close

End Sub

3.4 iFix与数据库的连接：

GE Fanuc的iFIX是全球最领先的HMI/SCADA自动化监控组态软件之一，与关系型数据库通讯，它具有iFIX SQL接口选项（即iFIX ODBC）和VBA编程两种方法来访问SQL数据源，用VBA写脚本可以更快和更容易地访问和处理SQL数据源。作为可供选择项，iFIX ODBC不需要具备VBA脚本知识，就能执行所有的SQL任务。例如，如果想确定数据库收到确定性的数据，应当使用通过iFIX ODBC可获得的数据库块。当使用数据库块时，数据在每个扫描时间内被及时送到数据库。对编程不熟悉的开发人员采用iFIX ODBC配置相对简单。iFIX ODBC由SQL触发块（SQT）、SQL数据块（SQD）、SQL任务三部分组成，其中SQL触发块用于指定SQL命令的名称，并确定数据传输触发的时间或事件，SQL数据块用于指定采集和传送的数据以及数据传送的方向。SQL任务除处理和ODBC驱动的通讯外，还和SQT块、SQD块通讯。因这两种方式的实现在软件帮助文件和应用文章中有很多实例，在此就不再详细描述。