Erro no select - AJUDEM PLEASE !!!

16/03/2003

0

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

Responder

Posts

16/03/2003

Rgvx

Experimente o select desta forma:

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


Responder

16/03/2003

Adilsond

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;


Responder

16/03/2003

Anonymous

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;


Responder

16/03/2003

Anormal

Valew ! Deu certo !!!!


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar