RecordSet Requete SQL

Citation:

---

Envoyé par elendila

je m'y suis mise, est ce que c'est moins bien d'utiliser ADO pour toi LostIN??

---

Je ne connais pas véritablement les différences.

Fonctionne toujours pas avec la nouvelle connexion.

Sinon j'ai essayer de la mettre au format 97 mais passe pas.

J'ai aussi essayé avec des DlookUp mais rien donné.

Ce recordset commence a m enerver...


Merci pour votre aide en tout cas.

@+
++

Sinon pour la base c'est pas long tu fais une table avec 3 champs

nom de la table : Liens_Data_Indicateurs
champ 1 : POL_DATE (format date)
champ 2 : REPORT_DATE (format date)
champ 3 : COMP_NO (format texte)

merci
@+

Elle est sur quelle ligne ton erreur? Et elle te dis quoi exactement??

Pour la ligne du probleme voir page 1.

Citation:

---

Pour la ligne du probleme voir page 1.

---

Je veux bien mais il y en a plusieurs donc je vais dire que c'est sur le recordset avec

Citation:

---

dbOpenDynaset

---

mais tu a la même erreur avec:

Citation:

---

r.Open "SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & param, Indicateurs

---

??

Citation:

---

Private Sub test()


Dim r As Recordset
Dim compteur As Integer
Dim req As String
Dim MANIFOLD As String

MANIFOLD = "AA"

req = "SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO='" & MANIFOLD & "'"
Set r = CurrentDb().OpenRecordset(req, dbOpenSnapshot)
compteur = 0
Do While Not r.EOF
If r("POL_DATE").Value - r("REPORT_DATE").Value = 3 Then
compteur = compteur + 1
End If
r.MoveNext
Loop
r.Close
MsgBox "Le nombre de livraison exacte est de :" & " " & compteur, vbOKOnly
End Sub

---

ca fonctionne très bien comme ca chez moi.

Ci joint un screenshot du contenu de ma table

est-ce que la référence DAO 3.6 est référencé dans VBE

ah oui, ca c la première chose à vérifier.

Essaye le code suivant chez moi j'ouvre les recordset de cette façon

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim r As Recordset Dim compteur As Integer Dim req As String Dim Bd as database   Set Bd = CurrentDb() req = "SELECT POL_DATE, REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO = '" & MANIFOLD & "'"   Set r = Bd.OpenRecordset(req, dbOpenDynaset)

---

attention aux espaces dans ta requête!

J'avais continuer les recherches sans voir vos réponses.

Dim r As DAO.Recordset permet de faire fonctionner le code.

Merci
@+
++

Bonjour,

J'ai eu le même problème, il y a qq jours.
J'ai posé la question à ce forum et la réponse qui a permis de résoudre ton problème est le suivant:

Dim r As dao.Recordset

Il faut évidemment référencer la bibliothèque dao dans ton projet

J'espère qu'il en sera de même pour toi.

Renart