Busca no Paradox / TTable

Question

Ol�, � o seguinte:Preciso fazer uma busca num sistema em Delphi. Estou usando componentes Table, e o banco esta no Paradox. Mas detalhe, n�o d� pra usar o FindKey, pois n�o posso mudar o INDEX NAME, p...

Amarildo · Answer

Ola, Buck, para solucionar seu problema voce tera que ir no database desktop do delphi, file/open table/e abrir a tabela pela qual deseja, e ir em tools/utitlites/reestruture/ir em table propriedades/secundary index/define/field(voce ira selecionaro o campo da table que deseja que ocorra a chave no momento do findkey/apos selecionar o campo/tecle na setinha que esta acima, que estar� jogando para o campo da direita/apos feito isso/tecle em ok/ira abrir uma janela onde voce ter� que identificar esta chave secundaria, que estar� visualizando na table dendo do seu programa, depois pelo seu programa na table identificar a chave que deseja que o findkey procure. Felicidades e sucesso.

Demian Soares · Answer

vc ja tentou usar  o comando locate.......

Buck · Answer

n�o tentei usar o locate n�o...como se usa ele ?...

Jlimajr · Answer

O locate � + ou - assim que se usaif not tabela.LOCATE(�campo�,EDIT1.TEXT,[]) thenbeginSHOWMESSAGE(�Coloque sua mensagem aqui!�);edit1.text:=��; // limpa o editedit1.SetFocus; //caso naum localize retorna ao editend elseedit2.setfocus;end;Fora a op�ao dentro do [ ][LoCaseInsensitive] e [LopartialKey]Op��o de pesquisa que pode ser loPartialKey que representa pesquisa parcial como loCaseInsensitive que diferencia letras Mai�sculas de Min�sculas. Outra alternativa usando table � fazer filtro neste caso pode usar o LIKEDM.tabela.filtered := false;DM.tabela.filter := �campo LIKE �+quotedstr(edit1.Text+���);DM.tabela.filtered := true;Agora se quiser usar Query vc pode fazer os comando usando o SQL com o selectQuery1.Close;Query1.SQL.Text:=�SELECT campo from tabela where �+ �campo like :pnome ORDER BY campo�;Query1.ParamByName(�pnome�).Value:=Edit1.Text+���;Query1.Open;Essa aqui usei parametro mais vc pode usar direto com o QuotedSTRTem muitas outras maneiras de pesquisa, filtros etc pesquise sobre o LIKE ele � muito bom para certas pesquisas inclusive pode se usar de varias formas...

Jlimajr · Answer

O locate � + ou - assim que se usaif not tabela.LOCATE(�campo�,EDIT1.TEXT,[]) thenbeginSHOWMESSAGE(�Coloque sua mensagem aqui!�);edit1.text:=��; // limpa o editedit1.SetFocus; //caso naum localize retorna ao editend elseedit2.setfocus;end;Fora a op�ao dentro do [ ][LoCaseInsensitive] e [LopartialKey]Op��o de pesquisa que pode ser loPartialKey que representa pesquisa parcial como loCaseInsensitive que diferencia letras Mai�sculas de Min�sculas. Outra alternativa usando table � fazer filtro neste caso pode usar o LIKEDM.tabela.filtered := false;DM.tabela.filter := �campo LIKE �+quotedstr(edit1.Text+���);DM.tabela.filtered := true;Agora se quiser usar Query vc pode fazer os comando usando o SQL com o selectQuery1.Close;Query1.SQL.Text:=�SELECT campo from tabela where �+ �campo like :pnome ORDER BY campo�;Query1.ParamByName(�pnome�).Value:=Edit1.Text+���;Query1.Open;Essa aqui usei parametro mais vc pode usar direto com o QuotedSTRTem muitas outras maneiras de pesquisa, filtros etc pesquise sobre o LIKE ele � muito bom para certas pesquisas inclusive pode se usar de varias formas...

Anjinho Loiro · Answer

Como posso utilizar o locate para encontrar um cliente pelo nome e pela data de cadastro....?

Como por exemplo, existem v�rios �Jo�o da Silva�, mas s� me interessa localizar o que foi cadastrado em 15/08/2006.

Espero que vc possa me ajudar.

Beijinhos.

Antseralves · Answer

Isso funciona com IBTable:    if IBTable1.Locate(�CampoNome;CampoData�,VarArrayOf([Nome,Data]),[]) then......

F�rum Busca no Paradox / TTable #321881