Separare (splittare) valore di un form

[Enrique_Rojas]

Hola!

Ho una select che si popola di valori contenuti in un database access:

1-Lazio
2-Abruzzo
3-Molise

il valore selezionato dal form deve essere però separato quando lo scrivo nella tabella del dbase in questo modo:

ID_regione = 1
regione = Lazio

Ho provato nella ricerca con la parola SPLIT, ma la ricerca non funziona... mi suggerite qualcosa per favore?
Grazie

[rixx]

split(tuaselect, "-")

[gold]

split(tuaVar,"-")

[Enrique_Rojas]

Originariamente inviato da gold



split(tuaVar,"-")

Scusa non ti seguo... non ho capito...

[rixx]

tuorray = Split(tuavar, "-") 
parte1=tuoarray(0)
parte2=tuoarray(1)

[Enrique_Rojas]

Dove sbaglio?:

DIM ARR_DALFORM
ARR_DALFORM = split(REGIONE, "-")
  
Dim SQL
SQL = "INSERT INTO TBX (REGIONE, ID_REGIONE) VALUES ('"& ARR_DALFORM(0) &"', "& ARR_DALFORM(1) &" )"
Connection.Execute(SQL)

Indice non incluso nell'intervallo.: '[number: 1]'

[gold]

regione ha un qualcosa del tipo :


regione = request("tuaSelect")'quindi 1-abruzzo

ora avrai :

regione(0)'equivale a 1
regione(1)'equivale a abruzzo


ok ?

[Enrique_Rojas]

Originariamente inviato da gold
regione ha un qualcosa del tipo :


regione = request("tuaSelect")'quindi 1-abruzzo

ora avrai :

regione(0)'equivale a 1
regione(1)'equivale a abruzzo


ok ?

scusate ma non ci riesco:

DIM ARR_DALFORM
ARR_DALFORM = split(regione, "-")
regione0 = ARR_DALFORM(0)
regione1 = ARR_DALFORM(1)

  
Dim SQL
SQL = "INSERT INTO PCB_LAM (regione, ID_regione) VALUES ('"& regione0 &"', "& regione1&" )"
Connection.Execute(SQL)

[gold]

prova a stampare a video la query

[Enrique_Rojas]

Originariamente inviato da gold
prova a stampare a video la query

non la stampa, restituisce:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Indice non incluso nell'intervallo.: '[number: 1]'