Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Manckenna

Página Não Abre o Banco de Dados

Por , em ASP Clássico

Recommended Posts

Manckenna    0

Manckenna
Postado

<%@ Language=VBScript %> <HTML> <HEAD> <TITLE>Listagem de Clientes</TITLE> </HEAD> <BODY> <H1> <FONT color=navy>Clientes da Empresa ABC LTDA.</FONT> </H1> <% 'O Primeiro passo é criar a conexão com o Banco de dados 'Para isto crio um objeto do tipo Connection 'Cria um Objeto do Tipo ADODB.Connection Set conn = Server.CreateObject("ADODB.Connection") 'Agora abro uma conexão com a fonte ODBC "Nwind" 'criada anteriormente. conn.Open "nwind" 'O próximo passo é criar uma instrução SQL 'a qual é utilizada para criar a listagem de Clientes. inst_sql="SELECT Customers.IdCustomer, Customers.ContactTitle, Customers.Address,Customers.Phone FROM Customers" 'Esta instrução SQL retorna os campos CodigoCliente, Cargo, 'Endereco e Fone, da tabela Clientes. 'Agora criamos um Objeto RecordSet. 'Este Objeto irá executar a instrução SQL e 'receber o resultado da Consulta. Set Customers = Server.CreateObject("ADODB.Recordset") 'Agora executamos a Instrução SQL 'retornando os registros da tabela Clientes. Customers.Open inst_sql, conn, 3, 3 'Os dois últimos parâmetros serão discutidos 'no próximo Capítulo. 'Neste ponto já tenho todos os registros retornados 'pela instrução SQL. Estes registros estão armazenados 'no objeto Clientes, que é um objeto do tipo Recordset. 'Agora passo a montar a página que será retornada para o 'Navegador do Cliente. Vamos montar uma tabela com o 'resultado da consulta. %> <P> <HR> <TABLE bgColor=gray border=1 borderColor=navy cellPadding=1 cellSpacing=1 width="100%"> <TR> <TD align=middle bgColor=gray>CustomerID</TD> <TD align=middle bgColor=gray>ContacTitle</TD> <TD align=middle bgColor=gray>Address</TD> <TD align=middle bgColor=gray>Phone</TD> </TR> <% 'Inicio um Loop para percorrer todos os registros 'do RecordSet Clientes, exibindo um Registro em 'cada Linha da tabela. Do Until Customers.eof %> <TR> <TD align=middle bgColor=gray><%=Customers.Fields("CustomerID")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("ContatctTitle")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("Address")%></TD> <TD align=middle bgColor=gray><%=Customers.Fields("Phone")%></TD> </TR> <% Customers.MoveNext loop %> </TABLE> </P> <HR> </BODY> </HTML> Aparece o seguinte erro: Tipo de 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 /wwwroot/Asp03/clientes.asp, line 17_________________

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

problema na conexão odbc.. na linha conn.Open "nwind"... provavelmennte o dsn não foi criado ou está com outro nome...

 

tente fazer uma conexão padrão e veja se funciona corretamente...

coloque sua base access no mesmo diretório q sua página para testar

ASP

[*]

 

[*]Set bdSite = Nothing

 

[*]Caminho = Server.MapPath("base_access.mdb")

 

[*]Set bdSite = Server.CreateObject("ADODB.Connection")

 

[*]bdSite.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho

ai qq dúvida posta ai q o povo do fórum de dá uma força...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Manckenna    0

Manckenna
Postado

problema na conexão odbc.. na linha conn.Open "nwind"... provavelmennte o dsn não foi criado ou está com outro nome...

 

tente fazer uma conexão padrão e veja se funciona corretamente...

coloque sua base access no mesmo diretório q sua página para testar

ASP

[*]Set bdSite = Nothing<br />Caminho = Server.MapPath("base_access.mdb")<br />Set bdSite = Server.CreateObject("ADODB.Connection")<br />bdSite.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho

ai qq dúvida posta ai q o povo do fórum de dá uma força...

<{POST_SNAPBACK}>

 

Página agora abre o banco de dados..............

 

Pessoal ai está o código corrigido por nosso colega Yky_br do Baboo e funcionando 100% , ainda não sei por que o código anterior não funciona.....mas já estou adiantando a solução.......

 

Grato a todos que me ajudaram neste, vamos partir para outro......

 

 

<%@ Language=VBScript %>

<HTML>

<HEAD>

<TITLE>Listagem de Clientes</TITLE>

</HEAD>

<BODY>

<H1>

<FONT color=navy>Clientes da Empresa ABC LTDA.</FONT>

</H1>

<%

Set conn = Server.CreateObject("ADODB.Connection")

conn.Provider = "Microsoft.Jet.OLEDB.4.0"

Db = Server.MapPath("nwind.mdb")

conn.Open Db

inst_sql="SELECT * FROM Clientes"

Set Clientes = Server.CreateObject("ADODB.Recordset")

Clientes.Open inst_sql, conn, 3, 3

%>

<P>

<HR>

<TABLE bgColor=gray border=1 borderColor=navy cellPadding=1 cellSpacing=1

width="100%">

<TR>

<TD align=middle bgColor=gray>Código</TD>

<TD align=middle bgColor=gray>Cargo</TD>

<TD align=middle bgColor=gray>Endereço</TD>

<TD align=middle bgColor=gray>Fone</TD>

</TR>

<%

'cada Linha da tabela.

 

Do Until Clientes.eof %>

<TR>

<TD align=middle bgColor=gray><%=Clientes("CódigoDoCliente")%></TD>

<TD align=middle bgColor=gray><%=Clientes("CargoDoContato")%></TD>

<TD align=middle bgColor=gray><%=Clientes("Endereço")%></TD>

<TD align=middle bgColor=gray><%=Clientes("Telefone")%></TD>

</TR>

<%

Clientes.MoveNext

loop

Clientes.Close

conn.Close

Set rs = nothing

Set conn = nothing

%>

</TABLE>

</P>

<HR>

</BODY>

</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito