Erro no select - AJUDEM PLEASE !!!

Delphi

16/03/2003

Se clicar no primeiro procedimento Button1Click ocorre tudo bem, e nunca vai trazer resultado, e é isso que eu quero, mas se você clicar depois no procedimento Button2Click trás um erro: ´invalido nome de coluna ´Edit1´´ ?
Edit1 é o texto que gostaria de buscar no banco...

O que será isto ?



cdsTeste = ClientDataSet
qryTeste = ADOQuery


procedure TForm1.Button1Click(Sender: TObject);
begin
cdsTeste.Filter := ´1=0´;
cdsTeste.Filtered := true;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
cdsTeste.Filtered := false;

qryTeste.Active := false;
qryTeste.SQL.Clear;
qryTeste.SQL.Add(´select * from unidade_federacao´+#13+´where CD_UF = ´´ + Edit1.Text + ´´´);
qryTeste.Active := true;
end;



Muito Obrigado !

Éder


Anormal

Anormal

Curtidas 0

Respostas

Rgvx

Rgvx

16/03/2003

Experimente o select desta forma:

´select * from unidade_federacao´+#13+´where CD_UF = ´ + Edit1.Text


GOSTEI 0
Adilsond

Adilsond

16/03/2003

with qryTeste do
begin
if Active then
Close;
SQL.Clear;
SQL.Add(´select *´);
SQL.Add(´from unidade_federacao´);
SQL.Add(´where CD_UF = ´ + QuotedStr(Edit1.Text));
Open;
end;


GOSTEI 0
Anonymous

Anonymous

16/03/2003

Se clicar no primeiro procedimento Button1Click ocorre tudo bem, e nunca vai trazer resultado, e é isso que eu quero, mas se você clicar depois no procedimento Button2Click trás um erro: ´invalido nome de coluna ´Edit1´´ ? Edit1 é o texto que gostaria de buscar no banco... O que será isto ? cdsTeste = ClientDataSet qryTeste = ADOQuery procedure TForm1.Button1Click(Sender: TObject); begin cdsTeste.Filter := ´1=0´; cdsTeste.Filtered := true; end; procedure TForm1.Button2Click(Sender: TObject); begin cdsTeste.Filtered := false; qryTeste.Active := false; qryTeste.SQL.Clear; qryTeste.SQL.Add(´select * from unidade_federacao´+#13+´where CD_UF = ´´ + Edit1.Text + ´´´); qryTeste.Active := true; end; Muito Obrigado ! Éder


Tenta assim...

procedure TForm1.Button2Click(Sender: TObject);
begin
cdsTeste.Filtered := false;

qryTeste.Active := false;
qryTeste.SQL.Clear;
qryTeste.SQL.Add(´select * from unidade_federacao ´+
´where CD_UF = ´ + #39+´¬´ + Edit1.Text + ´¬´+39);
qryTeste.Active := true;
end;


GOSTEI 0
Anormal

Anormal

16/03/2003

Valew ! Deu certo !!!!


GOSTEI 0
POSTAR