Problème avec un Select sum

Signaler
Messages postés
18
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
16 juillet 2004
-
Messages postés
18
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
16 juillet 2004
-
Encore moi désolé,

je désire faire une somme de l'un de mes champs et l'attribuer a une variable. J'obtiens le message d'erreur " "

Dim MaBase As String
Dim Db2 As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim somme As Integer

MaBase = "C:\Documents and Settings\pat\Bureau\VB\Projet\bd1.mdb"
Db2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBase

Set Rs = Db2.Execute("SELECT sum(tot_cout) FROM gdp")

somme = Rs("sum(cout)")
total.Caption = somme

prenom.Caption = Rs("total")

Rs.Close

Db2.Close

2 réponses

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
("SELECT sum(tot_cout)as Somme FROM gdp"
ResultatSomme = IIf(IsNull(Rs("Somme")), 0, Rs("Somme"))

It@li@
Messages postés
18
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
16 juillet 2004

Merci énormément, vraiment sympa, ca marche impec. Tu es vn vrai boss

Merci encore