Requete SQL

Salut, je viens ver vous pour je l'espére une réponce qui porte sur une requete SQL.
La demande : fair la somme de 3colonnes (resulta de chaque colonne dans un labels), par rapport à un client (liste dans une datacombo), et d'une date (DTPicker) . je travail sous VB6 et la base et access 2000 merci de votre aide.

Salut,
De mémoire je dirai

SELECT SUM(NomCol1) AS Somme1, SUM(NomCol2) AS Somme2, SUM(NomCol3) AS Somme3 FROM NOM_TABLE WHERE Nom_Client =  '" & DTCombo.Value & "' AND DATE  =  " &  DTPicker.Value

@+: Ju£i€n
Pensez: Réponse acceptée

salut,
avec peut-être des "#" encadrant les dates.
et restera à ajouter les 3 sommes

++

---

Prenez un instant pour répondre à ce sondage svp

MERCI, Je test votre requete A+

Voici le code souce il ne marche pas comme je le voudrai, quant la combo et vide et que je me sert du DTPicker il me fitre bien les enregistrements mais il ne me fais pas le total de ce qui trouve ? ?

On Error GoTo toto
If Not DataCombo1.Text = "" Then


sql = "SELECT Sum(cheque) AS totalcheq,Sum(cb) AS totalcb,Sum(especes) AS totales From vente" & _
" where client ='" & DataCombo1.Text & "' AND date_service >= #" & Date_Deb & "#"





Else

sql = "SELECT Sum(cheque) AS totalcheq,Sum(cb) AS totalcb,Sum(especes) AS totales From vente where date_service >= #" & Date_Deb & "#"
End If

rst1.CursorType = adOpenKeyset
rst1.Open sql, conn
If rst1.RecordCount > 0 Then
Label8.Caption = rst1("totalcheq")
Label7.Caption = rst1("totalcb")
Label9.Caption = rst1("totales")

rst1.Close

Label10.Caption = Val(Replace(Label7.Caption, ",", ".")) + Val(Replace(Label8.Caption, ",", ".")) + Val(Replace(Label9.Caption, ",", "."))
toto:
If Err = 94 Then
MsgBox "Plus d'enregistrements"
Adodc1.Refresh
Label8.Caption = ""
Label7.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
rst1.Close
End If
End If

enlève la gestion d'erreur pour voir sur quelle ligne VB bloque....

En fait j'ai pas d'erreurs les lignes exécutes normalement (mode pas à pas) mais la somme ne correspond pas avec mes enregistrements qui son affichées .

et si avant ton  rst1.Close tu fais

Label10.Caption=cstr(rst1("totalcheq")+rst1("totalcb")+rst1("totales"))

---

Prenez un instant pour répondre à ce sondage svp

Bonjour, et merci davoir répondus j'ai trouvé mon probléme (format de la date)que je donne pour ce comme mois on eu des probléme merci #" & Format(Date_Deb, "mm/dd/yyyy") & "#"