एक्सेल वीबीए इंस्टेंट क्लाइंट के साथ रिमोट ओरेकल डीबी से जुड़ता है

इस फ़ंक्शन का संपादन/उपयोग समाप्त हुआ (जो ड्राइवर/प्रदाता का उपयोग नहीं करता (?):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 strConOracle
  Set oRsOracle = oConOracle.Execute(strSQL)
  MsgBox (oRsOracle.Fields(0).Value)
  varResult = oRsOracle.GetRows
  Do While Not oRsOracle.EOF
      If StrResult <> "" Then
        StrResult = StrResult & Chr(10) & oRsOracle.Fields(0).Value
      Else
        StrResult = oRsOracle.Fields(0).Value
      End If
    oRsOracle.MoveNext
  Loop
  oConOracle.Close
  Set oRsOracle = Nothing
  Set oConOracle = Nothing
  ORAQUERY = StrResult
End Function

पूर्ण कनेक्शन स्ट्रिंग सही करें:

Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=strHost)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=strDatabase))); uid=strUser; pwd=strPassword;

प्रदाता या ड्राइवर:
{Oracle के लिए Microsoft ODBC}

तत्काल क्लाइंट को इंगित करने के लिए PATH पर्यावरण चर सेट करने की आवश्यकता है।
किसी अन्य पर्यावरण चर का उपयोग नहीं किया उदा। ORACLE_HOME, TNS_ADMIN, आदि.