Guest marcelo Postado Outubro 15, 2003 Denunciar Share Postado Outubro 15, 2003 Eu fiz um codico para acessar um banco de dados.Queria que essas informacoes desse BD mostrasse no explorer.Mas tá dando o seguinte erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado/amigos.asp, line 24meu e-mail 'e fleuvis@yahoo.com.br<%@LANGUAGE = VbScript%><% option explicit %><html><head><title>Acessando Banco de Dados</title></head><body><% ' *** Variavel de Conexao com o Banco de Dados *** dim conEmpresa ' *** Variavel de Abertura da Tabela *** dim recAmigos ' *** Constante para informar o Banco de Dados *** const cntCaminho = "C:\Inetpub\wwwroot\empresa.mdb" ' *** Cria um objeto de Conexao (Connection) *** Set conEmpresa = Server.CreateObject ("ADODB.Connection") ' *** Crie um objeto Recordsert *** ' Recorset = é uma variavel no caso recAmigos que contera ' dados da tabela empresa. Set recAmigos = Server.CreateObject ("ADODB.Recordset") ' *** Estabelece uma conexão *** ' 1º passo = Qual o nome do programa de BD. ' 2º passo = Qual local se encontra instalado o BD. conEmpresa.Open "driver={Microsoft Access Driver (*.mbd)};dbq=" & cntCaminho ' *** Abrir a Tabela Amigos = ' - Abrir a Tabela armazenada na variavel do recorset ' - Nome da conexão usada recAmigos.Open "Amigos",conEmpresa response.Write "Nome: " recAmigos.Fields ("Nome") & "<br>" & "Enderenco: " _ & recAmigos.Fields ("Enderenco") ' Fechar a coneexão Recordset recAmigos.Close ' Fechar a conexão Connection conEmpresa.Close%></body></html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ursolouco Postado Outubro 15, 2003 Denunciar Share Postado Outubro 15, 2003 Brother!!Abrindo o banco de dados:<% Dim Conn, strConn, cBanco Set Conn = Server.CreateObject("adodb.connection") cBanco = "C:\Inetpub\wwwroot\empresa.mdb" strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& cBanco &";" Conn.Open(strConn) %> Tente ultilizar este código e veja tambem o caminho de seu banco de dados.Abraços!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 pgmador Postado Outubro 15, 2003 Denunciar Share Postado Outubro 15, 2003 Verifique se o tipo de conexão que você está fazendo é o padrão do seu servidor.Existem vários tipos de fazer a conexão com o banco.Veja se esta abaixo resolve seu problema:<%'A variável db dirá o path do seu banco.db="../../banco.mdb"Set Conexao = CreateObject("ADODB.CONNECTION")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db)%>[]'sNelson Soareshttp://www.ondagospel.com.br Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest marcelo
Eu fiz um codico para acessar um banco de dados.Queria que essas informacoes desse BD mostrasse no explorer.Mas tá dando o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado
/amigos.asp, line 24
meu e-mail 'e fleuvis@yahoo.com.br
<%@LANGUAGE = VbScript%>
<% option explicit %>
<html>
<head>
<title>Acessando Banco de Dados</title>
</head>
<body>
<%
' *** Variavel de Conexao com o Banco de Dados ***
dim conEmpresa
' *** Variavel de Abertura da Tabela ***
dim recAmigos
' *** Constante para informar o Banco de Dados ***
const cntCaminho = "C:\Inetpub\wwwroot\empresa.mdb"
' *** Cria um objeto de Conexao (Connection) ***
Set conEmpresa = Server.CreateObject ("ADODB.Connection")
' *** Crie um objeto Recordsert ***
' Recorset = é uma variavel no caso recAmigos que contera
' dados da tabela empresa.
Set recAmigos = Server.CreateObject ("ADODB.Recordset")
' *** Estabelece uma conexão ***
' 1º passo = Qual o nome do programa de BD.
' 2º passo = Qual local se encontra instalado o BD.
conEmpresa.Open "driver={Microsoft Access Driver (*.mbd)};dbq=" & cntCaminho
' *** Abrir a Tabela Amigos =
' - Abrir a Tabela armazenada na variavel do recorset
' - Nome da conexão usada
recAmigos.Open "Amigos",conEmpresa
response.Write "Nome: "
recAmigos.Fields ("Nome") & "<br>" & "Enderenco: " _
& recAmigos.Fields ("Enderenco")
' Fechar a coneexão Recordset
recAmigos.Close
' Fechar a conexão Connection
conEmpresa.Close
%>
</body>
</html>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.