Help! Ucase Lcase Ucase Lcase

[EDSONET]

Seguinte... Quero fazer uma consulta no me BD, mais na hora da consulta tanto faz se a pessoa digitar no campo com letras minusculas ou maiusculas.

Ex: Chega um usuario e tanta consultar no BD um CLIENTE com o nome PUCRS.

Só que no BD está cadastrado PucRS.

Sendo assim não ira aparecer o resultado da busca.

O código é esse:

<%
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("banco.mdb")
Conn.open

Set rs=Server.CreateObject ("AdoDb.Recordset")
cliente_pesq = request.form("cliente")

sql = "SELECT cliente, atendido_por"
sql = sql & " FROM tb_atendimento "
'######### essa é a consulta normal ################
sql = sql & " where cliente = '"&cliente_pesq&"' "

'######### Tentei Fazer assim mais não deu ###########
'sql = sql & "where ucase(cliente)='"&cliente_pesq&"'"

'######### Assim tb não deu ################
'sql = sql & "where lcase(cliente)='"&lcase(cliente_pesq)&"'"

rs.open sql, Conn

%>
<form method="POST" action="consulta2.asp">
  <p><input type="text" name="cliente" size="20"></p>
  <p><input type="submit" value="Submeter" name="B1"></p>
</form>
<%
if request.form("cliente") = rs ("cliente") then
   While Not rs.eof
   response.write "<b>Cliente:</b>" &  rs("cliente") & " "
   response.write "<b>Atendido Por:</b>" & rs("atendido_por") & "<p>"

   rs.movenext
   wend
end if
%>

não deve ser dificil pra vc`s!!!

[Reginaldo ASP]

Se não estiver retornando, é porque o seu banco de dados está "Case Sensitive"

Faça uma busca a respeito...

[dark0]

experimenta, dentro do seu sql que faz o select, ao invés de coloca "=" no where, usa like

pelo que sei.. o like é o mais correto para consultas assim..

ou se não servir..

transforma tudo que o cara digitar pra maiusculo e testa.. e depois minusculo e testa.. (alguma coisa assim..)

[Victor]

Tente esse, se n der post aki q ferie outro codigo pra você

<%
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("banco.mdb")
Conn.open

Set rs=Server.CreateObject ("AdoDb.Recordset")
cliente_pesq = request.form("cliente")

sql = "SELECT where cliente, atendido_por"
sql = sql & " FROM tb_atendimento "
'######### essa é a consulta normal ################
sql = sql & " where cliente = '"&cliente_pesq&"' "

'######### Tentei Fazer assim mais não deu ###########
'sql = sql & "where ucase(cliente)='"&cliente_pesq&"'"

'######### Assim tb não deu ################
'sql = sql & "where lcase(cliente)='"&lcase(cliente_pesq)&"'"

rs.open sql, Conn

%>
<form method="POST" action="consulta2.asp">
 <p><input type="text" name="cliente" size="20"></p>
 <p><input type="submit" value="Submeter" name="B1"></p>
</form>
<%
if request.form("cliente") = rs ("cliente") then
  While Not rs.eof
  response.write "<b>Cliente:</b>" &  rs("cliente") & " "
  response.write "<b>Atendido Por:</b>" & rs("atendido_por") & "<p>"

  rs.movenext
  wend
end if
%>