Galera, estou com um erro na minha consulta. quer fazer uma consulta onde o usuario pode consultar por nome, convenio ou ambos.
O erro que está dando é que se deixo o campo convenio não esta filtrando. posso deixar nusuario em branco e escrever qualquer coisa em convenios, que lista todos os cadastrados.
o que será que está errado??
desde já, obrigado!!
<%
nome = Request.form("nome")
convenios = Request.form("convenios")
x = Server.MapPath("db/medico.mdb")
Set Conexao = Server.CreateObject("ADODB.Connection")
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x
conexao.open liga
set medico = server.createobject("ADODB.Recordset")
medico.ActiveConnection = conexao
if nome <>"" And convenios <> "" then
medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' AND convenios LIKE '%" & convneios &"%' "
while not (medico.eof)
response.write "Nome do Medico:" & medico.fields("nome")%><br><%
response.write "Convenios:" & medico.fields("convenios")%><br><br><%
medico.movenext
wend
else
if nome = "" And convenios <> "" then
medico.open "SELECT * FROM medico WHERE convenios LIKE '%" & convneios &"%' "
while not (medico.eof)
response.write "Nome do Medico:" & medico.fields("nome")%><br><%
response.write "Convenios:" & medico.fields("convenios")%><br><br><%
medico.movenext
wend
else
if nome <> "" And convenios = "" then
medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' "
while not (medico.eof)
response.write "Nome do Medico:" & medico.fields("nome")%><br><%
response.write "Convenios:" & medico.fields("convenios")%><br><br><%
medico.movenext
wend
end if
end if
end if
if nome = "" AND convenios = "" then
response.write "Não Existem Médicos com os Dados Selecionados!"
end if
Conexao.close
Set Conexao = nothing
%>
Pergunta
adriano182
Galera, estou com um erro na minha consulta. quer fazer uma consulta onde o usuario pode consultar por nome, convenio ou ambos.
O erro que está dando é que se deixo o campo convenio não esta filtrando. posso deixar nusuario em branco e escrever qualquer coisa em convenios, que lista todos os cadastrados.
o que será que está errado??
desde já, obrigado!!
<% nome = Request.form("nome") convenios = Request.form("convenios") x = Server.MapPath("db/medico.mdb") Set Conexao = Server.CreateObject("ADODB.Connection") liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x conexao.open liga set medico = server.createobject("ADODB.Recordset") medico.ActiveConnection = conexao if nome <>"" And convenios <> "" then medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' AND convenios LIKE '%" & convneios &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend else if nome = "" And convenios <> "" then medico.open "SELECT * FROM medico WHERE convenios LIKE '%" & convneios &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend else if nome <> "" And convenios = "" then medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' " while not (medico.eof) response.write "Nome do Medico:" & medico.fields("nome")%><br><% response.write "Convenios:" & medico.fields("convenios")%><br><br><% medico.movenext wend end if end if end if if nome = "" AND convenios = "" then response.write "Não Existem Médicos com os Dados Selecionados!" end if Conexao.close Set Conexao = nothing %>Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
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.