Ciclo impossibile ?

**Rob2002** · 24-06-2006, 18:09

Salve ragazzi,
guardate che storia!

Ho n archivi mdb in una cartella dai quali prelevo, per ognuno, solo un'immagine che ha come descrizione la specifica 'home page'.

Quindi
1) Prelevo l'id dell'utente da un archivio
2) Vado nella cartella dove risiedono tutti i db e apro un db alla volta prelevando l'immagine che reca la descrizione 'home page'.

Fin quì è ok o meglio mi apre e legge sono il primo db ( è come se non riuscissi a fagli fare il ciclo giusto infatti poi mi va in errore.

codice:

ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

vi posto lo script che ho costruito:

codice:

<% 
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & server.mappath("/_private/db.mdb")

Conn.Open (strConn)
Set rec = Server.CreateObject("ADODB.Recordset")
rec.open "select * from hotel order by ID ASC", conn, 3, 3

' ****** ID del record singolo ************
session("id") = rec.fields("id")


  Dim Conn1, RS1, SQL1
  SQL1 = "SELECT codice, filename, FILESIZE, CONTENTTYPE, TIPOLOGIA, DESCRIZIONE FROM my WHERE tipologia = 'Home page' order by TIPOLOGIA desc"
  Set Conn1 = Server.CreateObject("ADODB.Connection")
 
  Conn1.Open "DBQ=" & Server.Mappath("/database/"& (session("ID") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};"
  Set RS1 = Server.CreateObject("ADODB.Recordset")
  RS1.Open SQL1, Conn1
  
  %>
<html>
<HEAD>
<TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<body bgcolor="#FFFFFF">
<p align="center"> 
<table width="496" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#003366">
  <tbody>
    <% do while Not rec.EOF = true %>
    <tr valign="Top"> 
      <td width="31%" valign="Top"><div align="center">[img]/reserve/hotels/view_plus.asp?IDfoto=<%= RS1([/img]" alt="Immagine Hotel" width="200" border="0">

        </div></td>
    </tr>
    <%
RS1.MoveNext
Loop 
%>
  </tbody>
</table>
<div align="center">
  

<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2" color="Teal"> 
    </font></p>
</div>
</body>
</html>
<%
'Pulizia
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

Potete aiutarmi in qualche modo?

**salvodibella** · 24-06-2006, 18:18

????

quale ciclo???
perchè usi nel controllo del ciclo: REC e fai avanzare RS1???

codice:

    <% do while Not rec .EOF = true %>
    <tr valign="Top"> 
      <td width="31%" valign="Top"><div align="center"> [img]/reserve/hotels/view_plus.asp?IDfoto=<%= RS1([/img]" alt="Immagine Hotel" width="200" border="0">

        </div></td>
    </tr>
    <%
RS1 .MoveNext
Loop

mi sa tanto che lo script è tutto sbagliato!
se mi spieghi meglio cosa devi fare, vedrò di darti una mano.

**Rob2002** · 24-06-2006, 18:23

Quello che devo fare è

1) Prelevare un ID da un archivio che è il nome dell'archivio da aprire successivamente.
2) Da questo archivio devo prelevare un'immagine

tutto quì

Quello script funziona solo sul primo ID e poi non carica più il nuovo valore ID (session("id") ...

è lì che non riesco a fargli fare il ciclo.

Non avendo più il nuovo ID va in errore.

Possiamo correggere quello script poichè mi è costato una giornata di "scervellamento"?

**U235** · 24-06-2006, 19:04

Rob, lo ha gia suggerito salvodibella, controlla i tuoi oggetti e modificali dando i nomi giusti, se apri rs1 e cicli su rec non potra mai funzionare...

le procedure :

apro rec, ciclo rec, chiudo rec. :rollo:

lavoraci ancora un po e poi vedrai che riuscirai a fare il tuo script senza fare il muratore di codice

**Rob2002** · 24-06-2006, 19:26

Se chiudo Rec non ho il prossimo ID.

Forse sono in pallone.

Se non ti costa troppo mi puoi postare il mio codice spostando semplicemente le righe? Altrimenti non riesco avedere dove sbaglio.

**optime** · 24-06-2006, 19:54

chi ti ha detto di chiuderlo? semplicemente, usa sempre RS1!

**salvodibella** · 25-06-2006, 00:36

devi annidare 2 cicli,
uno ad ogni passaggio deve tirare fuori l'id e l'altro per ogni id deve collegarsi al database ID e tirare fuori l'immagine.
se ti viene difficile, domani ci do un occhiata!
per ora vado a letto!
Buona notte!

**salvodibella** · 25-06-2006, 12:50

Prima cosa: fatti un backup del file inputato!
Poi: Dacci un occhiata!
così dovrebbe andare:

codice:

<% 
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & server.mappath("/_private/db.mdb")

Conn.Open (strConn)
Set rec = Server.CreateObject("ADODB.Recordset")
rec.open "select * from hotel order by ID ASC", conn, 3, 3
%>
<html>
<HEAD>
<TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<body bgcolor="#FFFFFF">
<p align="center">  
<table width="496" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#003366">
  <tbody>
<% 
	do Until rec.EOF 
		session("id") = rec.fields("id")
		
		Dim Conn1, RS1, SQL1
  		SQL1 = "SELECT codice, filename, FILESIZE, CONTENTTYPE, TIPOLOGIA, DESCRIZIONE FROM my WHERE tipologia = 'Home page' order by TIPOLOGIA desc"
  		Set Conn1 = Server.CreateObject("ADODB.Connection")
 
  		Conn1.Open "DBQ=" & Server.Mappath("/database/"& (session("ID") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};"
  		Set RS1 = Server.CreateObject("ADODB.Recordset")
  		RS1.Open SQL1, Conn1
		
%>
    	        <tr valign="Top"> 
	      	    <td width="31%" valign="Top"><div align="center"> [img]/reserve/hotels/view_plus.asp?IDfoto=<%= RS1([/img]" alt="Immagine Hotel" width="200" border="0">
</div></td>
    	        </tr>

<%
		rec.MoveNext
		'Pulizia
		RS1.Close
		Set RS1 = Nothing
		Conn1.Close
		Set Conn1 = Nothing
	Loop 
%>
  </tbody>
</table>
<div align="center">
  

<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2" color="Teal"> 
    </font></p>
</div>
</body>
</html>
<%
'Pulizia
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
RS1.Close
Set RS1 = Nothing
Conn1.Close
Set Conn1 = Nothing
%>

Ho cercato di riadattare il tuo stesso codice, anche se non ho capito, perchè usi una session e perchè nella query sql recuperi "filename, filesize ecc..." che non usi in questa pagina???
cmq, fammi sapere!

Ciauz!

**Rob2002** · 26-06-2006, 16:23

Grazie Salvo per il tuo consiglio
ma carica solo lo spazio della foto ma

non si vede la foto.

Dopo 4 record mi dà questo "orrore":

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Abbiamo un'altra carta da giocare?

Grazie

**salvodibella** · 26-06-2006, 22:27

penso di si!
dammi un po di tempo e tiro fuori l'asso di picche!

Discussione: Ciclo impossibile ?

Strumenti discussione

Ricerca discussione

Visualizza

Ciclo impossibile ?

Permessi di invio