I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4 5
debby
debby
il 9 aprile 2003 alle 10:51
50 messaggi dal 04 giugno 2002
sono sempre io, un'ultima pecca, se volessi inserire anche un'altro form (sospeso)?

io ho fatto cosi':

Dim conn , sql_insert
Set conn=Server.CreateObject("ADODB.Connection")

Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
v = SPLIT(attivita,",", -1, 1)

For Each elements In v
v1 = SPLIT(sospeso,",", -1, 1)
For Each elements In v1



sql1 = "INSERT INTO transazione (attivita,sospeso) VALUES ('" & elements & "', '" & v1 & "')"
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
conn.Execute sql1
conn.Close


Set conn=Nothing
next
next
response.redirect("accesso2.asp")


ma mi dà questo errore:

Microsoft VBScript compilation error '800a0410'

Invalid 'for' loop control variable

/agenti2/grazie.asp, line 36

For Each elements In v1
--------------------------^

richiede loop?
grazie

RispondiQuoting
debby
debby
il 9 aprile 2003 alle 12:44
50 messaggi dal 04 giugno 2002
nessuno sà come posso risolverlo?
grazie
RispondiQuoting
Frederic
Frederic
il 9 aprile 2003 alle 16:03
107 messaggi dal 19 giugno 2002
cioé , due cicli (l' uno nell' altro ) ?

Fred
Le Petit Francais
RispondiQuoting
debby
debby
il 9 aprile 2003 alle 16:16
50 messaggi dal 04 giugno 2002
MI SPIEGO MEGLIO:
NELLA TABELLA TRANSAZIONE CI SONO DUE CAMPI UNO E' IL FAMOSO "ATTIVITA" E L'ALTRO E' "SOSPESO"

IO SO CHE NELLA PAGINA PRECEDENTE "PROVA1"="ATTIVITA" E "SI"=SOSPESO
EBBENE DEVE SEGUIRE LA STESSA LOGICA DI ATTIVITA' INSERIRLI NEI SETESSI RECORD MA IN CAMPI DIFFERENTI

IO HO FATTO COSI':
Dim conn , sql_insert
Set conn=Server.CreateObject("ADODB.Connection")

Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
v = SPLIT(attivita,",", -1, 1 )
'a = SPLIT(sospeso,",", -1, 1 )
For Each elements In v
sql1 = "INSERT INTO transazione (attivita,sospeso) VALUES ('" & elements & "','" & sospeso & "')"

Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
conn.Execute sql1
conn.Close
Set conn=Nothing
next

response.redirect("accesso2.asp")
%>
MA SE VADO A GUARDARE DENTRO ALLA TABELLA TRANSAZIONE HO:

ATTIVITA SOSPESO
prova1 si,no,no,si
prova2 si,no,no,si
prova3 si,no,no,si
prova4 si,no,no,si


invece deve essere così:
ATTIVITA SOSPESO
prova1 si
prova2 no
prova3 no
prova4 si


spero che tu abbia capito e ti ringrazio infinitamente per avermi risposto

ciao
RispondiQuoting
Frederic
Frederic
il 9 aprile 2003 alle 16:17
107 messaggi dal 19 giugno 2002
vado bere un caffee e ti do una mano

Fred
Le Petit Francais
RispondiQuoting
debby
debby
il 9 aprile 2003 alle 16:17
50 messaggi dal 04 giugno 2002
grazie mille a dopo
RispondiQuoting
Frederic
Frederic
il 9 aprile 2003 alle 17:21
107 messaggi dal 19 giugno 2002
allora in VB .NET dovrebbe essere qualcosa del genere :

Dim ok As String
ok = "si,no,no,si"

Dim v(3) As String
v = ok.Split(",")

Dim elements As String

For Each elements In v

'sql1 = "INSERT INTO transazione (attivita,sospeso) VALUES ('" & elements & "','" & sospeso & "')"

'conn = Server.CreateObject("ADODB.Connection")
'Conn.open("Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.MapPath("../../data/agenti2/areagenti.mdb"))
'conn.Execute(sql1)
'conn.Close()
'conn = Nothing
Response.Write(elements & "<br>")
Next


Però a quanto sembra tu lavori in asp 3.0 , giusto ?
Per poter indagare di piu in asp 3.0 , mi servirebbe sapere quale sono i valori che passi alle variabili ATTIVITA e SOSPESO .


Fred
Le Petit Francais
RispondiQuoting
enigma
enigma
il 9 aprile 2003 alle 18:11
166 messaggi dal 20 febbraio 2002
www.3winformatica.it
Ciao Debby sono contento di esserti stato d'aiuto..
prova così:

Dim conn , sql_insert
Set conn=Server.CreateObject("ADODB.Connection")

Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
v = SPLIT(attivita,",", -1, 1 )
a = SPLIT(sospeso,",", -1, 1 )
i = 1
For Each elements In v
sql1 = "INSERT INTO transazione (attivita,sospeso) VALUES ('" & elements & "','" & a(i) & "')"

Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.Oledb.4.0; data source=" & Server.Mappath("../../data/agenti2/areagenti.mdb")
conn.Execute sql1
conn.Close
Set conn=Nothing
i = i + 1
next

response.redirect("accesso2.asp")
%>
RispondiQuoting
1 2 3 4 5

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.