Vb6 - Aggiornare una tabella

[XVincentX]

Salve
Io conosco il metodo addnew per aggiungere, tramite recordset, una nuova riga alla tabella. Adesso però devo modificare un campo
Per esempio ho una tabella coi campi X e Y
Scrivendo nel programma il nome prodotto e la quantità e premendo il tasto, dovrebbe quindi modificare la quantità della tabella sommando la vecchia con la nuova appena inserita
Io ho provato a fare questo ciclo

rs.movefirst
do
rs.movenext
loop until rs.fields("prodotto") = "giocattolo"
rs.fields("quantita") = rs.fields("quantita") + val(quantita.text)

Questo mi da un errore nel blocco with ( che in effetti non esiste!)
Mi sapete aiutare?

[Mychy]

update nometabella set nomecampo=nuovovalore where nomecampo=criterio

[XVincentX]

una volta fatto questo faccio
query = la queri da eseguire
cs.execute query

[XVincentX]

E' andato, grazie, però ho un altro problema
Ho applicato questa funzione query su un altro database, però mi da uno strano errore

Tipo dati non corrispondenti nell'espressione criterio

E non mi fa continuare
Ho provato di tutto e ho cambiato tuttooo ma non va
MI sapete aiutare?

[Mychy]

Posta la query.
Attento agli apici

[XVincentX]

Grazie per l'attenzione
Ti scrivo come funziojna

dim query as string
query = "update anagprodotti set quantita_magazzino = " & risultato & " where cod_prodotto = " & codice
cs.execute query

Non capisco cosa sia errato, in un altro programma va benissimo

[giorgiogio48]

Se ho capito bene il tuo codice va scritto così:

dim query as string
query = "update anagprodotti set quantita_magazzino = '" & risultato & "' where cod_prodotto = '" & codice & "'"
cs.execute query

Ciao.

[XVincentX]

Hai ragiojne
Che pirla che sono

[XVincentX]

Ancora un ennesimo errore che mi sta facendo scervellare
Ho bisogno di fare la somma di una tabella e visualizzarlo in una label
Dopo le dovute connessioni di cs e rs

rs.open "tabella",cs,3,3
query = "SELECT SUM(anagprodotti.prezzototale) as sommadiprezzototale from anagprodotti"
cs.execute query
label.caption = rs.fields("sommadiprezzototale").value

La query E' STATA RIGOROSAMENTE GENERATA CON ACCESS
Quindi non dovrebbero esserci problemi (access non sbaglia), ma il maledetto visual basic mi dice
"Nessun valore specificato per alcuni parametri necessari"
Ma quali?
Ho fatto generare la query da access..come può sbagliare???
SOOOOB

[Brainjar]

La query che ti restituisce access è :
"SELECT SUM(anagprodotti.prezzototale) as sommadiprezzototale
from anagprodotti"

Ma sbagli ad eseguirla :

rs.open "tabella",cs,3,3
query = "SELECT SUM(anagprodotti.prezzototale) as sommadiprezzototale from anagprodotti"
cs.execute query
label.caption = rs.fields("sommadiprezzototale").value

dovrebbe essere :

query = "SELECT SUM(anagprodotti.prezzototale) as sommadiprezzototale from anagprodotti"
Set rs = cn.Execute(query)
rs = cs.execute query
label.caption = rs.fields("sommadiprezzototale").value

Ciao,