Query all'interno di ciclo for... next

[[trodat]]

Buongiorno a tutti; da un form a selezione multipla arrivano i seguenti valori:

72-PIPPO, 73-TIZIO, 74-CAIO, 75-SEMPRONIO

prevedo uno split per la separazione id e nome per ciascuno dei nomi:

personale = (Request.Form("personale"))

arrPer = Split(personale,", ")
for i=LBound(arrPer) to UBound(arrPer)
  arr = Split(arrPer(i),"-")
  sql = "INSERT INTO tabella (id, personale) VALUES (" & arr(0) & ", '" & Replace(arr(1),"'","''") & "')"
  cn.Execute(SQL)
next

ma la query inserisce soltanto 72-PIPPO nella tabella access:

INSERT INTO tabella (id_personale, personale) VALUES (72, 'PIPPO')

e gli altri valori????

Dove sbaglio????

[maximum]

Prova così:

personale = (Request.Form("personale"))

arrPer = Split(personale,", ")
for i=0 to UBound(arrPer)
  arr = Split(arrPer(i),"-")
  sql = "INSERT INTO tabella (id, personale) VALUES (" & arr(0) & ", '" & Replace(arr(1),"'","''") & "')"
  cn.Execute(SQL)
next

[[trodat]]

grazie, ma non cambia nulla...

[maximum]

A me inserisce tutte e quattro le righe. :master:

In allegato quello che mi stampa a video.

[kalosjo]

Fai un po' di debugging....

Fatti scrivere a video sia personale che tutti i valori degli array che crei.....

Qualcosa dovrà pure venir fuori...

[[trodat]]

Originariamente inviato da kalosjo
Fai un po' di debugging....

Fatti scrivere a video sia personale che tutti i valori degli array che crei.....

Qualcosa dovrà pure venir fuori...

Con response.write:

72-PIPPO, 73-CAIO, 74-SEMPRONIO, 75-TIZIO
72
PIPPO
INSERT INTO TABELLA (id, personale) VALUES (72, 'PIPPO')

Codice:

arrPer = Split(personale,", ")
for i = 0 to UBound(arrPer)
  arr = Split(arrPer(i),"-")
  response.write arr(0) & "
"
  response.write arr(1) & "
"
sql = "INSERT INTO tabella(id, personale) VALUES (" & arr(0) & ", '" & Replace(arr(1),"'","''") & "')"

[maximum]

Prova questo e dimmi cosa ti stampa:

arrPer = Split(personale,", ")
for i=LBound(arrPer) to UBound(arrPer)
  arr = Split(arrPer(i),"-")
  sql = "INSERT INTO tabella (id, personale) VALUES (" & arr(0) & ", '" & Replace(arr(1),"'","''") & "')"
  response.write(sql & "
")
  'cn.Execute(SQL)
next

[[trodat]]

... adesso funziona...

[maximum]

Meglio così, no?

[[trodat]]

Originariamente inviato da maximum
Meglio così, no?

Dopo la modifica che mi hai suggerito ho riavviato il server ed ha iniziato a funzionare... tante grazie, alla prossima!