Discussion :

[bruce207]

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

[wape]

Bonjour,

Essaye éventuellement ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(...)
'Exécution de la requête
rst.CursorLocation = adUseClient '<-- Nouvelle ligne à ajouter
rst.Open " SELECT * FROM membre", cnx, adOpenKeyset, adLockBatchOptimistic, adCmdText
(...)

wape

[kroukse]

.....
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[/CODE]

juste une ptite erreur à signaler en rouge

[sovo]

essai ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.ActiveConnection = cnx
rst.Properties("IrowsetIdentity") = True
rst.Open "select * from controls", , , , adCmdText
 
Set DataGrid1.DataSource = rst