oracle12c访问mysql_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