Discussion :

[loreleï85]

Bonjour,

J'ai crée une base de données sous Acces, et je voudrait afficher les enregistrements dans une application VB6.
J'ai affiché la colonne nom de tous les enregistrements d'une table dans une datalist, et je voudrais que lorsque l'on clique sur un des noms, les informations de cet enregistrement s'affichent dans des textboxs.
Mais je n'y arrive pas.

Voilà mon code :

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
 
 
Dim strCavalier As String
strCavalier = L_CAVALIER.Text
 
 
With rsCavalier
.MoveFirst
.Find "NOM_CAVALIER = &strCavalier&"
End With
 
 
T_NOM.Text = rsCavalier.Fields("NOM_CAVALIER")
T_PRENOM.Text = rsCavalier.Fields("PRENOM_CAVALIER")
T_NIVEAU.Text = rsCavalier.Fields("NIVEAU")

Mon idée était de récupérer le nom sélectionné, de chercher dans la table l'enregistrement correspondant, et d'afficher les informations dans les textbox.

[Najdar]

Bonjour loreleï85,

Quel est ton message d'erreur ?

Le code dans ton message est incorrect... je l'ai corrigé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strCavalier As String
strCavalier = L_CAVALIER.Text
 
With rsCavalier
  .MoveFirst
  .Find "NOM_CAVALIER = " & strCavalier 'Cette ligne à été modifiée
End With
 
T_NOM.Text = rsCavalier.Fields("NOM_CAVALIER")
T_PRENOM.Text = rsCavalier.Fields("PRENOM_CAVALIER")
T_NIVEAU.Text = rsCavalier.Fields("NIVEAU")

Si cela ne marche pas mieux, essaie

Code :

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

.Find "NOM_CAVALIER = " & Chr(39) & strCavalier & Chr(39)

Chr(39) = '

[loreleï85]

Le deuxième code que tu m'as donné marche!

Merci de ton aide!