Discussion :

[BM42]

Salut à Tous!

je revien vers vous avec une nouvelle question toute Bête.

Je voudrais savoir si il est possible d'afficher dans un textbox la somme d'une colonne d'un datagrid. Se textBox doit se mettre à jour en a la réactualisation du datagrid.

A+
Bernard

[Hatchepsout]

salut
oui tu peut afficher dans un textbox le sum des colones d'une datagrid mais par cete methode

Code :

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

1
2
 
Me.Text1.Text = (Me.DataGrid1.Columns.Count)

me=ta forme
text1= le textbox
datagrid= la datagrid

bonne chance

[BM42]

Salut Kajol

Merci pour ta réponse mais je ne veut pas conter le nombre de colonne de mon datagrid, mais faire la somme des valeurs contenues dans une colonne.

A+
Bernard

[zazaraignée]

Salut

Je n'ai pas le SQL tout frais en tête mais je sais que c'est via une requête SQL que tu arrivera à faire la somme sur un champ particulier d'une table. Tu peux jeter un coup d'oeil sur les articles que tu trouveras ici.

[NiGHtyWolf]

Bonsoir à toi,
Au faite, tu peux le faire en appliquant ce petit bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim Somme,i As Integer
 
'Si le DataSource de ton Datagrid est un controle Adodc fait comme suivant :
 
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Somme = 0
For i = 0 To Adodc1.Recordset.Recordcount
        'La propriétés Fields sert à determiner le champs désiré (0 pour le premier champs de ta table,1 pour le 2éme...etc)
        Somme = Somme + Adodc1.Recordset.Fields(0)
        Adodc1.Recordset.MoveNext
Next i
Text1.text = Somme
 
'******************************
'Sinon tu peux avoir les données directement depuis ton Recordset si tu le souhaite avec presque la même manière
 
Datagrid1.Refresh
Recordset1.MoveFirst
Somme = 0
For i = 0 To Recordset1.Recordcount
        'La propriétés Fields sert à determiner le champs désiré (0 pour le premier champs de ta table,1 pour le 2éme...etc)
        Somme = Somme + Recordset1.Fields(0)
        Recordset1.MoveNext
Next i
Text1.text = Somme

Tu peux aussi le faire en utilisant tout simplement une requête SQL comme l'exemple suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
Dim base As Database
Dim t As Recordset
Set base = OpenDatabase("Y:\bd.mdb")
Set t = base.OpenRecordset("select sum(champ1) as Somme from Table1")
Text1.Text = t.Fields(0)
End Sub

Y'a d'autres méthodes, mais je pense que c'est suffisant
Voilà

[BM42]

Salut à Tous

Je sais que c'est possible par une requette SQL, je voulais simplement savoir si il avait une méthode plus direct.
Apparament Non.
Mais se n'est pas grave je vais tester la solution de NiGHtyWolf (Juste pour le plaisir).

A+
Bernard

[BM42]

Me revoilou !!!

J'ais testé, J'ais apprécié, J'ais adopté !
Re

Mais juste pour info j'ais fait 2 p'tites modifs de rien du tout :

Code :

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

1
2
3
For i = 0 To Recordset1.Recordcount
Devient :
For i = 0 To Recordset1.Recordcount - 1

Puis pour revenir sur le premier enregistrement :

Code :

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

1
2
Text1.text = Somme
Recordset1.MoveFirst

je vous adore (Enfin .... )

A+