none
Conexão com a base RRS feed

  • Pergunta

  •  

    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,

     

     

    quinta-feira, 1 de novembro de 2007 12:31

Todas as Respostas

  •  

    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.

     

     

    segunda-feira, 5 de novembro de 2007 12:31
  • 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

    segunda-feira, 5 de novembro de 2007 15:26
  •  

    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.

    quarta-feira, 7 de novembro de 2007 11:50
  • 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

    quarta-feira, 7 de novembro de 2007 15:33