Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    VB6 - sommare valore dei campi

    Ciao a tutti

    vorrei riuscire a capire come devo fare per poter sommare il valore di piu campi da una tabella Access 2002 con VB6. ? qualcuno sa aiutarmi?
    Mi spiego.
    in questa fase il programma che sto sviluppando effettua una serie di calcoli e salva il risultato in un campo di una tab_temporanea. dopo aver svolto tutti i salvataggi mi ritrovo con 10 - 15 records nella tabella. a qusto punto dovrei effettuare la somma di tutti 10 -15 valori per sapere il totale. Come svolgo tale operazione?
    es. tab_temporanea
    1 | 1254,9
    2 | 1200,8
    3 | 1506,7
    4 | 1254,5
    5 | 458,9
    ...
    ..
    dovrei fare 1254,9+ 1200,8+ 1506,7+ 1254,5+ 458,9 + ... = totale

    grazie per l'aiuto.
    Spero di essere stato chiaro La mia versione di Vb e la 6 con SP6
    Ciao
    il condor vola sempre piu in alto.....
    www.dirtyblackhole.altervista.org

  2. #2
    Devi leggere i dati che vuoi sommare e, con l'uso di una variabile temporanea, fai la somma.
    una cosa tipo:
    Do While not Rs.EOF
    temp = temp+ rs.fields("campoDaSommare")
    ...
    Posta il codice che usi per scorrere un campo del Db così posso esserti maggiormente d'aiuto a livello di codice, altrimenti andrei a memoria...

  3. #3
    Grazie per la risposta intanto..
    Code_:
    Data1.Recordset.AddNew
    If Txt_basemult.Text = "" Then
    MsgBox " Inserire un valore in Base", vbInformation, " Attenzione "
    ElseIf txt_altezzamult.Text = "" Then
    MsgBox " Inserire un valore in Altezza ", vbInformation, " Attenzione "
    Else
    app1 = Txt_basemult * 2
    app2 = txt_altezzamult * 2
    misura = app1 + app2
    telaio = misura + 6 + 10
    'MsgBox " il totale è " & telaio & " mm ", vbInformation, " TELAIO "
    app3 = txt_altezzamult - 80
    altezza_anta = app3 + 16
    End If
    If op_dueantemult = True Then
    app4 = Txt_basemult - 80
    app5 = (app4 + 32) / 2
    End If
    If op_monoantamult = True Then
    app6 = Txt_basemult - 80
    app7 = app6 + 16
    End If
    totale_barra = telaio + altezza_anta + app5
    appconteggio1 = totale_barra
    Text1.Text = totale_barra
    Data1.Recordset.Update

    ---------
    questa è la una parte di del calcolo che fa il porg. appoggiandosi a var temporanee + delle costanti. con un semplice update vado ad aggiornare la tabella con il risultato del calcolo.

    alla fine avro una tabella +/- come quella dell'esempio precedente e devo fare la somma di quei valori.
    ciao
    il condor vola sempre piu in alto.....
    www.dirtyblackhole.altervista.org

  4. #4
    qualcuno sa aiutarmi??

    Grazie
    il condor vola sempre piu in alto.....
    www.dirtyblackhole.altervista.org

  5. #5
    crei una variabile, poi con un ciclo per scorrere le righe della tabella la incrementi.

  6. #6
    Prova ad utilizzare la funzione SUM in un query dovrebbe restituirti la somma dei valori in un campo di una tablella.

  7. #7
    Grazie a tutti per l'aiuto ho risolto attraverso la funzione sum ( mardok30 )
    non la conocevo anche perche prima d'ora non ho mai avuto la necessita di sommare i campi.

    Cmq grazie ancora!

    e alla prossima!
    il condor vola sempre piu in alto.....
    www.dirtyblackhole.altervista.org

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.