baol update: inserimento record

[lelo]

Ho aggiunto il seguente script per poi inserire gli altri campi del form in un db:

While Not .EOF
.....
.Save
.Database.Fields("autore") 		=.Form("cmbAutore")
.Database.Fields("sub_autore") 		=.Form("txtSub_autore")
.Database.Fields("argomento") 		=.Form("cmbArgomento")
.Database.Fields("titolo") 		=.Form("txtTitolo")
.Database.Fields("testo") 		=NomeProgetto&"/"&.GetFileName
.Database.Fields("visualizza_mode")     =.Form("cmbVisualizza_mode")
.Database.Fields("diritti") 		=.Form("cmbDiritti")
.Database.Fields("data") 		=ITADate
.Database.AddNew()
....

FUNZIONA, ma avendo creato una funzione alla quale si passa i calori dei campi e dei relativi valori in due variabili array, vorrei che automaticamente il record fosse generato attraverso:

...
.Save
arrcampo = Split(campo,"|")
arrvalore= Split(valore,"|")					
for i=0 to (ubound(arrcampo))	
	.Database.Fields(arrcampo(i))=arrvalore(i)
	.Database.AddNew()
...

ma non funziona!
Ho messo un response.write e le variabili array sono giuste:
dopo
.Database.Fields(arrcampo(i))=arrvalore(i)
ho messo:

response.write arrcampo(i) &"="& arrvalore(i) &"
"

:master:

[teorema55]

Prova

While Not .EOF
...
.Save
arrcampo = Split(campo,"|")
arrvalore= Split(valore,"|")					
for i=0 to (ubound(arrcampo))	
	.Database.Fields(arrcampo(i))=arrvalore(i)
next 	
.Database.AddNew()

.movenext '(immagino......)
...

[lelo]

E' già così!!!

[teorema55]

così....diverso da come lo avevi postato prima?

[lelo]

non ho capito cosa hai voluto dire, e era già come lo hai scritto tu!
Semplicemente avevo omesso di postare il restante codice.

Questo è quello che ho scritto io:

While Not .EOF
.Save
arrcampo 	= Split(campo,"|")
arrvalore 	= Split(valore,"|")
for i=0 to (ubound(arrcampo))
.Database.Fields(arrcampo(i))	=	arrvalore(i)
next
.Database.AddNew()
.MoveNext
Wend

[teorema55]

Semplicemente avevi omesso anche qualche istruzioncina intermedia, visto che con o senza quel

next

la solfa cambia di molto, ecco il motivo della mia domanda........se c'era già prima, allora sono anch'io in alto mare......



vediamo....

[lelo]

in effetti.....hai ragione

[lelo]

Problema risolto!
Praticamente se il valore di uno dei campa passati è nullo, il record non viene scritto, per cui escludendo i campi il cui lavore è nullo gira bene:

for i=0 to (ubound(arrCampo))
   if arrValore(i) <> "" then
      .Database.Fields(arrCampo(i))	=	arrValore(i)
   End If
next

avevo provato anche con:

i=-1
do
	i = i + 1
	if arrValore(i) <> "" then
		.Database.Fields(arrCampo(i))	=	arrValore(i)
	End If
loop while (i<>ubound(arrCampo))

Ma mi sembra un po + lento...è possibile questa cosa???

[teorema55]

Per la velocità di esecuzione non saprei, penso solo che per rendertene conto così a occhio dovresti avere moltissimi dati....se ti interessa approfondire la cosa, puoi cominciare a far eseguire la stessa procedura sugli stessi dati prima con un metodo, poi con l'altro, e controllare il tempo impiegato così:

a=timer
....
procedura 1
....		
b=timer
	
response.write "Tempo impiegato: " & b-a & "
"

c=timer
....
procedura 2
....		
d=timer
	
response.write "Tempo impiegato: " & d-c & "
"

Se gli intervalli sono troppo piccoli fai eseguire ogni procedura qualche migliaio di volte, con un ciclo for.

Ciao

[lelo]

E' più veloce il ciclo for!!!