Ir para conteúdo
Fórum Script Brasil

ManckennaII

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre ManckennaII

ManckennaII's Achievements

0

Reputação

  1. 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>
  2. 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> <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> <% 'Inicio um Loop para percorrer todos os registros 'do RecordSet Clientes, exibindo um Registro em 'cada Linha da tabela. Do Until Clientes.eof %> <TR> <TD align=middle bgColor=gray><%=Clientes.Fields("CodigoCliente")%></TD> <TD align=middle bgColor=gray><%=Clientes.Fields("Cargo")%></TD> <TD align=middle bgColor=gray><%=Clientes.Fields("Endereco")%></TD> <TD align=middle bgColor=gray><%=Clientes.Fields("Fone")%></TD> </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
  3. 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:
  4. <%@ 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
×
×
  • Criar Novo...