ciclo for e campi vuoti

[Sandra]

Ciao a tutti, se faccio l'inserimento tramite form multiplo riempiendo tutti i campi nessun problema. Invece se lascio una riga di campi vuoti ho questo messaggio di errore.

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.


Come posso inserire un controllo all'interno del ciclo for in caso che una riga di campi non sono stati compilati?

Ho fatto una ricerca sul forum, senza trovare soluzione.


Grazie.

[yro]

non ho capito cosa intendi con riga di campi?

[Santino83_02]

provi ad usare gli if?

dipende da com'è sto ciclo for e perchè c'è il ciclo for

[Sandra]

Vi spiego ho una piccola script javascript dove aggiungo campi dinamicamente che sono:
IdArticolo, Quantità, Prezzo_Vendita. Poi altri campi fissi.....


Recupero tutti i campi com request.form, faccio lo split solo su i tre campi indicati sopra.

poi for i=0 to ubound(VarIdArticolo)

e infine inserimento di tutti i campi.


Spero di essermi spiegata bene. Sto studiando per cui faccio un di pò confuzione.


Grazie.

[optime]

Originariamente inviato da Sandra
Spero di essermi spiegata bene. Sto studiando per cui faccio un di pò confuzione.

decisamente! e comunque per me non è chiaro... posti un po' di codice? grazie

[Sandra]

Dopo tanti anni in Italia il mio Italiano è ancora in fase di miglioramento.

<%
dim i
dim DataInserimento
dim IdCliente
dim IdArticolo
dim Quantita
Dim Prezzo_Vendita
dim Stato
dim DataAcquisto
dim Pagamento
dim DataScadenza
dim Assegno
dim Girato_A
dim EmissioneAssegno
dim ScadenzaAssegno
dim VarIdArticolo
dim VarQuantita
Dim VarPrezzo_Vendita
dim VarIdCliente
dim VarStato
dim VarDataAcquisto
dim VarPagamento
dim VarDataScadenza
dim VarAssegno
dim VarGirato_A
dim VarEmissioneAssegno
dim VarScadenzaAssegno
VarIdArticolo=split(request.form("IdArticolo"),",")
VarQuantita=split(request.form("Quantita"),",")
VarPrezzo_Vendita=split(request.form("Prezzo_Vendita"),",")
VarIdCliente=request.form("IdCliente")
VarStato=Replace(request.form("Stato"),"'","''")
VarPagamento=Replace(request.form("Pagamento"),"'","''")
VarDataAcquisto = Request.Form("DataAcquisto")
VarDataScadenza=request.form("DataScadenza")
VarAssegno=Replace(request.form("Assegno"),"'","''")
VarGirato_A=Replace(request.form("Girato_A"),"'","''")
VarEmissioneAssegno=request.form("EmissioneAssegno")
VarScadenzaAssegno=request.form("ScadenzaAssegno")
%>
<%
DataInserimento = Day(Date())  & "/" & Month(Date())& "/" & Year(Date())
dim conn, rs, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/magazzino.mdb")
%>
<%
for i=0 to ubound(VarIdArticolo)
sql = "INSERT INTO tblOrdini (IdArticolo,Quantita,Prezzo_Vendita,IdCliente,Stato,Pagamento,DataAcquisto,DataScadenza,Assegno,Girato_A,EmissioneAssegno,ScadenzaAssegno,DataInserimento)"
sql = sql & " values (" 
sql = sql & "" & VarIdArticolo(i) & ", "
sql = sql & "" & VarQuantita(i) & ", "
sql = sql & "" & VarPrezzo_Vendita(i)&", "
sql = sql & "" & VarIdCliente & ", "    
sql = sql & "'" & VarStato& "', "    
sql = sql & "'" & VarPagamento& "', "    
sql = sql & "'" & VarDataAcquisto& "', "    
sql = sql & "'" & VarDataScadenza& "', "
sql = sql & "'" & VarAssegno& "', "
sql = sql & "'" & VarGirato_A& "', "
sql = sql & "'" & VarEmissioneAssegno& "', "
sql = sql & "'" & VarScadenzaAssegno& "', "
sql = sql & "'" & DataInserimento& "')"
conn.execute(sql)
sql = "UPDATE tblArticoli SET Quantita_Totale = Quantita_Totale - " & VarQuantita(i) & " where IdArticolo=" & VarIdArticolo(i)
conn.execute(sql)
%>
<%
next
%>
<%
conn.Close
set conn = Nothing
response.redirect "ok_inserimento.asp"
%>

[Sandra]

Pensavo che sa cosa dovevo scrivere, invece.......

IF VarIdArticolo(i) <> "" THEN