从VBA访问Oracle数据库

最新推荐文章于 2021-04-09 09:12:24 发布

luck2001

最新推荐文章于 2021-04-09 09:12:24 发布

阅读量7.2k

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/luck2001/article/details/79074255

版权

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

摘要由CSDN通过智能技术生成

方法１：直接接続する

    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 OraSessi