Erreur suite a une requéte sql
Résolu
jimluis
Messages postés
90
Date d'inscription
jeudi 17 mars 2005
Statut
Membre
Dernière intervention
16 juin 2005
-
13 avril 2005 à 08:11
cs_Tene Messages postés 28 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 2 décembre 2005 - 13 avril 2005 à 09:44
cs_Tene Messages postés 28 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 2 décembre 2005 - 13 avril 2005 à 09:44
A voir également:
- 1136 sql
- Decimal sql ✓ - Forum C# / .NET
- Lpad sql server ✓ - Forum SQL
- Delete sql ✓ - Forum Foxpro
- Modif colonne MONEY en decimal - Forum SQL
- Sql like ✓ - Forum SQL
1 réponse
cs_Tene
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
13 avril 2005 à 09:44
13 avril 2005 à 09:44
Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
If Not (Recordset.BOF And Recordset.EOF) Then
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End If
End Sub
dans ton test tu écris if not recordset au lieu de RstQuery et pense à le changer dans les lignes suivantes...
de plus tu ne vas jamais entrer dans ton test car après l'exécution d'une requête, ton recordset sera placé sur BOF si EOF n'est pas vrai... tu peux l'enlever et laissé seulement:
Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End Sub
bonne prog, a+
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
If Not (Recordset.BOF And Recordset.EOF) Then
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End If
End Sub
dans ton test tu écris if not recordset au lieu de RstQuery et pense à le changer dans les lignes suivantes...
de plus tu ne vas jamais entrer dans ton test car après l'exécution d'une requête, ton recordset sera placé sur BOF si EOF n'est pas vrai... tu peux l'enlever et laissé seulement:
Private Sub Cmd_Informations_Click()
' Requête SQL: on sélectionne tous
strsql = "SELECT ReferenceProduit,NumeroDeSerie,TypeProduit FROM produit" strsql strsql & " WHERE NumeroDeSerie '" & Lst_NumSer.Text & "'"
Set RstQuery = Db.OpenRecordset(strsql)
Do While Not Recordset.EOF
'On affiche les données sélectionnées dans les différents labels
RES_TypeProduit.Caption = Recordset.Fields("TypeProduit").value
RES_NumSer.Caption = Recordset.Fields("NumeroDeSerie").value
Recordset.MoveNext
Loop
End Sub
bonne prog, a+