Bonjour,

je voudrais afficher des données stockées dans une table, sur un MSFlexGrid. Mon code ci-dessous ne fonctionne pas; où se situe le problème? Merci.

Public connect As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub opendb()
If connect.State = adStateOpen Then connect.Close

locate = App.Path & "\essai.mdb" & ";Jet " & "OLEDB:"
connect.CursorLocation = adUseClient
connect.Open "provider=microsoft.jet.oledb.4.0;" + "data source =" & locate & ";" + "persist security info = false"
End Sub
Sub openrs()
rsuser.Open "employers", connect, adOpenKeyset, adLockOptimistic
End Sub

Sub openall()
opendb
openrs
End Sub

Dim db As Database
Dim rs As Recordset

' Ouverture de la base de données
Set db = OpenDatabase("C:\Documents and Settings\etudiant_uva\Bureau\gtf\access\essai.mdb", dbDriverNoPrompt, False, "ODBC;DSN=TestDB")

' Execution de la requete sur la base de donnees.
Set rs = db.OpenRecordset("select * from employers", dbOpenDynamic, 0, dbOptimistic)

flxGd.DataSource = rs

' Parcours des enregistrements de la table
rs.MoveFirst
While Not rs.EOF
rs.MoveNext
Wend

' Fermeture du Recordset.
rs.Close

' Fermeture de la base de données
db.Close