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 SubSur le net je trouve rien de bien clair sur l'erreur.Envoyé par debug
Est-ce que vous avez une idée ?
Partager