[Excel] pb requête via table Oracle avec ODBC
starnours
Messages postés
48
Date d'inscription
Statut
Membre
Dernière intervention
-
Lillo -
Lillo -
Bonjour,
Je tente d'effectué une requête pour travailler sur les données d'une table oracle via ODBC. La connexion a l'air de bien se passer mais une fois arriver là, je ne sais pas comment déclarer le recordset... Si vous pouviez m'aider. Voici mon code pour le moment :
Public Function Connection() As Boolean
On Error GoTo sortie_erreur
Connection = False
Set wrk = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
Set connect = wrk.OpenConnection("OracleTEST", dbDriverComplete, , "ODBC;DSN=OracleTEST;UID=decision;PWD=decision;DBQ=tsfor")
If Not connect Is Nothing Then Connection = True
Dim rst As DAO.Recordset '??? pb, comment faire le lien?
connect.Execute ("Select noteqm, os from TEST")
MsgBox "Connection reussie"
rst.MoveFirst
While Not (rst.EOF)
MsgBox rst("noteqm") & " " & rst("os")
rst.MoveNext
Wend
sortie:
Exit Function
sortie_erreur:
MsgBox "Connection : " & Err.Description
Resume sortie
End Function
Je tente d'effectué une requête pour travailler sur les données d'une table oracle via ODBC. La connexion a l'air de bien se passer mais une fois arriver là, je ne sais pas comment déclarer le recordset... Si vous pouviez m'aider. Voici mon code pour le moment :
Public Function Connection() As Boolean
On Error GoTo sortie_erreur
Connection = False
Set wrk = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
Set connect = wrk.OpenConnection("OracleTEST", dbDriverComplete, , "ODBC;DSN=OracleTEST;UID=decision;PWD=decision;DBQ=tsfor")
If Not connect Is Nothing Then Connection = True
Dim rst As DAO.Recordset '??? pb, comment faire le lien?
connect.Execute ("Select noteqm, os from TEST")
MsgBox "Connection reussie"
rst.MoveFirst
While Not (rst.EOF)
MsgBox rst("noteqm") & " " & rst("os")
rst.MoveNext
Wend
sortie:
Exit Function
sortie_erreur:
MsgBox "Connection : " & Err.Description
Resume sortie
End Function
A voir également:
- [Excel] pb requête via table Oracle avec ODBC
- Table ascii - Guide
- Table des matières word - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide