Condição SQL

Delphi

26/08/2005

galera to com um probleminha aqui... Delphi 7 / Interbase 6

- o que eu quero que aconteça:
---------------------------------------

Selecione * de USUARIOS quando a coluna NOME for igual a variavel consulta(Edit´pesquisa.text), e a coluna ALUNO conter um ´X´, ordenado por nome.

código atual:
---------------- 

DM.Tbl_Usuarios.Close; 
        DM.Tbl_Usuarios.SelectSQL.Clear; 
        DM.Tbl_Usuarios.SelectSQL.Add(´Select * From Usuarios ´+´Where Nome Like:Consulta ´+ ´AND ALUNO =´+ QuotedStr(´X¬´) +´ Order By Nome´); 
        DM.Tbl_Usuarios.Params[0].AsString; 
        DM.Tbl_Usuarios.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit_Pesquisa.Text+´¬´; 
        DM.Tbl_Usuarios.Open;




Problema atual:
------------------
- a consulta nao está obedecendo a parte do código ( ´AND ALUNO =´+ QuotedStr(´X¬´) ) que diz respeito a condição que a coluna ALUNOS tem que conter um caractere ´X´.
Simplesmente aparece qualquer linha da tabela que nao obedeça a condição acima...


Abraços!
[/code]


Mahdak

Mahdak

Curtidas 0

Respostas

Horus

Horus

26/08/2005

Oi. Tente fazer assim.

var
strSQL, consulta : string;

begin

consulta := EditPesquisa.Text;

strSQL := ´select * from USUARIOS´;
strSQL := strSQL + ´ where nome like ´ + #39 + consulta + ´¬´ + 39;
strSQL := strSQL + ´ and aluno = ´X´´;
strSQL := strSQL + ´ order by nome´;

DM.Tbl_Usuarios.Close;
DM.Tbl_Usuarios.SelectSQL.Clear;
DM.Tbl_Usuarios.SelectSQL.Add(strSQL);
DM.Tbl_Usuarios.Open;


GOSTEI 0
POSTAR