cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 2015
-
11 oct. 2005 à 12:40
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 2013
-
11 oct. 2005 à 15:43
Bonjour
Peut on additionné des nombres qui se trouvent dans une BD acces.
En fait dans ma BD jai 16 champs, les Equipes et les Scores, je voudrais additionné le résultat de léquipe A de léquipe B, .. Etc. et d'affiché le résultat des 4 équipes dans un label qui se trouve dans une FORM.
merci
@ plus
petchy
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 20131 11 oct. 2005 à 12:54
juste une idée, pas testé:
Dim cresul As New ADODB.Connection
Dim resultatA As New ADODB.Recordset, resultatB As New ADODB.Recordset, cresul.Provider = "Microsoft.Jet.OLEDB.4.0"
cresul.ConnectionString = "C:\resultat.mdb"
Set resultatA New ADODB.Recordset: Set resultatB New ADODB.Recordset:
cresul.Open
resultatA.Open "SELECT DISTINCT Field1 FROM resultat", cresul
resultatA.MoveFirst
resultatA.Open "SELECT DISTINCT Field2 FROM resultat", cresul
resultatA.MoveFirst
If resultatA.RecordCount <> 0 Then
Do While Not resultatA.EOF
monresultat= resultatA(0) + resultatB(0)
textbox.text= textbox.text & monresultat
resultatA.MoveNext
Loop
End If
Set resultatA = Nothing
cs_petchy
Messages postés710Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention19 mai 20154 11 oct. 2005 à 13:49
bonjour
merci Lacomm pour ton code mais ça ne fonctionne pas,car je n'ait de champ nomé "resultat",j'ai essayé de créer se champ en mettant comme valeur "[score1] + [score2]"mais il refuse,auriez vous une autre idée.
petchy
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 20131 11 oct. 2005 à 14:45
sorry tu dois supprimer DISTINCT du code, qui classe les cellulles par ordre croissant.
ca marche j'ai testé.
'vérifier la référence à ADO dans project
Dim cresul As New ADODB.Connection
Dim resultatA As New ADODB.Recordset, resultatB As New ADODB.Recordset
cresul.Provider = "Microsoft.Jet.OLEDB.4.0"
cresul.ConnectionString = "C:\resultat.mdb"
Set resultatA = New ADODB.Recordset
Set resultatB = New ADODB.Recordset:
cresul.Open
'resultatA= recordset, copie du champ 1 de ta table resultat
resultatA.Open "SELECT Field1 FROM resultat", cresul
resultatA.MoveFirst
resultatA.Open "SELECT Field2 FROM resultat", cresul
resultatA.MoveFirst
If resultatA.RecordCount <> 0 Then
Do While Not resultatA.EOF
monresultat= resultatA(0) + resultatB(0)
textbox.text= textbox.text & monresultat
resultatA.MoveNext
Loop
End If
Set resultatA = Nothing