[Excel] pb requête via table Oracle avec ODBC

[Fermé]
Signaler
Messages postés
48
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
27 juillet 2009
-
 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

3 réponses

Messages postés
48
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
27 juillet 2009
4
C'est bon j'ai réussi! j'ai trouvé un exemple concret
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Pouriez-vous nous indiquer comment vous avez fait, s'il vous plait?
Messages postés
48
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
27 juillet 2009
4
j'ai oublié, en entête, avant la fonction j'ai ca :

Private wrk As workspace
Private connect As Connection
Messages postés
48
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
27 juillet 2009
4
personne pour m'aider?