mi aiutate con uno split?

[Roby_72]

Originariamente inviato da Roby_72
I campi dopo il VALUES vanno tra virgolette se sono campi numerici (come nel mio esempio) altrimenti anche tra apici se sono campi di tipo testo.

Roby

Mi quoto da solo!

Roby

[yro]

ok, capito grazie!!

adesso ho un problemino col ciclo!

strNome = request.Form("nome")
strTitolo = request.Form("titolo")
strMessaggio = request.Form("messaggio")
strStore = request.Form("idstore")
strData =  Date()

arr_strStore = split(strStore, ",")
for xx = 0 to UBound(arr_strStore)

For each  arr_strStore in qua non so che mettere

Dim rs_01
Set rs_01= Server.CreateObject("ADODB.Recordset")
rs_01.ActiveConnection = MM_conn_blocconote_STRING 
rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data)VALUES ('"& trim(arr_strStore(xx))& "','"&strnNome&"','"&strTitolo&"','"&strMessaggio&"','"&strData&"')"
rs_01.CursorType = 0
rs_01.CursorLocation = 3
rs_01.LockType = 3
rs_01.Open()
MM_conn_blocconote_STRING.Execute

Next
	
rs_01.Close()
Set rs_01= Nothing

grassie!!

[Roby_72]

Il ciclo di cosa?

Roby

[yro]

dovrei scrivere nel db un record per ogni numero splittato!

[Sypher]

non devi farne uno solo di ciclo? ...o

for each valore in arrStore

'oppure

for x=0 to Ubound(arrStore)

[yro]

ok allora dovrebbe essere giusto cosi... ma non funziona!

dim strNome, strTitolo, strMessaggio, strData, strStore

strNome = request.Form("nome")
strTitolo = request.Form("titolo")
strMessaggio = request.Form("messaggio")
strStore = request.Form("idstore")
strData =  Date()

arr_strStore = split(strStore, ",")
for xx = 0 to UBound(arr_strStore)

Dim rs_01
Set rs_01= Server.CreateObject("ADODB.Recordset")
rs_01.ActiveConnection = MM_conn_blocconote_STRING 
rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data)VALUES ('"& trim(arr_strStore(xx))& "','"&strnNome&"','"&strTitolo&"','"&strMessaggio&"','"&strData&"')"
rs_01.CursorType = 0
rs_01.CursorLocation = 3
rs_01.LockType = 3
rs_01.Open()
MM_conn_blocconote_STRING.Execute

Next
	
rs_01.Close()
Set rs_01= Nothing
%>

mi da errore sulla riga:
rs_01.Close()

[superesse]

non ci vanno le parentesi......

[yro]

Originariamente inviato da superesse
non ci vanno le parentesi......

mi da lo stesso identico errore anche senza...

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: ''

users/blocconote/nuovo1.asp, line 29

[Roby_72]

mmmm quella'pertura di connessione in quel modo non la sopporto...

Fai così:

dbPath = server.mapPath("/mdb-database/tuodb.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
set objConn = server.createObject("ADODB.Connection")
objConn.open dbConnString

strSQL="INSERT INTO tblblocco (store,autore,titolo,testo,data)VALUES ('"& trim(arr_strStore(xx))& "','"&strnNome&"','"&strTitolo&"','"&strMessaggio&"','"&strData&"')"

objConn.Execute strSQL

objConn.Close
set objConn=nothing

Nella variabile "dbPath" metti il percorso corretto del tuo db.

Roby

[yro]

dim strNome, strTitolo, strMessaggio, strData, strStore

strNome = request.Form("nome")
strTitolo = request.Form("titolo")
strMessaggio = request.Form("messaggio")
strStore = request.Form("idstore")
strData =  Date()

arr_strStore = split(strStore, ",")
for xx = 0 to UBound(arr_strStore)



dbPath = server.mapPath("c:/inetpub/wwwroot/dati/blocconote.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
set objConn = server.createObject("ADODB.Connection")
objConn.open dbConnString

strSQL="INSERT INTO tblblocco (store,autore,titolo,testo,data)VALUES ('"& trim(arr_strStore(xx))& "','"&strnNome&"','"&strTitolo&"','"&strMessaggio&"','"&strData&"')"

objConn.Execute strSQL
next
objConn.Close
set objConn=nothing
%>

l'errore è:
Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: 'objConn'

users/blocconote/nuovo1.asp, line 28