Bonjour,
mon probleme est le suivant. J'ai tapé le code ci-dessous mais il ne m'affiche pas les données de la base membre choisi. Est ce une erreur de code? Que faire? Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form_Load()
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
'Définition du pilote de connexion
cnx.Provider = "Microsoft.jet.OLEDB.4.0"
'Définition de la chaine de connexion
cnx.ConnectionString = "c:\documents and settings\administrateur\mes documents\mon_prog\fiferpro.mdb"
'Ouverture de la base de donnée
cnx.Open
'Exécution de la requête
rst.Open " SELECT * FROM membre", cnx, adOpenKeyset, adLockBatchOptimistic, adCmdText
If rst.RecordCount = 0 Then
MsgBox " Il n'y a aucun enregistrement dans la base"
End
End If
Set DataGrid1.DataSource = rst
DataGrid1.Refresh
End Sub