aggiornare quantità

[FICUZ]

Ho un db con due tabelle ordini e prodotti. Io vorrei sottrarre al campo quantità della tabelle prodotti il numero di prodtti ordinati contenuti nel campo qord. Come posso aggiornare il campo quantità della tabelle prodotti con il nuovo risultato? Ho provato di tutto ma ho sempre una serie di errori e non so più come fare, mi potete aiutare? grazie

[Roby_72]

Vediamo la tua query.

Roby

[FICUZ]

gli errori si sprecheranno ma sono un autodidatta e si cresce lentamente quindi...

<%
sql="Select quantita, product_id ,order_quantity, order_userID, order_productID " &_
"from orders,Products " &_
"where order_userID=" & userID
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open sql, Con
pid =Rs("order_productID")
while not RS.eof
sqlstring="Update Products Set quantita=(quantita- order_quantity) " &_
"where product_id=" & pid
Con.Execute sqlstring
Rs.movenext
wend

Rs.Close
Set Rs=nothing %>

[Roby_72]

<% 
sql="Select quantita, product_id ,order_quantity, order_userID, order_productID " &_ 
"from orders,Products " &_ 
"where order_userID=" & userID 
Set Rs= Server.CreateObject("ADODB.Recordset") 
Rs.open sql, Con 
pid =Rs("order_productID") 
order_quantity = Rs("order_quantity")
while not RS.eof 
sqlstring="Update Products Set quantita = quantita - order_quantity " &_   
"where product_id=" & pid 
Con.Execute sqlstring 
Rs.movenext 
wend 

Rs.Close 
Set Rs=nothing %>

Roby

[FICUZ]

mi da questo errore nella riga di esecuzione delle query
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1

[Roby_72]

<% 
sql="Select quantita, product_id ,order_quantity, order_userID, order_productID " &_ 
"from orders,Products " &_ 
"where order_userID=" & userID 
Set Rs= Server.CreateObject("ADODB.Recordset") 
Rs.open sql, Con 
while not RS.eof 
pid =Rs("order_productID") 
order_quantity = Rs("order_quantity")
sqlstring="Update Products Set quantita = quantita - order_quantity " &_   
"where product_id=" & pid 
Con.Execute sqlstring 
Rs.movenext 
wend 

Rs.Close 
Set Rs=nothing %>

Roby