Fórum Filtro com SQL #158545
07/05/2003
0
Eu uso Delphi 4 e Paradox5. Tenho usado essa procedure:
[color=blue:9e0504c54b]procedure TForm1.QueryNomeExecute(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add (´Select * From Cadastro2´);
SQL.Add (´Where (Nome= :Nome)´);
ParamByName(´Nome´).AsString:= Form6.Edit1.Text;
Active:=True;
Open;
end;
end;[/color:9e0504c54b]
Mas todos os registros continuam aparecendo, como se não houvesse filtro. O que está errado?
[color=blue:9e0504c54b]procedure TForm1.QueryNomeExecute(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add (´Select * From Cadastro2´);
SQL.Add (´Where (Nome= :Nome)´);
ParamByName(´Nome´).AsString:= Form6.Edit1.Text;
Active:=True;
Open;
end;
end;[/color:9e0504c54b]
Mas todos os registros continuam aparecendo, como se não houvesse filtro. O que está errado?
Samth
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Marcus
Boa Noite!!!
Faça Desta Maneira
WITH Query1 DO
BEGIN
IF Active THEN Close;
Sql.Clear;
WITH SQL DO
BEGIN
Add(´SELECT * FROM Cadastro2´)
Add(´WHERE NOME =:Nome);
END;
ParamByName(´Nome´).AsString := Form6.Edit.Text;
Open;
END;
Faça Desta Maneira
WITH Query1 DO
BEGIN
IF Active THEN Close;
Sql.Clear;
WITH SQL DO
BEGIN
Add(´SELECT * FROM Cadastro2´)
Add(´WHERE NOME =:Nome);
END;
ParamByName(´Nome´).AsString := Form6.Edit.Text;
Open;
END;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)