Conexão com a base

Question

 

Bom dia Pessoal,

 

Estou desenvolvendo um portal interno aqui para a empresa e por não ter muitos conhecimentos em SQL, infelizmente estou utilizando banco MDB.

Estou tendo problemas para me conectar à base de dados. Tenho um arquivo chamado "conectadb.asp" que faz a conexão com a base. Quando abro o site em uma estação, ou até mesmo no servidor, a seguinte mensagem aparece:

 

ADODB.Connection error '800a0ea9'

Provider is not specified and there is no designated default provider.

/conectadb.asp, line 8

 

Segue abaixo o conteúdo do arquivo conectadb.asp

 

Code Block

<%
'### Criando e estabelecendo conexão com o Site
Set DataSite = Server.CreateObject("ADODB.Connection")
DataSite.ConnectionTimeout = 15
DataSite.CommandTimeout = 30

'Access connection code
DataSite.Open "DBQ=" & Server.MapPath("dados\banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"

%>

 

Como disse, não tenho muito conhecimento, estou utilizando este código pois pequei na internet.

 

Na página onde os dados são exibidos, está ficando assim:

 

Code Block

<!--#include file="conectadb.asp"-->

<%
' ## Lista todos os departamentos
Set cmdDeptos = Server.CreateObject("ADODB.Command")
cmdDeptos.ActiveConnection = DataSite
cmdDeptos.CommandText = "SELECT * FROM TBL_Deptos"
cmdDeptos.CommandType = 1
Set rsDeptos = Server.CreateObject("ADODB.Recordset")
rsDeptos.Open cmdDeptos, , 0, 1

%>

     <table border="0" width="100%" cellspacing="0" cellpadding="0">
<%
Do While not rsDeptos.EOF
%>
     <tr>
       <td><% =rsDeptos("NomeDepto") %></td>
     </tr>
<%
rsDeptos.MoveNext
loop
%>
     </table>

 

Estou fazendo algo errado? vocês conhecem alguma forma melhor de criar esta conexão com a base e recuperar os dados?

 

Fico no aguardo,

 

 

Answer 1

 

Bom dia Pessoal,

 

Outro detalhe.... no IIS 6 (do windowsXP) funciona perfeitamente.... Quando coloco no IIS do Windows 2003, dá esse erro. Já habilitei as configurações para ASP. Já reinstalei o servidor... e nada...

 

Continuo no aguardo.

 

 

Answer 2

No Windows 2003 voce nao tem o office instalado e no windows XP voce tem?? Já tentou instalar o MDAC 2.8 no server2003? Veja também se nao é nenhum bloqueio de permissao a acesso a pasta aonde voce colocou o MDB.

 

Abraços

 

Estevam

Answer 3

 

Bom dia Luiz,

 

Fiz o que você sugeriu e mesmo assim o problema continua.... por via das dúvidas, dei permissão Full para todos os usuários e grupos que por padrão já faziam da pasta e adicionei também o grupo Everyone com permissão Full também... ou seja qualquer usuário tem acesso para ler e gravar na pasta do banco... logo, tem permissões para gravar e ler o banco tb.

 

De qualquer forma, agradeço pela atenção....

 

Fico no aguardo de mais sugestões.

Answer 4

Eder troque o código da pagina conectadb.asp que esta abaixo:

 

Code Block

<%
'### Criando e estabelecendo conexão com o Site
Set DataSite = Server.CreateObject("ADODB.Connection")
DataSite.ConnectionTimeout = 15
DataSite.CommandTimeout = 30

'Access connection code
DataSite.Open "DBQ=" & Server.MapPath("dados\banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"

%>

 

Pelo seguinte código e testa para ver:

 

<%
 Set DataSite = Server.CreateObject("ADODB.Connection")
 DataSite.ConnectionTimeout = 15
 DataSite.CommandTimeout = 30
 DataSite.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados\baco.mdb") & ";"
%>

 

Abraços

 

Estevam