Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde galera
Tenho um problema que preciso resolver, seguinte:
tenho um banco de dados e nele contem uma tabela chamada agencia, ela esta funcionando legal mas NÃO consegui montar um filtro legal pra ela,
a tabela é de agencias bancarias, chama-se Bancoage, os campos de pesquisa são Bancod e Agenum
o editbanco.text busca só banco , exemplo: '237'.O editagencia.text busca só agencias, exemplo: '0522' e os dois edit teria que pesquisar banco agencia,
banco - agencia -
237 0522
este comando eu quero usar nas pesquisas e também pra verificar se ja existe a agencia cadastrada.
meu filtro só faz em um edit só, me ajudem por favor.
Uso UniSql, delphi 10.3 e que fique claro eu estou desenvolvendo um programa para empresas de cobrancas e esta base alimenta o cadastro de cheques
Valew!!!!!
>
10 horas atrás, Motta disse:
Tópico movido.
Boa noite,
Sou novo no forum
O que significa Tópico movido.
Estava em Mysql movi para Delphi , melhor classificado na minha opinião.
>
Em 28/11/2019 at 21:02, Motta disse:
Estava em Mysql movi para Delphi , melhor classificado na minha opinião.
OK, Vlw
Olá!
Entendo que você queira pesquisar de acordo com o que estiver preenchido nos campos:
- EditBanco.Text
- EditAgencia.Text
Existem várias maneiras. Imaginando que exista um botão e que ao clicar nele você realize a sua pesquisa:
Qry.Close;
Qry.SQL.Clear;
Qry.Params.Clear;
Qry.SQL.Text := ' SELECT BANCOD, AGENUN FROM BANCOAGE ';
sWhere := ' WHERE 1=1 ';
if ( EditBanco.Text <> EmptyStr ) then
sWhere := Concat( sWhere, ' AND BANCOD =', QuotedStr( EditBanco.Text ) );
if ( EditAgencia.Text <> EmptyStr ) then
sWhere := Concat( sWhere, ' AND AGENUN =', QuotedStr( EditAgencia.Text ) );
Qry.SQL.Add( sWhere );
Qry.Open;
Tópico movido.