Split e query insert into

[ubbicom]

bentrovati.

da un form dati recupero la seguente stringa:

CM1,,,,CS1,,,,CS4,,,,CS5,,,,CS6,,,,CS7,Ins,1,1,CS8,Suf,2,2,

La splitto per virgola ed ottengo una lista di valori:

    strSplitDati = Split(Request.Form("dati"), ",")
    
        for i = LBound(strSplitDati) to UBound(strSplitDati)
	       response.write(strSplitDati(i) & "

" )
        next

Adesso come faccio per inserire questi dati restituiti dallo split in una tabella mysql?
non conosco a priori la lunghezza della stringa e quindi il numero di valori da splittare.

I dati andrebbero inseriti nel db quattro x volta, cioè così:

CM1,,,,
CS1,,,,
...
CS7,Ins,1,1,
CS8,Suf,2,2,

Sapete aiutarmi?
Vi ringrazio

[optime]

con un ciclo step 4

[ubbicom]

grazie

ho modifciato lo split per virgola in questo modo:

    strSplitDati = Split(Request.Form("dati"), ",")
    
        for i = LBound(strSplitDati) to UBound(strSplitDati) step 4
	       response.write(strSplitDati(i) & "

" )
        next

e la query insert into l'ho scritta così ( all'interno del ciclo for... next di sopra ):

strSql = " INSERT INTO "
strSql = strSql & " tbl "
strSql = strSql & " ( "
strSql = strSql & "   testo_A, "
strSql = strSql & "   testo_B, "
strSql = strSql & "   numero_A, "
strSql = strSql & "   numero_B "
strSql = strSql & " ) "
strSql = strSql & "   VALUES "
strSql = strSql & " ( "
strSql = strSql & "  '" & strSplitDati(0) & "', "
strSql = strSql & "  '" & strSplitDati(1) & "', "
strSql = strSql & "   " & strSplitDati(2) & ", "
strSql = strSql & "   " & strSplitDati(3) & " "
strSql = strSql & " ) "
cn.execute strSql

Non dà errori ma nel db inserisce, per tutto il ciclo, soltanto il valore del primo risultato dello split, cioè questo:

INSERT INTO tbl ( testo_A, testo_B, numero_A, numero_B ) VALUES ( 'CM1', '', , )

Perchè?

[optime]

la insert va nel ciclo

[ubbicom]

Originariamente inviato da optime
la insert va nel ciclo

la insert è già nel ciclo... ma stampa "n" query tutte uguali....

    strSplitDati = Split(Request.Form("dati"), ",")
    
        for i = LBound(strSplitDati) to UBound(strSplitDati) step 4
	       response.write(strSplitDati(i) & "

" )

        strSql = " INSERT INTO "
        strSql = strSql & " tbl "
        strSql = strSql & " ( "
        strSql = strSql & "   testo_A, "
        strSql = strSql & "   testo_B, "
        strSql = strSql & "   numero_A, "
        strSql = strSql & "   numero_B "
        strSql = strSql & " ) "
        strSql = strSql & "   VALUES "
        strSql = strSql & " ( "
        strSql = strSql & "  '" & strSplitDati(0) & "', "
        strSql = strSql & "  '" & strSplitDati(1) & "', "
        strSql = strSql & "   " & strSplitDati(2) & ", "
        strSql = strSql & "   " & strSplitDati(3) & " "
        strSql = strSql & " ) "
        cn.execute strSql

        next

[optime]

certo... se usi 0,1,2,3 ....

usa i, i+1, i+2, i+3 !

[ubbicom]

Ah!....

OK ho modificato così:

    strSplitDati = Split(Request.Form("dati"), ",")
    
        for i = LBound(strSplitDati) to UBound(strSplitDati) step 4
	       response.write(strSplitDati(i) & "

" )

        strSql = " INSERT INTO "
        strSql = strSql & " tbl "
        strSql = strSql & " ( "
        strSql = strSql & "   testo_A, "
        strSql = strSql & "   testo_B, "
        strSql = strSql & "   numero_A, "
        strSql = strSql & "   numero_B "
        strSql = strSql & " ) "
        strSql = strSql & "   VALUES "
        strSql = strSql & " ( "
        strSql = strSql & "  '" & strSplitDati(i) & "', "
        strSql = strSql & "  '" & strSplitDati(i+1) & "', "
        strSql = strSql & "   " & strSplitDati(i+2) & ", "
        strSql = strSql & "   " & strSplitDati(i+3) & " "
        strSql = strSql & " ) "
        cn.execute strSql

        next

ma ad un certo punto dice:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 29]'

/db.asp, line 157

dove la lines 157 è questa:

strSql = strSql & "  '" & strSplitDati(i+1) & "',

[optime]

devi accertarti di avere 4x elementi. se ne hai - ad esempio - 17 lo script va in errore

[ubbicom]

Originariamente inviato da optime
devi accertarti di avere 4x elementi. se ne hai - ad esempio - 17 lo script va in errore

Scusa ma io non so prima quanti elementi del form avrò da splittare... o non ho capito?

[optime]

scusa, in generale, come fai a fare le cose a blocchi di 4 se il totale NON è un multiplo di 4?