Erro no select - AJUDEM PLEASE !!!
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
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
Curtidas 0
Respostas
Rgvx
16/03/2003
Experimente o select desta forma:
´select * from unidade_federacao´+#13+´where CD_UF = ´ + Edit1.Text
´select * from unidade_federacao´+#13+´where CD_UF = ´ + Edit1.Text
GOSTEI 0
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;
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
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
16/03/2003
Valew ! Deu certo !!!!
GOSTEI 0