claudio1962 (Normal User)
Newbie
Messaggi: 17
Iscritto: 25/08/2009
|
Salve a tutti,
in VB6 e ADO apro un database .dbf (Resoconto) il quale contiene Data e altri 8 colonne Spese1, Spese2 ecc..
Come posso fare per riportare la somma delle spese di ogni singola data su una colonna aggiuntiva tipo "TotSpese" nello stesso datagrid1 o in un Listbox.
Grazie
|
|
BugliL (Member)
Pro
Messaggi: 135
Iscritto: 09/08/2009
|
Postato originariamente da claudio1962:
Salve a tutti,
in VB6 e ADO apro un database .dbf (Resoconto) il quale contiene Data e altri 8 colonne Spese1, Spese2 ecc..
Come posso fare per riportare la somma delle spese di ogni singola data su una colonna aggiuntiva tipo "TotSpese" nello stesso datagrid1 o in un Listbox.
Grazie |
quando apri una tabella con "RecordSet.Open(NomeTabella)" inserisci una query al posto di nometabella che ti restituisci solo i dati che vuoi...
Se non sai che cos'è una query http://it.wikipedia.org/wiki/Query
Per riuscire a fare la somma si può usare la funzione "Sum(NomeCAmpo)" dell'SQL
Qui trovi degli esempi http://www.techonthenet.com/sql/sum.php
Dimmi se poi risolvi... |
|
claudio1962 (Normal User)
Newbie
Messaggi: 17
Iscritto: 25/08/2009
|
Il database lo apro così:
Codice sorgente - presumibilmente Visual Basic 6 |
rs.Open "SELECT * FROM Resoconto", cn, adOpenDynamic, adLockOptimistic, adCmdText
|
potrei paprirlo anche così
Codice sorgente - presumibilmente Plain Text |
rs.Open "SELECT Resoconto.spese1, spese2,
|
ma poi la somma di spese1, spese2 ecc.. di ogni singola riga
Grazie
|
|
BugliL (Member)
Pro
Messaggi: 135
Iscritto: 09/08/2009
|
Postato originariamente da claudio1962:
potrei paprirlo anche così
Codice sorgente - presumibilmente Plain Text |
rs.Open "SELECT Resoconto.spese1, spese2,
|
ma poi la somma di spese1, spese2 ecc.. di ogni singola riga
Grazie
|
Allora ancora meglio
Codice sorgente - presumibilmente Visual Basic 6 |
RS.Open "Select *,(Spese1 + Spese2 + Spese3 +...) as SpeseTotali from ...
|
|
|
claudio1962 (Normal User)
Newbie
Messaggi: 17
Iscritto: 25/08/2009
|
Ti rigrazio tantissimo ecco come ho risolto
Codice sorgente - presumibilmente Visual Basic 6 |
rs.Open "Select *,(val(spese1) + val(spese2) + val(spese3)) As Totspese FROM Resoconto ", cn, adOpenDynamic, adLockOptimistic, adCmdText
|
Grazie ancora
|
|
BugliL (Member)
Pro
Messaggi: 135
Iscritto: 09/08/2009
|
Lieto di averti aiutato
|
|