请问vba怎么实现访问AS400里面的db2数据库

配置一个数据源或自己创建链接

Function ConnectionAs400(serverName As String, userid As String, password As String, ccsid As Long, libl As String) As Object

    '创建ADODB AS400连接

    Dim conn As Object

On Error GoTo ErrorConnHandler

    Set conn = CreateObject("ADODB.Connection")

    conn.Provider = "IBMDA400"   '驱动名称 IBMDA400 功能最全但不支持SQL的事务 IBMDASQL 仅支持SQL（支持事务），IBMDARLA 不支持块访存

    conn.Properties("Library List") = libl '初始化目录

    conn.Properties("Naming Convention") = 1  '命名约定，0：*SQL  1：*SYS

    'conn.Properties("Force Translate") = 65535

    conn.Properties("Force Translate") = ccsid '强制转换 缺省值为 65535，表示不执行转换 值为 0  则使用作业的CCSID执行转换  '836,935,937,1388,4932,4933,5484,9028

    conn.Properties("Query Storage Limit") = -1  '查询存储限制 -1表示无限制

    conn.Properties("Use SQL Packages") = False '使用 SQL 程序包

    conn.Properties("Convert Date Time To Char") = "False" '将日期时间转换为字符型

    conn.Properties("Data Source") = serverName

    conn.Properties("User ID") = userid

    conn.Properties("Password") = password

    conn.Open

    'conn.Open "Provider=IBMDA400Data Source=Deve.inah.hk.hsbcUser ID=HLIPGRP01"

    Set ConnectionAs400 = conn

    Debug.Print conn.Properties("Job Name")

    Exit Function

ErrorConnHandler:

    MsgBox ("连接AS400失败：" + CStr(err.Number))

    Dim ErrorMsg As Object

    For Each ErrorMsg In conn.Errors

        MsgBox (ErrorMsg.Description)

    Next

   

End Function

Function clsConnection(conn As Object) As Boolean

    '关闭ADODB AS400连接

    clsConnection = True

On Error GoTo ErrorCloseHandler

    If Not conn Is Nothing Then

        conn.Close

    End If

   

    Set conn = Nothing

    Exit Function

ErrorCloseHandler:

☆ JDBC数据库设计方法

JDBC提供了一套API，以统一的方式访问各种异构的数据库。JDBC数据库设计具有以下特点：

（1）独立于平台的数据库访问，这是J2EE的跨平台机制和Java语言的特点决定的。

（2）数据库位置透明，应用程序设计人员不需要关心底层数据库的具体位置、数据库的具体类型等这些不同种类的数据库信息可以通过JDBC屏蔽掉，应用程序设计人员可以专注于业务逻辑的实现，只需配置 JDBC URL即可，并可以方便地实现数据库或应用程序的移植。

（3）对专有数据库的问题是透明的。对于不同的数据库只需要配置不同的JDBC Driver以及不同的JDBC URL，以标准的JDBC的方式连接到底层不同技术实现的数据库。

---