Somma campi db access in vb6

[p73]

Perdonate la mia ignoranza...
...ma come faccio a fare la somma di alcuni campi di un db access e visualizzare il risultato in una label???

io provo così:
code:
-------------------------------------------------
Record.open "SELECT SUM(Importo) FROM Tabella WHERE=Iva'" & "4" & "'",db,adOpenStatic, adLockOptimistic
set Label=DataSource Record
---------------------------------------------------

...ma non vedo nulla. Dov'è l'errore???

P.S.
Il num 4 sta ad indicare la condizione WHERE, cioè la somma di tutti i record che hanno il valore 4 nel campo Iva.

[MMarzia]

Originariamente inviato da p73
io provo così:

  Record.open "SELECT SUM(Importo) FROM Tabella WHERE=Iva'"                 & "4" & "'",db,adOpenStatic, adLockOptimistic
  set Label=DataSource Record

  Record.open "SELECT SUM(Importo) FROM Tabella WHERE Iva = 4",db,adOpenStatic, adLockOptimistic

il tag per il codice è [*code]...[*/code], senza asterischi

[p73]

Ok...ma la Label continua a rimanere vuota

code
---------------------------------------------------
Set RsTempPro = New ADODB.Recordset
RsTempPro.Open "SELECT SUM(Importo) FROM TempPro WHERE Iva=4", dB, adOpenStatic, adLockOptimistic

Set f.lblImpIva4.DataSource = RsTempPro
----------------------------------------------------
/code

[p73]

...dov'è l'errore...forse è l'oggetto Label che che fa i capricci con il metodo .DataSource ???
..oppure sono io che sono gnucco???

[anatroccolo]

Ma oltre al comando SET per attribuire alla Label il Datasource (origine dati), nelle proprietà della label hai settato il nome del campo (mi sembra nome) della tabella.

Ciao

[p73]

Nelle proprietà dell'oggetto Label metto:
DataSurce=TempPro (il nome della Tabella)
DataField=Importo (il nome del campo)

ma nulla di nulla!

[p73]

Allora, con un pò di tenacia e pazienza ho risolto così:

code
----------------------------------------------------------
Set RsTempPro = New ADODB.Recordset
RsTempPro.Open "SELECT SUM(Importo) AS SommaImporto FROM TempPro WHERE Iva='" & "4" & "'", dB, adOpenStatic, adLockOptimistic

f.lblImpIva4.Caption = FormatNumber(RsTempPro.Fields("SommaImporto"), 2)

RsTempPro.Close
-----------------------------------------------------------
/code

!!!FUNZIONAAAAAAAAAAAA!!!

[p73]

Naturalmente GRAZIE a tutti, senza lo spunto non ci sarei arrivato così facilmente.

[cassano]

SELECT SUM(Importo) AS SommaImporto

mancava as sommaimporto ???

[p73]

..appunto. Mancava proprio quello!!! VVoVe: