Problema codice

**maximum** · 16-12-2005, 12:59

Leggi il mio post di sopra e prova quella query.
Subito dopo la sintassi SQL, scrivi nella pagina ASP:

codice:

response.write(sql)
response.end

Dovresti avere, a browser, come risultato, una pagina bianca con la sola sintassi SQL composta.
Copia quella e postala qui.

Più chiaro adesso?

**cirusguti** · 16-12-2005, 13:10

Per fare quello che mi hai detto tu ho provato questo codice

<%@ language= VBScript %>
<%option explicit%>
<% dim sql,conn,rs,x, User, Psw
User = request.Form ("User")
Psw = request.form ("Psw") %>
<html>
<head>
<title> Visulizzazione Assenze e ritardi </title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn

sql="select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"
%>
response.write(sql)
response.end
<% rs.open sql,conn
rs.close
conn.close %>
</body>
</html>

ma l'errore è

Tipo di errore:
ADODB.Recordset (0x800A0E79)
L'operazione non è consentita se l'oggetto è aperto.
/lavori_5b0506/RegistroAssenze/visual1.asp, line 23

linea 23 che sarebbe quella dove faccio rs.open,conn per la seconda volta!!

**maximum** · 16-12-2005, 13:13

Ci sono degli errori:

codice:

set rs = Server.CreateObject("ADODB.Recordset") 
sql = " select * from Studenti" 
rs.open sql,conn 

set rs2 = Server.CreateObject("ADODB.Recordset") 
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'" 
 
response.write(sql2) 
response.end 
rs2.open sql2,conn

Puoi correggere e rieseguire?

**cirusguti** · 16-12-2005, 13:22

<%@ language= VBScript %>
<%option explicit%>
<% dim sql,conn,rs,x, User, Psw , rs2, sql2
User = request.Form ("User")
Psw = request.form ("Psw") %>
<html>
<head>
<title> Visulizzazione Assenze e ritardi </title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
rs.close
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"
%>
response.write(sql2)
response.end
<% rs2.open sql2,conn
rs2.close
conn.close %>

</body>
</html>

nuovo errore aspio...

Tipo di errore:
(0x80020009)
Eccezione.
/lavori_5b0506/RegistroAssenze/visual1.asp, line 20

linea 20 dove scrivo il comando sql2!

**maximum** · 16-12-2005, 13:24

Allora non mi sono spiegato bene guarda il codice tuo (la parte in grassetto):

<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
rs.close
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"
%>
response.write(sql2)
response.end
<% rs2.open sql2,conn
rs2.close
conn.close %>

E correggilo con il codice mio (da notare la parte in grassetto):

<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
rs.close
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"

response.write(sql2)
response.end

rs2.open sql2,conn
rs2.close
conn.close %>

Queste due righe:

codice:

response.write(sql2) 
response.end

devono stare tra i tag

codice:

<% %>

non fuori.

**cirusguti** · 16-12-2005, 13:29

<%@ language= VBScript %>
<%option explicit%>
<% dim sql,conn,rs,x, User, Psw , rs2, sql2
User = request.Form ("User")
Psw = request.form ("Psw") %>
<html>
<head>
<title> Visulizzazione Assenze e ritardi </title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
rs.close
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"

response.write(sql2)
response.end

rs2.open sql2,conn
rs2.close
conn.close %>

</body>
</html>

come hai detto tu...però l'errore di prima rimane!!!

Tipo di errore:
(0x80020009)
Eccezione.
/lavori_5b0506/RegistroAssenze/visual1.asp, line 20

**maximum** · 16-12-2005, 13:31

Fai così:

codice:

<% 
set conn = server.createobject("adodb.connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.open(server.mappath("prova.mdb")) 
set rs = Server.CreateObject("ADODB.Recordset") 
sql = "select * from Studenti" 
rs.open sql,conn 

set rs2 = Server.CreateObject("ADODB.Recordset") 
sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'" 

response.write(sql2) 
response.end 

rs2.open sql2,conn 

response.write(rs2(1)) 

rs2.close
set rs2 = nothing 
rs.close 
set rs = nothing 
conn.close
set conn = nothing 
%>

**cirusguti** · 16-12-2005, 13:36

select * from Movimenti,Studenti where 'marty' = 'fagna' and 'ciucci' = 'cacca'

dovrei aver capito l'errore...

sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"

mi controlla solo la prima riga dell'rs...

quindi dovrei inserirlo in un ciclo per farli passare tutti..

riesci a modificarmi tu il codice???

**maximum** · 16-12-2005, 13:45

Prova qualcosa di questo tipo:

codice:

<% 
set conn = server.createobject("adodb.connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.open(server.mappath("prova.mdb")) 

set rs = Server.CreateObject("ADODB.Recordset") 
sql = "select * from Studenti" 
rs.open sql,conn 

'Ciclo di lettura prima query
If Not rs.eof then
   Do while Not rs.eof
   
      'Istanzio il recordset ed eseguo seconda query
      set rs2 = Server.CreateObject("ADODB.Recordset") 
      sql2 = "select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'" 

      rs2.open sql2,conn 
      
      'Controllo la username
      if rs("User") = rs2("User") then
         response.write("Le User coincidono : 1a User " & rs("User") & " 2a User " & rs2("User") & "
")
      else
         response.write("Le User non coincidono : 1a User " & rs("User") & " 2a User " & rs2("User") & "
")
      end if 

      'Controllo la password 
      if rs("psw") = rs2("psw") then
         response.write("Le Password coincidono : 1a Password " & rs("psw") & " 2a Password " & rs2("psw") & "
")
      else
         response.write("Le Password non coincidono : 1a Password " & rs("psw") & " 2a Password " & rs2("psw") & "
")
      end if 

      'Chiude secondo recordset a fine lettura
      rs2.close
      set rs2 = nothing       
      rs.movenext
   Loop
end if 
rs.close 
set rs = nothing 
conn.close
set conn = nothing 
%>

**cirusguti** · 16-12-2005, 13:50

Grazie...

Ti farò sapere come va

Ciao

Discussione: Problema codice

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio