[firebase-br] Firebird1.5.2

[Reijanio Nunes Ribeiro]

mais eu pessoalmente gosto de usar ou filter ou uma senteça sql vou te
demonstrar
pode ser dessa forma
F_dmm.Cliente.Close;
F_dmm.sqlClientes.CommandText := 'select c.*, b.nome as bairro,cd.nome as
cidade,  u.sigla as estado from cliente c'+
' left outer join bairros b'+
' left outer join cidades cd'+
' left outer join uf u'+
' on c.bairro = b.codigo'+
' on c.cidade = cd.codigo'+
' on c.uf = u.codigo'+
' where(upper(c.codigo) like'+
QuotedStr('%'+uppercase(edtpesquisa.Text)+'%')+') or (upper(c.nome)like'+
QuotedStr('%'+uppercase(edtpesquisa.Text)+'%')+') or (upper(c.cpfcnpj)
like'+
QuotedStr('%'+uppercase(edtpesquisa.Text)+'%')+')';
F_dmm.Cliente.Open;
//nesse caso pesquisa por varios campos

ou pesquisa usando criterios
neste caso tenho uma combobox(listacampo) que eu escolho o campo da tabela a
ser pesquisado, ao lado dessa combo tenho outra chmada listafiltro que
escolho o critério
no caso seriam
-iniciados por
-terminados por
-todos os registros
-exatamente
-que contenha
testa ai e ve se da pra vc

PROCEDURE PESQUISA POR CRITÉRIOS
  var
  montastr: string;
  begin
if listacampo.ItemIndex = 0 then
begin
  case listafiltro.itemindex of
0: montastr :=' like upper('''+edtpesquisa.Text+'%'')';//iniciados por
1: montastr :=' like upper(''%'+edtpesquisa.Text+''')';//terminados por
2: begin
  edtpesquisa.Text := '';
  montastr :=' like upper(''%'')';//todos os registros
  end;
3: montastr :='= upper('''+edtpesquisa.Text+''')';//exatamente
4: montastr :=' like upper(''%'+edtpesquisa.Text+'%'')';//Que Contenha
end;

F_dmm.Cliente.Close;
F_dmm.sqlClientes.CommandText := 'select c.*, b.nome as bairro,cd.nome as
cidade,  u.sigla as estado from cliente c'+
' left outer join bairros b'+
' left outer join cidades cd'+
' left outer join uf u'+
' on c.bairro = b.codigo'+
' on c.cidade = cd.codigo'+
' on c.uf = u.codigo'+
' where upper(c.rg)'+montastr;
F_dmm.Cliente.Open;



Em 3 de julho de 2010 21:36, Reijanio Nunes Ribeiro
<rnribeiro em gmail.com>escreveu:

> chico usando dbexpress aconselho vc a usar locate findkey é usado se não me
> engano no DBE mesmo
> mais dbexpress usa o locate
>
> Em 2 de julho de 2010 22:59, Chico <chicote em vsp.com.br> escreveu:
>
>  VCodInseticida:= 0;
>>  VCodFabricante:= 0;
>>  DM_PoliInseticida.cdsPoliInseticida.IndexFieldNames:= 'NomInseticida';
>>  DM_PoliInseticida.cdsPoliInseticida.First;
>>  if
>> DM_PoliInseticida.cdsPoliInseticida.FindKey([F_PoliInseticida.ComboInseticida.Text])
>> then
>>   begin
>>     VCodInseticida:=
>> DM_PoliInseticida.cdsPoliInseticida.FieldByName('CODINSETICIDA').AsInteger;
>>     VCodFabricante:=
>> DM_PoliInseticida.cdsPoliInseticida.FieldByName('CODFABRICANTE').AsInteger;
>>   end;
>>
>>
>>
>> ----- Original Message ----- From: "Reijanio Nunes Ribeiro" <
>> rnribeiro em gmail.com>
>> To: "FireBase" <lista em firebase.com.br>
>> Sent: Friday, July 02, 2010 2:50 PM
>> Subject: Re: [firebase-br] Firebird1.5.2
>>
>>
>>
>> chico manda a sintaxe pra podermos olhar
>>
>> Em 2 de julho de 2010 14:40, Chico <chicote em vsp.com.br> escreveu:
>>
>>  Senhores, trabalho com Delphi7 e Firebird1.5.2. Tenho um BD suportando um
>>> sistema controlado pelo BDE, query e Table.
>>> Tudo funcionando ok.
>>> Agora estou mudando-o aos poucos para Data Acces (cds, dsp) e DBExpress
>>> (SQLQuery).
>>> Fazendo uma busca numa Tabela do BD, ele não encontra o produto desejado.
>>> Nas demais buscas, em outras tabelas, funciona perfeitamente.
>>> Via IBExpert já apaguei os índices, no DataModule, já apaguei todos os
>>> componentes e recriei e nada.
>>> Mais, em outros bancos, as mesmas buscas funcionam perfeitamente.
>>> O que poderia fazer no BD para ver se resolvo isto?
>>> Aguardo uma luz.
>>> Obrigado
>>> FRancisco
>>> ______________________________________________
>>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>>> http://www.firebase.com.br/fb/artigo.php?id=1107
>>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>>
>>>  ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>> http://www.firebase.com.br/fb/artigo.php?id=1107
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>
>