Discussion :

[XeonB]

Bonjour tout le monde,

j'ai un problème au niveau de récupération des données depuis une table MySQl.

voici le code utilisé pour la sélection des données :

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
 
Req = "SELECT * FROM lc_reservation WHERE idres=" & IDRes
If Rssel.State = adStateOpen Then Rssel.Close
Rssel.Open Req, DBConnect
DateRes.Value = Rssel![DateRes]
CltFName.Text = Rssel![CltFName]
CltLName.Text = Rssel![CltLName]
CltTel1.Text = Rssel![CltTel1]
CltTel2.Text = Rssel![CltTel2]
CltAdresse.Text = Rssel![CltAdresse]
If Rssel![VhlRes] <> "" Then VhlRes.Text = Rssel![VhlRes]
If Rssel![Immat] <> "" Then Immat.Text = Rssel![Immat]
Duree.Text = Rssel![Duree]
Tarif.Text = Rssel![Tarif]
Avance.Text = Rssel![avances]
Note.Text = Rssel![observation]
Set Rssel = Nothing

il me donne l'erreur suivant :
"Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé".

[DarkVader]

Bonsoir,
J'aurais plutôt écrit

Code :

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

Req = "SELECT * FROM `lc_reservation` WHERE `idres`='" + IDRes + "'"

en ajoutant un

Code :

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

1
2
debug.print req
stop

immédiatement après afin de pouvoir en lire le résultat dans la fenêtre d'exécution