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

Configuration: Windows XP
Internet Explorer 6.0