Fórum Condição SQL #293340
26/08/2005
0
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:
----------------
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]
- 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
Curtir tópico
+ 0
Responder
Posts
26/08/2005
Horus
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)