Inserire più record contemporaneamente

[Prof_Mauri]

Ciao a tutti, per inserire gli appuntamenti presi per ogni cliente uso un form con il quale inserisco un appuntamento per volta, tuttavia poichè può capitare di dover prendere più di un appuntamento per lo stesso cliente ho cercato di capire come fare ed ho trovato questa soluzione : nella pagina con il form ho il seguente

<form method="POST" action="Inserimento_App_ora.asp">
Cliente<select name="IDCliente"><option value="">seleziona</option></select>


Data<input type="text" name="Data">
</p>


Ora<input type="text" name="Ora">
</p>


Descrizione<input type="text" name="Descrizione" size="100">
</p>


Data<input type="text" name="Data2">
</p>


Ora<input type="text" name="Ora2">
</p>


Descrizione<input type="text" name="Descrizione2" size="100">
</p>


Data<input type="text" name="Data3">
</p>


Ora<input type="text" name="Ora3">
</p>


Descrizione<input type="text" name="Descrizione3" size="100">
</p>


<input type="submit" value="Invia" name="x"></p>
</form>

e nella pagina di inserimento nel database ho il seguente

IDCliente=request.form("IDCliente")
a=request.form("Data")
b=request.form("Ora")
c=request.form("Descrizione")

d=request.form("Data2")
e=request.form("Ora2")
f=request.form("Descrizione2")

g=request.form("Data3")
h=request.form("Ora3")
i=request.form("Descrizione3")

set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\...mdb")
a = replace(a,"'","''")
b = replace(b,"'","''")
c = replace(c,"'","''")

d = replace(d,"'","''")
e = replace(e,"'","''")
f = replace(f,"'","''")

g = replace(g,"'","''")
h = replace(h,"'","''")
i = replace(i,"'","''")
%>

<% If d="" And e="" And f="" And g="" And h="" And i="" then

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

else

If g="" And h="" And i="" then

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& d &"', '"& e &"','"& f &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

else

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& a &"', '"& b &"','"& c &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& d &"', '"& e &"','"& f &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

sql = "INSERT INTO App_ora "&_
"([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
"VALUES ('"& g &"', '"& h &"','"& i &"',"& IDCliente &")"
OBJdbConnection.Execute(sql)

End If
End If

OBJdbConnection.Close
set OBJdbConnection = nothing%>

Ora il dubbio è se questo modo sia l'unico oppure se ce n'è qualcun'altro migliore, in quanto chiaramente questo su indicato è veramente poco "malleabile".

[optime]

puoi usare gli array

[Prof_Mauri]

Caio, scusate ma siccome non sono riuscito a trovare granchè su come utilizzare gli array per il mio obiettivo, qualcuno potrebbe darmi qualche aiuto? please

[wallrider]

scusa vado di fretta, ti do una traccia

for i = 1 to 3
    dt=request.form("Data"& i)
    o=request.form("Ora"& i)
    ds=request.form("Descrizione"& i)
next

se nel ciclo metti anche le insert il gioco è fatto!

[Prof_Mauri]

Ti ringrazio per l'intenzione e mi scuso, ma così non capisco cmq; magari appena torni mi dai qualche chiarimento ed indicazione in più?

[Prof_Mauri]

Ciao a tutti, purtroppo non sono riuscito a trovare guide o esempi attinenti con il mio problema, chi può darmi una mano?

[Prof_Mauri]

Incredibile, non ci crederete ma ho cercato tutto il pomeriggio invano,senza trovare nulla inerente il mio porblema!!! ma è mai possibile? non c'è nulla neanche nel w3Schools !qualcuno mi potrebbe dire dove posso trovare indicazioni in merito? please

[Roby_72]

Non capisco cosa cerchi, l'esempio ti è già stato dato...

<form method="POST" action="Inserimento_App_ora.asp">
Cliente<select name="IDCliente"><option value="">seleziona</option></select>


Data<input type="text" name="Data1">
</p>


Ora<input type="text" name="Ora1">
</p>


Descrizione<input type="text" name="Descrizione1" size="100">
</p>


Data<input type="text" name="Data2">
</p>


Ora<input type="text" name="Ora2">
</p>


Descrizione<input type="text" name="Descrizione2" size="100">
</p>


Data<input type="text" name="Data3">
</p>


Ora<input type="text" name="Ora3">
</p>


Descrizione<input type="text" name="Descrizione3" size="100">
</p>


<input type="submit" value="Invia" name="x"></p>
</form>

IDCliente=request.form("IDCliente")

for i = 1 to 3
    dt=trim(request.form("Data"& i))
    o=trim(request.form("Ora"& i))
    ds=trim(request.form("Descrizione"& i))
    ds = replace(ds,"'","''")

    sql = "INSERT INTO App_ora "&_
       "([Data Appunt],[Ora],[Descrizione],[IDCliente]) "&_
       "VALUES ('"& dt &"', '"& o &"','"& ds &"',"& IDCliente &")"
    OBJdbConnection.Execute(sql)
next

Roby

[Prof_Mauri]

Graze per l'aiuto, non riuscivo proprio, però così non funziona allo stesso modo del precedente, ossia se inserisco i dati solo per un appuntamento lasciando gli altri campi vuoti mi da errore. Come risolvo?

[Roby_72]

Controllando prima della insert che le variabili contengano qualcosa...
Quante volte l'avrai fatto questo controllo?

Roby