Conexão banco access

[Ronaldo Bueno 23]

Será que alguém já passou por isso?

 

Tenho um banco access que vem de um sistema local, estamos migrando para web.

 

fiz os seguinte procedimentos

 

a- Verifiquei todos os nomes de tabelas e campos (tirei acento e espaços)

b-) Hospedei o mdb

c-) Criei uma pagina apenas para ler

dim dsn
dim Conn
dsn="Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\arquivo.mdb;Persist Security Info=False;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

set RS = server.createobject("adodb.recordset")
SQL = "select * from empresas order by razao"
RS.open SQL, Conn

if RS.eof then
	RazaoSocial = RS("razao")
	response.write RazaoSocial & "<br />"	
else
	response.write "Nenhum registro encontrado"
end if		

Nesse banco tem 13 mil registros (abro na minha maquina normalmente)

 

e ele retorna Nenhum registro encontrado, alguém sabe se tenho que mudar algo ?

Obrigado

[xanburzum 169]

coloque

 

if Not RS.eof then

 

e faça o teste

[Ronaldo Bueno 23]

Xan, viajei na maionese kkkkkk

 

Claro que a mensagem seria essa, coloquei o response se fosse final de arquivo kkkk

 

Li o sua resposta e caiu a ficha .

 

Obrigado.