ODBC创建报表之使用ADO连接数据库 - 实在点好工控博客工控论坛

胡先生

学历：大学本科

职称：工程师

年龄：39岁

新闻信息(1/0)

工作图片(0)

技术论文(0/0)

交流论坛(64/54)

留言信箱(4)

浏览人次：12105

发表人：IFIXONLINE

发表时间：2009/9/21 13:25:00

发表新论题

本栏论题：

ODBC创建报表之使用ADO连接数据库 [8270]

    为了使用ActiveX数据对象来处理数据，需要参考画面工程中的ActiveX数据对象库。

    从VBE的工具菜单中选择参考指令然后选择ADO类型库。对象变量被声明为模块级，这意味着在本例中可以应用在所有其他程序中。如果读取它们之后不处理这些记录，那么它们被声明为程序级。



    例：创建ADO Recordset
    'General Declarations

    Dim conODBC As ADODB.Connection

    'This stores the link to the database.

    Dim adoRS As ADODB.Recordset

    'This stores the results of the query.



    Private Sub InitADO()

    Dim strQuery As String

    On Error GoTo ErrorHandler



    'SQL query that ADO will run.

    strQuery = "SELECT Recipe_ID, Recipe_Name, Batch_Size, " _

    & "Milk_Quan , Choc_Quan, Mix_Time, Milk_Type _

    FROM ACCEPT_TEST & "ORDER _BY _Recipe_Name ASC"



    Set conODBC = New ADODB.Connection

    'Create ADO Connection Object.



    'Connect to the database. Connect string can be DSN-less.

    'This varies by database type.

    conODBC.Open "driver= _

    & " SQL server};server=thunder;uid=sa;pwd=;database=master"

    Set adoRS = New ADODB.Recordset

    'Create ADO Recordset Object.



    'Run the query, and set options to allow read/write access.

    adoRS.Open strQuery, conODBC, adOpenDynamic, _

    adLockPessimistic, adCmdText

    Exit Sub

    ErrorHandler:

    HandleError

    End Sub

    杭州集益科技有限公司是美国通用电气GE Fanuc公司中国地区指定分销商,特价销售9030、9070、PAC RX3i、PAC RX7i、Versamax系列PLC，特价销售Proficy iFIX组态软件。
    联系人:胡有玉
    联系电话：15067103350
    传真号码:0571-88227248
    QQ号码:283479963
    公司地址：杭州市西湖区文三路555号9层
    公司网址：http://www.jiyitech.com/
    http://www.ifixonline.com/