[VB6] Efficienza di codice che effettua UPDATE su database

[mamupapers]

Ho una maschera per inserimento ordinazioni dove è possibile inserire il codice (Codice) di un prodotto e la quantità acquistata (Ordinati). I dati inseriti vanno a popolare delle normali List che scorro tramite un ciclo for next. La procedura qui riportata mi è sembrata la più semplice da un punto di vista di programmazione, ho idea che non sia certo la migliore a livello di prestazioni!!
Qualche idea su come alleggerire il lavoro sul database? (Access 2000, ADO 2.8 e Jet 4.0)

For i=0 to 20
SQL = "SELECT Ordinati,Scorte FROM TblOrdini where Codice='" & ListCodice.List(i) & "'"

Rs.Open SQL, connectString
ordinati_vecchio = Rs("Ordinati")
ordinati_nuovo = ordinati_vecchio + ListQuantita.List(i)
scorte_vecchio = Rs("Scorte")
scorte_nuovo = scorte_vecchio - ListQuantita.List(i)
Rs.Close

SQL = "UPDATE TblOrdini set Ordinati='" & ordinati_nuovo & "',Scorte='" & scorte_nuovo & "',ultimoOrdine='" & ora & "' where Codice='" & ListCodice.List(i) & "'"
Cn.Execute SQL

Next i

Grazie per l'aiuto!!

[oregon]

A prima vista, potresti fare tutto con una UPDATE in un ciclo for

For ...
UPDATE ...
Next

[mamupapers]

A prima vista, potresti fare tutto con una UPDATE in un ciclo for

For ...
UPDATE ...
Next

intendi così?

For i=0 to 20
SQL = "SELECT Ordinati,Scorte FROM TblOrdini where Codice='" & ListCodice.List(i) & "'"
Rs.Open SQL, connectString
SQL = "UPDATE TblOrdini set Ordinati='" & Rs("Ordinati") + ListQuantita.List(i) & "',Scorte='" & Rs("Scorte") - ListQuantita.List(i) & "',ultimoOrdine='" & ora & "' where Codice='" & ListCodice.List(i) & "'"
Cn.Execute SQL
Rs.Close

Next i

in termini di lavoro sul db rimango sempre ad una SELECT per ottenere i dati precedenti e una UPDATE per modificarli..oppure c'è un modo per evitare la SELECT?

[oregon]

Intendevo cosi' ...

For i=0 to 20
  Cn.Execute "UPDATE TblOrdini set Ordinati=Ordinati + " & CStr(ListQuantita.List(i)) & ", Scorte=Scorte - " & Cstr(ListQuantita.List(i)) & ", ultimoOrdine='" & ora & "' WHERE Codice='" & ListCodice.List(i) & "'"
Next i

[mamupapers]

Ah... non sapevo che mi potessi riferire direttamente ai campi della tabella in questo modo

Grazie!