Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest - Rodrigo -

Banco De Dados Em Asp

Question

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

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 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

Share this post


Link to post
Share on other 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>

Share this post


Link to post
Share on other 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

%>

Share this post


Link to post
Share on other 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á!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148483
    • Total Posts
      644138
×
×
  • Create New...