Pesquisa em Banco de Dados

[mkboy 1]

Ola amigos, estou tentando fazer uma pesquisa no banco de dados access, e não estou conseguindo, talves meu codigo esteja errado, e nao consigo achar o erro, abaixo vou postar os parametros e o codigo, e se alguem poder me ajudar, agradeço:

Nome do banco: FISHNome da tabela: BOColuna que desejo pesquisar: NOMECampo do form de busca: busca_01ERRO:Microsoft OLE DB Provider for ODBC Drivers error '80040e0c' Nenhum comando foi definido para o objeto command /pesca/boletim/processa_01.asp, line 15

O CÓDIGO:

<%nome = request.form("busca_01")%><%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM bo WHERE nome = '" & NOME & "'"RS.open SQL,conn,3,3Set RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothing %><%=NOME%>

[rockbilly 0]

ce tem que dar o loop na tabela para varrer a procura no registro:

SQL = "SELECT * FROM bo WHERE nome = '" & NOME & "'"RS.open SQL,conn,3,3Set RS = conn.execute(theSQL)While not RS.EOF  Response.Write RS("Nome") ' ou RS("Nome_do_campo_na_tabela")RS.MoveNextWend

tenta ai...

[mkboy 1]

Ainda ta dando erro!

<%nome = request.form("busca_01")%><%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM bo WHERE nome = '" & NOME & "'"RS.open SQL,conn,3,3Set RS = conn.execute(theSQL)While not RS.EOF Response.Write RS("Nome")  RS.MoveNextWendSet RS = conn.execute(theSQL)conn.closeSet Conn = NothingSet RS = Nothing%>

O ERRO:

Microsoft OLE DB Provider for ODBC Drivers error '80040e0c' Nenhum comando foi definido para o objeto command /pesca/boletim/processa_01.asp, line 15

[Marhault 1]

Aew vê se funciona:

<%nome = request.form("busca_01")%><%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM bo WHERE nome = '" & NOME & "'"RS.open SQL,conn,3,3While not RS.EOFResponse.Write RS("Nome")  RS.MoveNextWendconn.closeSet Conn = NothingSet RS = Nothing%>

OkZ?

[mkboy 1]

beleza, parou de dar o erro, só que a page fica em branco.Preciso imprimir os dados na tela.Segui um exemplo de um livro, mas nao ta funcionando, é assim que faz para imprimir os dados na tela depois do select?depois do codigo acima:

<%If not rs.EOF thenOn Error Resume Nextrs. MoveFirstdo Move Not rs.eof%><%=Server.HTMLEncode(rs.Fields("Nome").Value)%><%rs.MoveNextloop%><%Else%><%rs.Close%>ERRO<%End if%>

[dimarcinho 0]

tenta aih... se continuar dando erro, deve ser em outro lugar e o IIS num deve tah conseguindo ver

 

<%nome = request.form("busca_01")Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT nome FROM bo WHERE nome='"&NOME&"'"RS.open SQL, conn, 3, 3RS.MoveFirstDo While not RS.EOF  Response.Write(""&RS(0)&"<br>")RS.MoveNextLoopconn.closeSet Conn = NothingSet RS = Nothing%>

[]'s