VBA 连接ORACLE 和 MYSQL数据库 方法（在线等）

Posted 2023-04-11

要求：1.不安装客户端 2.在随便一台机器上，执行程序就可以连接数据库

参考技术A 找个QQ群去问啊

参考资料：sername

VBA连接Oracle12c数据库

1.客户端必须安装对应oracle版本的client

2.excel中按如下操作添加组件

‘请先添加引用：工具－引用－Microsoft ActiveX Data Objects 2.8 ‘Library,Microsoft ActiveX Data Objects Recordset 2.8 Library

 

 

Sub OraLink()

    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.recordset")
  
    strConn = "Provider=OraOLEDB.Oracle.1; user id=joe; password=joe; data source = 192.168.0.118:2001/dbap.com.cn; Persist Security Info=True"

    conn.Open strConn ‘打开数据库
    
    Set rs = conn.Execute("select * from joe.test")
    
    For j = 0 To rs.Fields.Count - 1
      Cells(1, j + 1) = rs.Fields(j).Name
    Next
    
    ‘粘贴结果
    Range("A2").CopyFromRecordset rs
    
  
End Sub