Fazer uma pesquisa com todos os campos da tabela

Delphi

18/03/2005

Gostaria de saber como faço para dar a opção ao usuário de poder fazer uma pesquisa utilizando todos os campos de uma tabela.

Por exemplo, o usuário vai procurar um Cliente, quero ter um combo e nesse combo colocar todos os campos existentes na tabela Cliente, assim o usuário escolhe por qual campo quer realizar a pesquisa.

Ps. Utilizo Paradox.

Obrigado


Marco

Marco

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

18/03/2005

[u:917f024466][b:917f024466]Adicionando todos os campos da query no combobox:[/b:917f024466][/u:917f024466]

DataSet.GetFieldsName(ComboBox.Items);



GOSTEI 0
Marcio.theis

Marcio.theis

18/03/2005

Você pode usar o comando GetFieldsName e carregar todos os campos em um ComboBox, mas antes você teria de colocar na propriedade DisplayLabel do campo o nome certinho do campo que vc quer que apareça, tipo seu campo na base de dados é NUCLIENTE no Display vc pode colocar Código do cliente, sendo que depois vc poderia fazer uma procedure para carregar os campos em um ComboBox ou TCheckListBox.

    for x:=0 to dtmPrincipal.tblCliente.FieldCount - 1 do
        begin
        if dtmPrincipal.tblCliente.Fields.Fields[x].Visible then
            begin
            clbCampos.Items.Add(dtmPrincipal.tblCliente.Fields.Fields[x].DisplayLabel + ´ - (´ + dtmPrincipal.tblCliente.Fields.Fields[x].FieldName +´)´);
            totalClientes:=totalClientes + 1;
            dtmPrincipal.tblCliente.Next;
            end;
        end;


com isto eu carrega tudo em um CheckListBox, sendo que dtmPrincipal.tblCliente.Fields.Fields[x].Visible é uma propriedade tb do campo na tabela, com ele eu posso dizer se quero ou não que apareça na tela.


GOSTEI 0
Rômulo Barros

Rômulo Barros

18/03/2005

[color=darkblue:cca4a9d67b][b:cca4a9d67b]Continuação deste post: http://forum.clubedelphi.net/viewtopic.php?t=60238&sid=711d361554173c2bfdff5efa058c363f[/b:cca4a9d67b][/color:cca4a9d67b]

_____________________________________________
[b:cca4a9d67b][color=blue:cca4a9d67b]Utilize a Ferramenta de Pesquisa do Fórum[/color:cca4a9d67b][/b:cca4a9d67b]

Pesquisar pelos termos
_____________________________________________
[b:cca4a9d67b]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:cca4a9d67b]
[b:cca4a9d67b]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:cca4a9d67b]
[b:cca4a9d67b]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:cca4a9d67b]


GOSTEI 0
Marco

Marco

18/03/2005

Valeu, funcionou.


GOSTEI 0
POSTAR