从VBA访问Oracle数据库

最新推荐文章于 2021-11-17 08:00:29 发布

luck2001

最新推荐文章于 2021-11-17 08:00:29 发布

阅读量7.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA

本文链接：https://blog.youkuaiyun.com/luck2001/article/details/79074255

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了使用VBA直接连接Oracle数据库和通过Oracle Data Access Components (ODAC) 进行访问的两种方法。详细步骤包括设置连接字符串、执行SQL查询以及关闭连接等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法１：直接接続する

    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    cnn.Open "Provider=msdaora;Data Source=sid;User Id=userid;Password=pwd;"

    Set rst = cnn.Execute("select * from tmp")
    '物理名表示
    For j = 0 To rst.Fields.Count - 1
      Cells(9, j + 1) = rst.Fields(j).Name
    Next

'結果表示
Range("B10").CopyFromRecordset rst

cnn.Close

方法２：①Oracle Data Access Components (ODAC) 下载安装→ODTwithODAC112030.zip
　　　　②接続
　　　　'oo4o用のオブジェクト変数の宣言
    　　Dim OraSession As Object        'セッション
    　　Dim OraDatabase As Object       'データベース
    　　Dim rs As Object                'データセット(レコードセット)
　　　　'セッションオブジェクトの生成
        Set OraSession = CreateObject("OracleInProcServer.XOraSession")
        'oo4oデータベースオブジェクトの生成（DBへUserID:scott、パスワード:tigerで接続）
        Set OraDatabase = OraSession.OpenDatabase("sid", "userid/pwd]", 0&)
        sql_str = "select * from tmp where id ='" + id + "')"
        'oo4oデータセット(レコードセット)の生成（全データを返すレコードセットの生成）
        Set rs = OraDatabase.CreateDynaset(sql_str, 0&)

'オブジェクトのクローズ
    rs.Close

    '各種オブジェクトの開放
    Set rs = Nothing
    Set OraDatabase = Nothing
    Set OraSession = Nothing