PDA

Visualizza la versione completa : [VB] un consiglio


Rossella_75
26-11-2002, 15:22
Rieccomi....:gren:

ho un database con dntro memoriazzati dei dati in questo modo

(campo data) "10 novembre 2002" (campo euro) "18,30"
(campo data) "20 novembre 2002" (campo euro) "15,30"

ecc..

io trammite una ricerca vorrei stampare su una form tutti risultati del mese di novembre e poi fare la somma del campo euro,

il mio problema come stampare tutti i risultati e poi fare la somma

vi ricordo che sono una principiante di VB ed ho trovato sempre sul forum questo codice che funziona per fare la ricerca



Dim sqlstring As String
Dim db As Database
Dim rs As Recordset

sqlstring = "select * from tabella where data like '*" & Replace(data, "'", "''") & "*'"
Set db = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs = db.OpenRecordset(sqlstring)
Set Data.Recordset = rs
If Not Data.Recordset.EOF Then
Do While Not Data.Recordset.EOF
List1.AddItem (Data.Recordset.Fields("data") & " - " & (Data.Recordset.Fields("euro"))
Data.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If

rs.Close


ma questo mette i risultati dentro un list e poi come faccio a fare la somma del campo "euro"


Grazie mille


:ciauz: :ciauz:

Toeke
26-11-2002, 16:17
Ti crei una variabile e ogni volta che vai a leggere l'importo lo aggiungi alla variabile.


Es concreto

dim TotEuro
dim Euro


nel ciclo while dove fai la List1.AddItem
Euro = Data.Recordset.Fields("euro")
TotEuro = TotEuro + Euro
next
alla fine TotEuro sara' il totale del tuo List1

Risposta buttata di getto quindi potrebbero esserci delle imperfezioni

:ciapet:

Loading