aiuto per collegare testo da db

[David_pop]

Ho questo code per richiamare testo dal database access...

<%=(rs.Fields.Item("menu").Value)%>

però mi da questo errore..

ADODB.Field error '800a0bcd' 

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

/sito/prova/second2_out.asp, line 206

non credo sia difficile collegare il testo.. ma non mi funziona

[maximum]

Il record non c'è.
Ad ogni modo se non posti un po' più di contesto, non è che si capisca molto...

[Roby_72]

Devi testare che il recordset sia pieno o vuoto:

<%
if not rs.eof then
response.write(rs.Fields.Item("menu").Value)
else
response.write("Vuoto")
end if
%>

Roby

[David_pop]

il code iniziale della pagina è questo..

<% 

Dim scelta
Dim Recordset2 
Dim Recordset2_numRows 
dim id 

set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")  

sSQL = "SELECT * FROM Menu WHERE Voci='"&Voci&"'" 

set rs = conn.execute(sSQL) 
if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if
%>

[maximum]

<% 

Dim scelta
Dim Recordset2 
Dim Recordset2_numRows 
dim id 

set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")  

sSQL = "SELECT * FROM Menu WHERE Voci='"&Voci&"'" 

set rs = conn.execute(sSQL) 
if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if
response.write(id)
response.end 
%>

Dimmi ID quanto vale....
E poi quella query ti tira sempre fuori una sola occorrenza?

[David_pop]

Il campo "id" nel database è sotto la voce "id_Menu", comunque non stampa alcun risultato, pagina bianca.. ??
La query deve tirar fuori piu record che vengono immessi ognuno nelle celle della pagina asp..

[maximum]

Originariamente inviato da David_pop
Il campo "id" nel database è sotto la voce "id_Menu", comunque non stampa alcun risultato, pagina bianca.. ??

Non ho capito, la colonna del Db si chiama ID o ID_MENU???
Se è bianca temo non ci siano informazioni...

Originariamente inviato da David_pop
La query deve tirar fuori piu record che vengono immessi ognuno nelle celle della pagina asp..

Allora anzichè fare:

if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if

devi fare:

if not rs.EOF then 
  do while not rs.EOF
       response.write(rs.Fields.Item("ID").Value)
       rs.movenext
  loop
else
  response.write("Non ci sono informazioni")
end if

[David_pop]

mi da che non ci sono informazioni, sia con ID, che con id_Menu (questo il campo giusto)... ma i dati ci sono all'interno 1, 2, 3, 4... ecc

[maximum]

David se la colonna del Db si chiama ID_MENU devi usare quella, non sceglierla a caso...

Inoltre in questo codice:

<% 

Dim scelta
Dim Recordset2 
Dim Recordset2_numRows 

set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")  

sSQL = "SELECT * FROM Menu WHERE Voci= '" & Voci& "'" 

set rs = conn.execute(sSQL) 
if not rs.EOF then 
  do while not rs.EOF
       response.write(rs.Fields.Item("ID_MENU").Value)
       rs.movenext
  loop
else
  response.write("Non ci sono informazioni")
end if
%>

se i dati in tabella ci sono non vuol significare nulla, in quanto tu, nella tua query apponi un filtro per VOCI.
Evidentemente per tale filtro non ci sono dati...
Io ti consiglio di farti stampare la query a video (sul browser) e provarla direttamente in access, oppure provi il codice di sopra e vediamo che cosa compare...

[David_pop]

Il code qui sopra da comunque "nessuna informazione".. come faccio a stampare la query da access?