Fórum SQL #182599
17/09/2003
0
Ola
Tem como Fazer Um Filtro em SQL Com um determinado campo que tenha o mesmo numero. mas esse numero sera dado apartir de um edit.
Exe
No edit contem o numero ´1´
Então o filtro ficaria assim.
codigo caixa marca
1 001 Zanthus
1 002 Zanthus
1 003 Zamthus
Se no edit for ´2´
codigo caixa marca
2 010 Sweda
2 020 Sweda
2 001 Sweda
Tem como fazer
Dart
Tem como Fazer Um Filtro em SQL Com um determinado campo que tenha o mesmo numero. mas esse numero sera dado apartir de um edit.
Exe
No edit contem o numero ´1´
Então o filtro ficaria assim.
codigo caixa marca
1 001 Zanthus
1 002 Zanthus
1 003 Zamthus
Se no edit for ´2´
codigo caixa marca
2 010 Sweda
2 020 Sweda
2 001 Sweda
Tem como fazer
Dart
Dart
Curtir tópico
+ 0
Responder
Posts
17/09/2003
Marcelo.c
Query.Close; Query.SQL.Clear; Query.SQL.Add(´Select * from tabela where codigo= ´); Query.SQL.Add(Edit1.Text); Query.Open;
ou
Query.Close; Query.SQL.Clear; Query.SQL.Add(´Select * from tabela where codigo= ´+Edit1.Text); Query.Open;
Responder
Gostei + 0
17/09/2003
Rodrigo Coutinho
Olá amigo tem sim:
No evento onkeypress faça o seguinte:
Var Qry: tQuery;
Begin
Qry := tQuery.Create(Application);
With Qry do
Begin
DataBaseName := PathBase;
Close;
Sql.Clear;
Sql.Add(´Select * From Tbl Where Codigo = :Cod´);
ParamByName(´Cod´).AsInteger := StrtoInt(Edit1.Text);
Open;
End;
End;
Isso deve te ajudar um pouco, ou vc deixa o codigo sql dentro de um componente query.
[]s, Rodrigo Coutinho
No evento onkeypress faça o seguinte:
Var Qry: tQuery;
Begin
Qry := tQuery.Create(Application);
With Qry do
Begin
DataBaseName := PathBase;
Close;
Sql.Clear;
Sql.Add(´Select * From Tbl Where Codigo = :Cod´);
ParamByName(´Cod´).AsInteger := StrtoInt(Edit1.Text);
Open;
End;
End;
Isso deve te ajudar um pouco, ou vc deixa o codigo sql dentro de um componente query.
[]s, Rodrigo Coutinho
Responder
Gostei + 0
17/09/2003
Logo
segue um exemplo para fazer um filtro por parametros na query
Query.Close;
Query.SQL.Clear;
Query.SQL.text := ´select * from cliente where ((cod_cli =:dcod))´;
Query.ParamByName(´dcod´).Asinteger := strtoint(Edit1.text);
Query.Prepare;
Query.Open;
Query.Close;
Query.SQL.Clear;
Query.SQL.text := ´select * from cliente where ((cod_cli =:dcod))´;
Query.ParamByName(´dcod´).Asinteger := strtoint(Edit1.text);
Query.Prepare;
Query.Open;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)