Syntaxe de chaîne de connexion pour Classic ADO/ODBC/Oracle 10g EZConnect

Question

J'essaie de connecter plusieurs projets VBA à un backend Oracle 10g en utilisant ADO (2.8) et sans TNS. Après plusieurs tentatives, nous avons décidé que la simple série d'étapes pour une nouvelle installation comprennent:

1. Mettre en place un client Oracle Instant
2. Installez le pilote ODBC d'accompagnement
3. (Test de la connexion à l'aide EZConnect via SQL plus)
4. (Testez la connexion en créant une source de données de Windows)

Tout fonctionne jusqu'à ici bien. Le problème est, je ne peux pas comprendre la syntaxe pour dire à ADO d'utiliser le pilote ODBC client instantané, qui apparaît dans ma liste de pilotes ODBC comme "Oracle dans MyTest" (sans guillemets). L'utilisation du pilote ODBC MSFT avec EZConnect comme this post suggère ne fonctionne pas mieux qu'avant la configuration du client instantané (c'est-à-dire pas du tout). Mais this post semble suggérer qu'il est possible, sans indiquer exactement comment et connectionstrings.com ne vous indique ce que la partie source de données de la chaîne ressemble, à savoir UnUtilisateur/unMotdepasse @ ASERVER: PortNumber/InstanceName

Version courte: Quelle est la syntaxe exacte d'une chaîne de connexion ADO classique faisant référence à un pilote ODBC client instantané?

Merci d'avance pour votre aide. Il m'a fallu un stupide temps pour aller avec SO ...

Answer 1

Essayez et remplacer les valeurs selon le cas:

Set Connection = CreateObject("ADODB.Connection") 

blnTest = Connection.Open("Driver={Oracle in instantclient};Dbq=127.0.0.1:1521/SERVICENAMEHERE", "USERNAME", "PASSWORD") 

Si Oracle instantclient ne fonctionne pas vérifiez la HKEY_LOCAL_MACHINE \ SOFTWARE \ ODBC \ La clé de registre ODBCINST.INI \ ODBC Drivers pour voir quelle est la valeur pour Oracle Instant Client (il peut y avoir un numéro de version ajouté).

Si cela ne fonctionne toujours pas pour vous. Laissez un commentaire avec les détails de ce qui s'est passé et je vais essayer d'ajuster la réponse pour vous.

Answer 2

' Create a connection object.' 
Dim cn As ADODB.Connection 
Set cn = New ADODB.Connection 

' Create a recordset object.' 
Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 

' Provide the connection string.' 
Dim strConn As String 
Dim str As String 

'Use the SQL Server OLE DB Provider.' 
strConn = "Driver=(Oracle in OraHome92);" & "Data Source=;Uid=;Pwd=;" 

'Now open the connection.' 
cn.Open strConn 
With rs 

    ' Assign the Connection object.' 
    ActiveConnection = cn 

    ' Extract the required records.' 
    .Open "SELECT ", cn 


End With 

Answer 3

similaires à la « réponse de user1206604 - je configurer une connexion ODBC à l'aide source de données ODBC Administrator (pour l'amour de exemple, nous nommons « DEMO ») et connecter comme ceci:

Dim conn As New adodb.Connection 
Set conn = New adodb.Connection 

connStr = "Provider=OraOLEDB.Oracle;Data Source=DEMO;User Id=yourUserID;Password=yourPassword;" 
conn.Open connStr 

Dim api As New adodb.Recordset 
Set api = New adodb.Recordset 

yourQueryString = "SELECT foo FROM bar" 
api.Open yourQueryString, conn, adOpenDynamic, adLockReadOnly 
'adjust above setting as needed 

while not api.EOF 
    'do interesting stuff here 
wend 

'clean up resources 
api.Close 
Set api = Nothing 

conn.Close 
Set conn = Nothing 

Le administrateur de source de données ODBC se trouve (sur ma machine) dans le menu Démarrer> Programmes> Oracle - oraClient10g> Outils de configuration et de migration> Microsoft ODBC Administrator et ressemble à ceci: