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

Fermé
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 - 11 déc. 2008 à 09:41
 Lillo - 10 avril 2009 à 17:52
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
A voir également:

3 réponses

starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
11 déc. 2008 à 12:58
C'est bon j'ai réussi! j'ai trouvé un exemple concret
1
Pouriez-vous nous indiquer comment vous avez fait, s'il vous plait?
0
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
11 déc. 2008 à 10:24
j'ai oublié, en entête, avant la fonction j'ai ca :

Private wrk As workspace
Private connect As Connection
0
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
11 déc. 2008 à 11:52
personne pour m'aider?
0