Discussion :

[label55]

Bonjour à tous,

Je suis bloqué sur un problème depuis ce matin que je saurais expliquer, j'éspere que quelqu'un ici pourra le faire.

Donc j'effectue une requete sql qui doit me retourné un seul résultat ( lorsque je l'execute directement sur la base elle m'en retourne bien qu'un seul ) Sependant lorsque mon script vb l'execute un RecordCount m'en retourne plus d'un. Voici le code :

Code :

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

1
2
3
4
5
6
 
sql = "SELECT * FROM tblPresence WHERE "
sql = sql & "ID_personne=" & ID & " "
sql = sql & "and jour = '" & datecol & "' AND heure_debut='" & txtHeure_debut & "' AND heure_fin ='" & txtHeure_fin & "';"
Set record2 = maBase.OpenRecordset(sql, dbOpenDynaset)
If record2.RecordCount = 1 Then

Quelqu'un pourrait t'il me dire ce qui ne va pas .
Merci d'avance
Pierre

[Phifi]

Bonjour,

il t'en retourne combien d'enregistrements ?

Code :

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

1
2
If record2.RecordCount > 0 Then
    record2.MoveFirst

devrait te renvoyer vers ton résultat, si effectivement tu es sûr d'en obtenir un seul.

[pc75]

Bonjour,

Je suppose que le SGBD est Access ?

Dans ce cas, les dates dans la clause WHERE doivent être au format US (mm/jj/aaa).

[Invité]

Bonjour

Bonjour,

Je suppose que le SGBD est Access ?

Dans ce cas, les dates dans la clause WHERE doivent être au format US (mm/jj/aaa).

En complément si c'est bien des dates dans Access il faut entourer de # et non de '.

[Delbeke]

Et le recordcount retourne 1 si on n'est pas allé au dernier enregistrement

Code :

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

1
2
3
4
5
6
if record2.RecordCount>0 then
  record2.MoveLast
  msgbox Record2.recordcount & " enregistrements trouvés"
else
  msgbox "Pas d'enregistrment trouvé
end if

[Vld44]

ce qui se trouve dans ta clause where est une condition sur la clé primaire (ou un index unique) ?
Sinon, de toute façon ton code est bancal.