Página Não Abre O Banco De Dados

ManckennaII · Julho 21, 2005

<%@ 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>

<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>

</TR>

<%

Customers.MoveNext

loop %>

</TABLE>

</P>

<HR>

</BODY>

</HTML>

Aparece o seguinte err

Tipo de err

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 4.

/wwwroot/Asp03/clientes.asp, line 29

fercosmig · Julho 22, 2005

esperimenta usar uma conexão assim

ManckennaII · Julho 23, 2005

esperimenta usar uma conexão assim
ASP
dim conn
set conn = server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
e posta ae se der erro
abraços

Como sou iniciante precisaria pedir ao amigos informar quais as linhas acima deveriam ser substituidas por essas apresentadas , peço desculpas.......mas ainda chego lá.....

substituo estas:

dim conn

set conn = server.createobject("adodb.connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

Por quais:

ManckennaII · Julho 23, 2005

esperimenta usar uma conexão assim
ASP
dim conn
set conn = server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
e posta ae se der erro
abraços
Como sou iniciante precisaria pedir ao amigos informar quais as linhas acima deveriam ser substituidas por essas apresentadas , peço desculpas.......mas ainda chego lá.....
substituo estas:
dim conn
set conn = server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Por quais:

Se for isso:

<%@ Language=VBScript %>

<HTML>

<HEAD>

<TITLE>Listagem de Clientes</TITLE>

</HEAD>

<BODY>

<H1>

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

</H1>

<%

dim conn

'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 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

'O próximo passo é criar uma instrução SQL

'a qual é utilizada para criar a listagem de Clientes.

str_conn="DRIVER=Driver do Microsoft Access (*.mdb);dbq=" & Server.MapPath("nome_do_arquivo")

'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 Clientes = Server.CreateObject("ADODB.Recordset")

'Agora executamos a Instrução SQL

'retornando os registros da tabela Clientes.

conn.open str_conn

'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>

<TR>

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

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

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

</TR>

<%

'Inicio um Loop para percorrer todos os registros

'do RecordSet Clientes, exibindo um Registro em

'cada Linha da tabela.

Do Until Clientes.eof %>

<TR>

</TR>

<%

Clientes.MoveNext

loop %>

</TABLE>

</P>

<HR>

</BODY>

</HTML>

O erro agora é:

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Não foi possível encontrar o arquivo 'C:\Inetpub\wwwroot\Asp03\db.mdb'.

/wwwroot/Asp03/clientes.asp, line 18

ManckennaII · Julho 26, 2005

<%@ 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 err
Tipo de err
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 4.
/wwwroot/Asp03/clientes.asp, line 29

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>

</TR>

<%

'cada Linha da tabela.

Do Until Clientes.eof %>

<TR>

</TR>

<%

Clientes.MoveNext

loop

Clientes.Close

conn.Close

Set rs = nothing

Set conn = nothing

%>

</TABLE>

</P>

<HR>

</BODY>

</HTML>

Entrar

Página Não Abre O Banco De Dados

Pergunta

ManckennaII

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

fercosmig

Link para o comentário

Compartilhar em outros sites

ManckennaII

Link para o comentário

Compartilhar em outros sites

ManckennaII

Link para o comentário

Compartilhar em outros sites

ManckennaII

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades