[Resolvido] Campo memorando retorna vazio,

[AMD 0]

Gente mudei o campo de texto para memorando no bd e agora não recupera os resultados,

se coloco o bd como texto volta a funcionar o que tem que mudar no codigo?

Desde já agradeço a ajuda.

 

 

<%
'caminho do banco de dados
abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"
%>
<%
'Abrir conexão
Set conexao = CreateObject("ADODB.Connection")
conexao.open abrir
%>

<%
set rs = conexao.execute("SELECT DISTINCT * FROM pgn ORDER By id ASC")
if rs.eof = TRUE then
%>


<% else
Do While not rs.eof

%>



<%
'Declaração de itens
id= rs("id")
texto=rs("texto")
%>

<% =rs("texto")%>

<%
rs.movenext
loop
end if
%>

[Ted k' 126]

tente agora æ:

 

<%
abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Set conexao = CreateObject("ADODB.Connection")
conexao.open abrir

set rs = conexao.execute("SELECT * FROM pgn ORDER By id ASC")
if rs.eof then
Response.Write("vazio")
else
Do While not rs.eof
Response.Write(rs("texto")&"<br><br>")
rs.movenext
loop
end if
%>

[AMD 0]

tente agora æ:

 

<%
abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Set conexao = CreateObject("ADODB.Connection")
conexao.open abrir

set rs = conexao.execute("SELECT * FROM pgn ORDER By id ASC")
if rs.eof then
Response.Write("vazio")
else
Do While not rs.eof
Response.Write(rs("texto")&"<br><br>")
rs.movenext
loop
end if
%>

 

Valeu memso agora ta funcionando ;o)