Bonjour,

J'essai d'interroger une base Oracle 10 depuis VBA en passant par un DSN. Le DSN est ok (en tout cas le test de connexion). Lorsque je lance mon code depuis vba j'ai le message :

Erreur d'exécution '-2147217868 (80040e37)'
Erreur Automation

Et pouff tout tombe en marche.

Le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub initConnection()
    Dim cnx As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim query As String
 
    cnx.ConnectionString = "DSN=excel_hilairev5;UID=odbc;PWD=odbc;"
    cnx.Open
    Debug.Print "Connexion : " & cnx.State
 
    rst.CursorLocation = adUseClient
    query = "Select itmref_0 from itmmaster"
 
    Debug.Print "Requête : " & query
 
    rst.Open query, cnx
 
    If cnx.State = adStateOpen Then
        MsgBox rst.RecordCount
    Else
        MsgBox "Pas de connexion"
    End If
 
    rst.Close
    cnx.Close
    Set rst = Nothing
    Set cnx = Nothing
End Sub
Citation Envoyé par debug
Connexion : 1
Requête : Select itmref_0 from itmmaster
Sur le net je trouve rien de bien clair sur l'erreur.
Est-ce que vous avez une idée ?