vba mysql 3706_sql – Excel VBA使用InstantClient连接到远程Oracle DB

结束编辑/使用此功能(不使用(？)使用驱动程序/提供程序：InstantClient但仍使用这些文件)：

Function ORAQUERY(strHost As String, strDatabase As String, strSQL As String, strUser As String, strPassword As String)

Dim strConOracle, oConOracle, oRsOracle

Dim StrResult As String

StrResult = ""

strConOracle = "Driver={Microsoft ODBC for Oracle}; " & _

"CONNECTSTRING=(DESCRIPTION=" & _

"(ADDRESS=(PROTOCOL=TCP)" & _

"(HOST=" & strHost & ")(PORT=1521))" & _

"(CONNECT_DATA=(SERVICE_NAME=" & strDatabase & "))); uid=" & strUser & " ;pwd=" & strPassword & ";"

Set oConOracle = CreateObject("ADODB.Connection")

Set oRsOracle = CreateObject("ADODB.Recordset")

oConOracle.Open str