Between com Strings

Question

Boa tarde, turma!!!Estou com um problema.Tenho um relat�rio que possui um filtro, dois combos, que filtra os caras que come�am o nome com a letra A at� os caras que come�am o nome com a letra Z. Tenho...

Rjun · Answer

Voc� teria que alterar o caracter para caracter + 1(Ex. C para D)....

Beppe · Answer

A n�o ser que o SQL Server seja bizarro, n�o pode ser usado curingas no between. N�o est� funcionando pq �Carlos� aparece depois no dicion�rio que �C��.

A dica do Rjun resolve seu problema parcialmente, j� que retorna tamb�m algu�m chamado D, e fica mais complicado se for mais de uma letra(e.g. �CA�).

Tamb�m pode optar por usar <= e >=, mas o resultado ser� o mesmo.

Cristianojedi · Answer

Como que eu fa�o isso Rjun???...

Rjun · Answer

Voc� esta utilizando SQLSERVER, ent�o vou supor que voc� esta utilizando ADO. Se n�o est�, deveria.

var
  c1: char;
begin
  // Retorna o primeiro caracter da string
  c1 := p2.Text[1];

  // Pega o c�digo ASCII de c1, acrescenta 1 e retorna o char correspondente
  c1 := Chr(Ord(c1) + 1);

  qryID.SQL.Clear; 
  qryID.SQL.add(�select * from cad_prog�); 
  qryID.SQL.Add(�where programa = :pro�); 
  qryID.SQL.Add(�and nome between :param1 and :param2�)
  qryID.SQL.Add(�and id_prog like :param3�)
  qryID.SQL.Add(�and status_desliga like��A��)  
  qryID.SQL.Add(�order by NOME�); 
  qryID.Parameters.ParamByName(�param1�).Value = p1.Text;
  qryID.Parameters.ParamByName(�param2�).Value = c1;
  qryID.Parameters.ParamByName(�param3�).Value = compl.Text;
  qryID.Parameters.ParamByName(�pro�).Value := �LS�; 
  try
    qryID.Open;
    if qryID.IsEmpty then 
      Application.MessageBox(�N�o existem dados para estas especifica��es.�,  �Informa��o...�, MB_OK + MB_ICONINFORMATION)
     else
         // Mostra o resultado da consulta
  finally 
    qryID.Close;
end;

� mais ou menos isso da�.

Cristianojedi · Answer

Boa Rjun... Funcionou!!!Muito obrigado!!!Cristiano M�rio...

F�rum Between com Strings #283525