Jump to content

  2. →
  3. →

Photo

To Com Um Problema Nesse Anexo

Started By tathy, 15/03/2004, 15:10

  • Faça o login para participar
5 replies to this topic

#1 tathy

tathy

    Normal

  • Usuários
  • 113 posts
  • Sexo:Feminino
  • Localidade:Santos e Praia Grande
  • Interesses:Asp, PHP, JavaScript, HTML, Flash, DreamWeaver, Fireworks, PhotoShop, Delphi...

Posted 15/03/2004, 15:10

Por favor me ajudem estou com um erro nesse script, e naum sei o q fazer para corrigi-lo...
Gostaria de resolver ainda hoje, mas tá difícil precisava da ajuda de vcs... Se puderem me ajudar, agradeço...

Erro:

Microsoft JET Database Engine (0x80004005)
Não foi possível encontrar ISAM instalável.
/procurarollout/BUSCAR2.ASP, line 10


Código criado modelo:(a linha q está em negrito é a linha com o erro de cima)

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<!--#INCLUDE file="INICIO.ASP"-->
<%
SET CMD = Server.CreateObject("ADODB.COMMAND")
CMD.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" &Server.MapPath("tabeladeprecos.mdb")
CMD.CommandText = "SELECT * FROM produtos WHERE tipo LIKE ? "
SET rsProdutos = CMD.Execute(,"%" & request ("tipo") & "%" )
%>
<%IF rsProdutos.EOF then%>
<h2 align="center"> <em><strong><font color="#0000FF" size="4" face="Verdana, Arial, Helvetica, sans-serif">TIPO
DE PRODUTO NÃO ENCONTRADO!</font></strong></em></h2>
<%ELSE%>
<table width="75%" border="1" align="center">
<tr>
<td><font color="#0000FF"><%=rsProdutos("nome_do_produto")%></FONT></td>
</tr>
</table>
<DIV align=center>
<table width="75%" border="1" align="center">
<%WHILE NOT rsProdutos.EOF%>
<tr>
<td width="38%" height="61" colspan="4"> <div align="center"><%=rsProdutos("foto")%></div></td>
<td width="62%" rowspan="2"><%=rsProdutos("CODIGO")%><br> <%=REPLACE(rsProdutos("tipo"),tipo,"<B><FONT COLOR=RED>" & tipo & "</FONT></B>") %><br>
<%=rsProdutos("fabricante")%><br> <%=rsProdutos("fornecedor")%><br> <%=rsProdutos("características")%></td>
</tr>
<%rsProdutos.MoveNext%>
<%WEND%>
</TABLE>
<%END IF%>
<%
rsProdutos.Close
set rsProdutos=NOTHING
set CMD=NOTHING
%>
</BODY>
</HTML>

Valew Galera!!!!
bj´s
tathy

Attached Files


asp, css, js, flash, fireworks, photoshop, dreamweaver, xml, sql, mysql, access, asp.net!
A vida foi feita pra curtir, curta a vida da sua maneira, eu curto a minha programando!

#2 wozniak

wozniak

    Hands-On Founder

  • Usuários
  • 578 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro / RJ

Posted 15/03/2004, 15:32

não entendi muito bem, oq vc gostaria de fazer ??

t+
Cristiano Eugenio
===========
http://www.grupo5.com.br
http://thespoke.net/...ristianoeugenio

#3 tathy

tathy

    Normal

  • Usuários
  • 113 posts
  • Sexo:Feminino
  • Localidade:Santos e Praia Grande
  • Interesses:Asp, PHP, JavaScript, HTML, Flash, DreamWeaver, Fireworks, PhotoShop, Delphi...

Posted 15/03/2004, 15:41

É uma busca num banco de dados, ou seja tenho um arquivo chamado início, q é onde está a barra (topo), com o nome buscar, ele busca um arquivo chamado busca.asp, onde tem um textbox com um submit, ouseja, nesse o cliente digita a palavra q ele irá buscar e enviará, abrirá a página q está dando erro, q seria a página da impressão(resposta) a palavra q foi buscada irá trazer todos os dados, buscar2.asp, mas está dando esse erro q mandei acima e naum sei o q devo fazer...
asp, css, js, flash, fireworks, photoshop, dreamweaver, xml, sql, mysql, access, asp.net!
A vida foi feita pra curtir, curta a vida da sua maneira, eu curto a minha programando!

#4 Xahuj

Xahuj

    Novato no fórum

  • Usuários
  • 18 posts
  • Sexo:Não informado

Posted 15/03/2004, 16:21

Eu faria a conexao com o banco assim:

<% SET cmd = Server.CreateObject("ADODB.Connection")
cmd.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("tabeladeprecos.mdb")

e também tem que fazer a conexão com o recordset, assim:

<% Set rs=Server.CreateObject("ADODB.RecordSet") %>

Blz!
Xahuj

#5 tathy

tathy

    Normal

  • Usuários
  • 113 posts
  • Sexo:Feminino
  • Localidade:Santos e Praia Grande
  • Interesses:Asp, PHP, JavaScript, HTML, Flash, DreamWeaver, Fireworks, PhotoShop, Delphi...

Posted 15/03/2004, 16:42

MAS AS LINHAS

CMD.CommandText = "SELECT * FROM produtos WHERE tipo LIKE ? "
SET rsProdutos = CMD.Execute(,"%" & request ("tipo") & "%" )

CONTINUAM???

PQ COMO Q ELE IRÁ ENTENDER Q ELE IRÁ BUSCAR O CAMPO DESCRIMINADO??

E ESSA ÚLTIMA LINHA Q VC ESCREVEU RECORDER<% %>
PARA Q SERVE E ONDE ENCAIXO ELA???
VALEW AMIGO
BJ´S
TATHY
asp, css, js, flash, fireworks, photoshop, dreamweaver, xml, sql, mysql, access, asp.net!
A vida foi feita pra curtir, curta a vida da sua maneira, eu curto a minha programando!

#6 Xahuj

Xahuj

    Novato no fórum

  • Usuários
  • 18 posts
  • Sexo:Não informado

Posted 15/03/2004, 17:02

<%@Language=VBScript %>
<%Option Explicit
Dim sql%>

<HTML><HEAD><title>Conexao</title></HEAD><BODY>

<!--#INCLUDE file="INICIO.ASP"-->

<%SET cmd = Server.CreateObject("ADODB.Connection")
cmd.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("tabeladeprecos.mdb")
Set rsprodutos=Server.CreateObject("ADODB.RecordSet")
rsprodutos.Open sql, cmd
sql = "SELECT * FROM produtos WHERE tipo LIKE ? "
%>

tem que abrir a conexao com o bd e com o recordeset..
Xahuj
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq