>> Codigo de busca

[Eletrohoo 0]

TENHO O CODIGO DE BUSCA ABAIXO://////////////////////////////////////////////////////////////////<%strpwd = Request.QueryString("pwd")strpwd = Request.Form("pwd")strstatus = Request.Form("status")If strpwd <> "" ThenDim strConnect, SQLDim RSstrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"SQL = "SELECT * FROM teste WHERE exibir= 'S' and INSTR(teste.senha,'" & strpwd & "') " Set RS = Server.CreateObject("Adodb.Recordset")RS.Open SQL,strConnectif rs.eof or rs.bof thenResponse.write "NENHUM RESULTADO ENCONTRADO"elsedo while not rs.eofResponse.Write "UM OU DOIS RESULTADOS ENCONTRADOS"rs.movenextloop end ifRS.CloseEnd If%>/////////////////////////////////////////////////////////////////////Alguem pode me ajudar a incluir um "bloco" com o mensagem "TRES OU MAIS RESULTADOS ENCONTRADOS"?

[Mário Monteiro 179]

usa Nome_recordset.countpara verificar quantos registros foram selecionadosai você poderá dizer exatamnete 13 registro encontrados1000 registro encontrados...

[Eletrohoo 0]

marioufpa nao entendi o que disse.Veja:Imagine um codigo de busca (o mesmo que postei la em cima) com registros de frases diversas.Agora imagine que foi feito uma busca nas frases pela palavra "Casa"Não quero que ele exiba as frases, mas que indique 3 formas de reconhecimento de quantidade:"Nada encontrado" "Foi encontrado até 2 resultados""Foi encontrado 3 ou mais resultados"Não estou conseguindo diferenciar as duas ultimas.

[dimarcinho 0]

depois de executar a linha sql, coloca assim:

 

ASP [/tr][tr]<%

x = RS.RecordCount

 

If RS.EOF Then

response.Write "Nenhum resultado encontrado."

Else

If x = 1 Then

response.write "Foi encontrado apenas 1 resultado."

Else

response.write "Foram encontrados " & x & " resultados."

End If

End If

%>

[/tr]

 

eh isso

 

[]´s

[Eletrohoo 0]

dimarcinho Voce diz assim:?Pois nao funcionou, ele indica para qualquer resultado maior que zero:"Foram encontrados -1 resultados." (isso mesmo menos 1)O codigo ficou assim://///////////////////////////////////////////////////////////<%strpwd = Request.QueryString("pwd")strpwd = Request.Form("pwd")strstatus = Request.Form("status")If strpwd <> "" ThenDim strConnect, SQLDim RSstrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"SQL = "SELECT * FROM teste WHERE exibir= 's' and INSTR(teste.senha,'" & strpwd & "') " Set RS = Server.CreateObject("Adodb.Recordset")RS.Open SQL,strConnectx = RS.RecordCountIf RS.EOF Thenresponse.Write "Nenhum resultado encontrado."ElseIf x = 1 Thenresponse.write "Foi encontrado apenas 1 resultado."Elseresponse.write "Foram encontrados " & x & " resultados."End IfEnd IfEnd If%>///////////////////////////////////////////////////////

[FabricioGomes 0]

utilize

RS.CursorType = 3

e ao abrir o recordset, utilize

RS.Open SQL,strConnect, 3, 3

acho que é isso, o cursor tem que ser client-side para poder retornar o Count

[Mário Monteiro 179]

RS.Open SQL,strConnect, 3, 3

isto mesmo

[Mário Monteiro 179]

[tr][/tr][tr][/tr]

ASP	<% x = RS.RecordCount   If RS.EOF Then response.Write "Nenhum resultado encontrado." Else If x = 1 Then response.write "Foi encontrado apenas 1 resultado." Else response.write "Foram encontrados " & x & " resultados." End If End If %>

e depois você usa o codigo passado pelo dimarcinho