[vb6 access2000]Recuperare la somma di un campo

[axsw]

Ciao a tutti, domanda:
Come faccio faccio a fare la somma di tutti i prezzi presenti in un campo "Prezzi" di un database access e stamparla in una text box.
Mettiamo che nel campo prezzi ci siano 25 prezi diversi tra loro a me servirebbe la somma di essi.
Connessione esclusa quella fuziona e visualizzo già i record.
Grazie a tutti anticipatamente.

[Brainjar]

Nella SELECT :

    rs.Open "SELECT SUM(NomeDelCampo) FROM NomeDellaTabella"
  
    Text1.Text = rs.Field(0)

Ciao,

[axsw]

Grazie Brain mi spieghi un ultima cosa?

Text1.Text = rs.Field(0)
che significa?

La mia tabella si chiama "inventario" il campo si chiama "Prezzi"
in pratica io dovrei fare così

    rs.Open "SELECT SUM(Prezzi) FROM inventario"
  
    Text1.Text = rs.Field(0)

rs.Field(0) non lo capisco.

[xegallo]

Originariamente inviato da axsw

    rs.Open "SELECT SUM(Prezzi) FROM inventario"
  
    Text1.Text = rs.Field(0)

rs.Field(0) non lo capisco.

se a SUM(Prezzi) non dai un alias ovvero SUM(Prezzi) as SOMMAPREZZI il db di solito inventa lui un nome e di solito li chiama con numeri progressivi partendo da 1 (perchè 1 poi non lo so) scrivendo rs.Field(0) ti rifetisci al campo con indice 0 (indice non nome) poichè ado indicizza partendo da 0

[axsw]

Ciao e Grazie Peregallo, il problema è che io non uso ADO purtroppo
ma mi creo l'oggetto (penso di passare presto a vb.net e di usare ADO) vi scrivo la stringa che ho provato a fare sperando di semplificarvi il compito nell aiutarmi.

Dim mydata As Database 
Dim myrecord As Recordset
Dim SQL As String

   Set mydata = OpenDatabase(App.Path + "\" + "portebl1.mdb")
    SQL = "SELECT * FROM accessori"
     Set myrecord = mydata.OpenRecordset(SQL)
    SQL = "SELECT SUM(prezzi)FROM accessori"
   Text1.Text = myrecord.Fields(0)(SQL)

Ma non funziona
Ciao e grazie di nuovo

[Acaro]

ciao scusami..
ma la risposta che ti ha data xgallo...nn ti funziona...e cosa nn ti funziona..???
che usi...dao?

[Brainjar]

Intanto grazie Xegallo, per aver risposto (ero in pausa pranzo).
Se non ti funziona così come l'hai scritta 'forse' è
perchè manca lo spazio tra FROM e quanto precede

Dim mydata As Database 
Dim myrecord As Recordset
Dim SQL As String

   Set mydata = OpenDatabase(App.Path + "\" + "portebl1.mdb")
    SQL = "SELECT * FROM accessori"
     Set myrecord = mydata.OpenRecordset(SQL)
    'SQL = "SELECT SUM(prezzi)FROM accessori"
    SQL = "SELECT SUM(prezzi) FROM accessori" 
   Text1.Text = myrecord.Fields(0)(SQL)

Ciao,

[Brainjar]

Dimenticavo,
togli quel '(SQL)' dall'istruzione

    'Text1.Text = myrecord.Fields(0)(SQL)
    Text1.Text = myrecord.Fields(0)

Ciao,

[axsw]

Brain ci siamo ma non funziona ancora
Ora nella text1 mi stampa stampa il 1° campo che è il campo "nome"
Vi ringrazio tutti Tantissimo.

[Brainjar]

Guardando meglio il tuo codice, non ti funziona, oltre alle
correzioni che ti ho postato, perchè non esequi la select per
estrarre il totale !

Dim mydata As Database 
Dim myrecord As Recordset
Dim myTotRec As Recordset
Dim SQL As String

   Set mydata = OpenDatabase(App.Path + "\" + "portebl1.mdb")
    SQL = "SELECT * FROM accessori"
    Set myrecord = mydata.OpenRecordset(SQL)
    ' myrecord ora contiene i record della prima select     
     SQL = "SELECT SUM(prezzi) FROM accessori" 

    ' Questa Select mancava ! 
    Set myTotRec = mydata.OpenRecordset(SQL)

    ' myTotRec ora contiene il record della seconda select     
    Text1.Text = myTotRec.Fields(0)

Ciao,