Ajuda com select usando Like, :Parametro e �

Question

Fala Galera!Alg�em poderia me ajudar com essa consulta?T� meio estranho, pq c eu digito �e� na Edit, ele me traz alguns resultados, mas c eu digito �a� ele n�o me traz nada!!! e c tem um registro assi...

R�mulo Barros · Answer

[color=red:632120d944][b:632120d944]Respondendo:[/b:632120d944][/color:632120d944]

If CmbCampo.Text = �Patrimonio� then FCampo := �PATRIMONIO�; 
If CmbCampo.Text = �Equipamento� then FCampo := �EQUIP�; 
If CmbCampo.Text = �Area� then FCampo := �DAREA�; 
If CmbCampo.Text = �Linha� then FCampo := �DLINHA�; 
If CmbCampo.Text = �Grupo Centro de Custo� then FCampo := �GCCUSTO�; 
If CmbCampo.Text = �Centro de Custo� then FCampo := �DCCSUTO�; 
Ordem := �EQUIP, PATRIMONIO�; 
Tag.close; 
with Tag do begin 
    SQl.Clear; 
    SQl.Add(�Select * from ManEquip where UPPER(:VCampo) Like :vconteudo�); // Modifiquei esta linha (UPPER)
    SQl.Add(�Order By � + Ordem); 
    Parambyname(�VCampo�).asstring := FCampo; 
    Parambyname(�VConteudo�).asstring := ���+UpperCase(EdtFind.Text)+���; // Modifiquei esta linha (UPPERCASE)
end; 
Tag.Open;

Bueno · Answer

[b:f2d2206be9]Undeclared Identifier[/b:f2d2206be9]Kra, continuo com o mesmo problema... n�o deu certo n�o...mais alguma sugest�o?!...

Tnaires · Answer

Se vc est� editando o SQL em tempo de execu��o, n�o h� pq usar par�metros.
Simplesmente fa�a:

SQl.Add(�Select * from ManEquip where � + FCampo + � Like � +  QuotedStr(��� + Trim(EdtFind.Text) + ���));

QuotedStr serve para colocar aspas na string d consulta.
Trim serve para retirar os espa�os em branco � esquerda e � direita do texto do Edit (opcional).
Abra�os

Bueno · Answer

[b:52c288ddaa]Undeclared Identifier tnaires[/b:52c288ddaa]Valew!!!! me pouparam umas boas linhas de c�digo!!!!...

F�rum Ajuda com select usando Like, :Parametro e � #244574