Erro no select - AJUDEM PLEASE !!!
16/03/2003
0
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
Posts
16/03/2003
Rgvx
´select * from unidade_federacao´+#13+´where CD_UF = ´ + Edit1.Text
16/03/2003
Adilsond
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;
16/03/2003
Anonymous
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;
Clique aqui para fazer login e interagir na Comunidade :)