Ir para conteúdo
Fórum Script Brasil
  • 0

Banco De Dados Em Asp


Guest - Rodrigo -

Pergunta

Guest - Rodrigo -

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

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

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - Rodrigo -

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>

<form name="f1" action="Http://localhost/Inserir.asp" method="post">

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>

<input type="submit" name="bt1" value="Inserir">

</form>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

  • 0

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

Eu acho que seria melhor assim:

---> teste1.asp

<body>

<form action="inserir.asp" method="post">

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>

<input type="submit">

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

%>

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - Rodrigo -

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...