Banco De Dados Em Asp

Junho 26, 2006

Ola pessoal gostaria de saber como faço pra quando digitar um valor num text de form e clicar num botao ele busca no meu banco de dados as palavras que contenham esse valor e mostre numa table? se alguém tiver o codigo ou algum site que eu possa obter ajuda por favor me avisem

valeww :D

DataSet · Junho 26, 2006

Set tabPal = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT nomPal FROM tabela WHERE nomPal like '%"&request("strBusca")&"%'"
tabPal.Open sql, conSTR

WHILE not tabPal.EOF
      response.write "<tr><td>"&tabPal("nomPal")&"</td></tr>"
      tabPal.MoveNext
WEND

Junho 28, 2006

Ola obrigadu pelo codigo mas ainda esta com erro vou ti mostrar o codigo todo por favor se puder me ajudar a me mostrar onde esta errado e como seria o certo agradeço

Meu Banco de dados possui uma tabela chamada Produto e o campo que quero filtar para pesquisa se chama Nome_Do_Produto:

<%@ LANGUAGE=VBScript%>

<html>

<%

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

DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db1.mdb" & ";pwd="

Set Pe = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT Nome_Do_Produto FROM Produto WHERE Nome_Do_Produto like '%"&request("nom1")&"%'"

Pe.Open sql, conSTR

WHILE not Pe.EOF

response.write "<tr><td>"&Pe("Nome_Do_Produto")&"</td></tr>"

Pe.MoveNext

WEND

%>

<body>

Produto:<input type="text" name="nom1" size="30"><br>

Preço:<input type="text" name="pre1" size="10"><br>

Part Number:<input type="text" name="part1" size="10"><br>

</form>

</body>

</html>

Prof_Marins · Junho 28, 2006

você esta colocando tudo isso dentro da mesma página?

Eu acho que seria melhor assim:

---> teste1.asp

<body>

Produto:<input type="text" name="nom1" size="30"><br>

Preço:<input type="text" name="pre1" size="10"><br>

Part Number:<input type="text" name="part1" size="10"><br>

</form>

</body>

</html>

---> inserir.asp

<%

dim conexao

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

conexao.Open "DBQ=D:\Inetpub\wwwroot\sistema\bd_sistema.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sub fecha_conexao

conexao.close

Set conexao = nothing

end sub

Response.Expires = 0

Dim nom1

nom1 = Request.Form("nom1")

sql = "SELECT Nome_Do_Produto FROM Produto WHERE Nome_Do_Produto like '%"&request("nom1")&"%'"

Pe.Open sql

WHILE not Pe.EOF

response.write "<tr><td>"&Pe("Nome_Do_Produto")&"</td></tr>"

Pe.MoveNext

WEND

call fecha_conexao

%>

Junho 28, 2006

Ola valeu pela ajuda mas so queria saber como proceder, eu entro como o nome para a pesquisa e quando aperto no botao aparece uma mensegem de erro na pagina inserir.asp diz assim: Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/inserir.asp, line 22

essa linha possui o seguinte codigo: Pe.Open sql , não sei como faço pra corrigir esse erro? agradeço desde já!

Entrar

Banco De Dados Em Asp

Pergunta

Guest - Rodrigo -

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

DataSet

Link para o comentário

Compartilhar em outros sites

Guest - Rodrigo -

Link para o comentário

Compartilhar em outros sites

Prof_Marins

Link para o comentário

Compartilhar em outros sites

Guest - Rodrigo -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades