Consulta Locate

Question

Ol� caros colegas,Estou precisando de uma dica de como posso localizar dentro de uma tabela um registro levando em considera��o que ser�o informados o nome de uma pessoa, uma data e um hor�rio e o(s) ...

Titanius · Answer

Pode fazer assim:[code:1:3637a76711]Tabel1.Locate(�NOME;DATA;HORARIO�, VarArrayOf(&#91;�nome da pessoa�,�11/01/2007�, �11:11:11�&93;), &91;loCaseInsensitive&93;);[/code:1:3637a76711]Talvez seja preciso incluir o Variants, no uses do form.[]s...

Peninha · Answer

Se vc quiser, tamb�m � possivel fazer esta pesquisa com um uma caixa de bot�es selecionando quel sera o campo a ser pesquisado, e dentro do c�digo vc usar o �CASE� em vez de locate....

Adriano Santos · Answer

S� lembrando que componentes TTable ficam pendurados o tempo todo na tabela de dados, o que pode lhe dar problemas mais tarde de perfomance ou corrompimento de dados. Qual banco de dados est� utilizando?

Veja se n�o � mais apropriado pra sua aplica��o utilizar TQuery ao inv�s de TTable e fazer Selects no banco retornando os regitros que deseja.

Anjinho Loiro · Answer

Como eu poderia fazer meu amiguinho...Bjs.....

Adriano Santos · Answer

M�nica vamos l�. Um exemplo b�sico de consulta usando TQuery seria o seguinte:

[list:293e5d1157]
[*:293e5d1157] 1. Adicione um TQuery no seu form e linke-o ao seu TDatabases.
[*:293e5d1157] 2. Em sua propriedade SQL digite sua consulta, algo como: SELECT * FROM CLIENTES WHERE NOME = :MEU_PARAMETRO;
[*:293e5d1157] 3. O c�digo ficaria algo como:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    with MeuQuery do
    begin
      Close;
      ParamByName(�MEU_PARAMETRO�).AsString := Edit1.Text;
      Open;
      if IsEmpty then
        MessageDlg(�Cliente n�o encontrado.�, mtInformation, [mbOK], 0);
    end;
  end;

[/list:u:293e5d1157]

Martins · Answer

[quote:8851af9d01=�Anjinho loiro�]Como eu poderia fazer meu amiguinho...

Bjs..[/quote:8851af9d01]

Concordo com o [b:8851af9d01]Adriano[/b:8851af9d01], seria melhor vc pensar em usar [b:8851af9d01]TQuery[/b:8851af9d01], e aproveitando a deixa ficar� melhor para vc quando tiver q optar por um banco q use SQL de forma mais din�mica.

Sem Delphi aqui no Cyber fica complicado para testar, mas vamos l�.

Usando Query ficaria +/- assim.

Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add(�Select * from Tabela Where Nome = :pNome and Data =:pData and Hora = :pHora �);
Query1.Sql.ParamByName(�pNome�).AsString := dbNome.Text;
Query1.Sql.ParamByName(�pData�).AsDate := StrToDate(dbData.Text);
Query1.Sql.ParamByName(�pHora�).AsTime := StrToTime(dbHora.Text);
Query1.Open;

Boa sorte.

Martins · Answer

[quote:3d904a6ab0=�Adriano Santos�]M�nica vamos l�. Um exemplo b�sico de consulta usando TQuery seria o seguinte:

[list:3d904a6ab0]
[*:3d904a6ab0] 1. Adicione um TQuery no seu form e linke-o ao seu TDatabases.
[*:3d904a6ab0] 2. Em sua propriedade SQL digite sua consulta, algo como: SELECT * FROM CLIENTES WHERE NOME = :MEU_PARAMETRO;
[*:3d904a6ab0] 3. O c�digo ficaria algo como:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    with MeuQuery do
    begin
      Close;
      ParamByName(�MEU_PARAMETRO�).AsString := Edit1.Text;
      Open;
      if IsEmpty then
        MessageDlg(�Cliente n�o encontrado.�, mtInformation, [mbOK], 0);
    end;
  end;

[/list:u:3d904a6ab0][/quote:3d904a6ab0]

[b:3d904a6ab0]Adriano[/b:3d904a6ab0] postei quase junto com vc, d� uma corrigida na dica q eu postei.

Abra�o.

Adriano Santos · Answer

[quote:b0113725f9=�Martins�][b:b0113725f9]Adriano[/b:b0113725f9] postei quase junto com vc, d� uma corrigida na dica q eu postei.Abra�o.[/quote:b0113725f9]Tah certinho irm�o, n�o tem o que corrigir. A �nica diferen�a � que no seu caso vc colocou tudo din�mico, inclive a montagem da select o que eu tb costumo fazer. :D...

Anjinho Loiro · Answer

Com Query eu j� sei fazer, preciso mesmo � fazer com o Table.Mas ainda sim, agrade�o o empenho de todos.(ainda continuo esperando).Bjs....

Adriano Santos · Answer

Ent�o use a primeira dica que lhe foi dada. A do titanius que funcionar�. ;)...

Anjinho Loiro · Answer

Que variants seriam essas?Obrigado pelo apoio.bjs....

Adriano Santos · Answer

Vai uses no inicio da unit e escreve Variants. Assim estar� declarando a unit Variants do Delphi no seu projeto....

Martins · Answer

Talvez seja necess�rio, mas dependendo da vers�o do seu Delphi j� existe a unit Variants l�, ten usar a dica do [b:bcdbbb912f]Titanius[/b:bcdbbb912f]

Tabel1.Locate(�NOME;DATA;HORARIO�, VarArrayOf([�nome da pessoa�,�11/01/2007�, �11:11:11�]), [loCaseInsensitive]);

Boa sorte!

Pro-luck · Answer

Caro Adriano,Vi a dica que vc mandou para a Anjinho loiro, e gostaria de saber duas coisas, 1-) Nesta dica � poss�vel colocar em ordem alfab�tica o resultado desejado?; 2-) Ele retira da �exibi��o� os registros que n�o atendem aos crit�rios informados?Tb tenho esta curiosidade com o Table... Com Query � show, com excess�o do fato de que quando colocamos em ordem alfab�tica, perdemos a propriedade de edi��o dos registros. Resumindo, preciso deste resultado que a Query fornece com a possibilidade de editar os dados.Caro amigo, desde j� agrade�o e fique com Deus......

Badboysjc · Answer

[quote:04bd12bb6c=�Adriano Santos�]Vai uses no inicio da unit e escreve Variants. Assim estar� declarando a unit Variants do Delphi no seu projeto.[/quote:04bd12bb6c]

Caro Adriano, Bom Dia !!

Aproveitando a carona, com o SELECT, eu estou com a seguinte d�vida:

1. Como fa�o para exibir o resultado da pesquisa no GRID por exemplo com esta QUERY ( com exemplo postado, n�o esta aparecendo o resultado no meu grid, s� quando o cliente�n�o � localizado fornece a mensagem)

2. E estou apanhando do c�digo abaixo. O objetivo � quando n�o localizar o cliente dar a op��o para o cliente cadastrar o cliente.

Segue o meu c�digo abaixo.

with DMConsulta.sqlqryClientes do
begin
Close;
ParamByName(�PCPF�).AsString := edtCPF.Text;
Open;
if IsEmpty then
Begin
If MessageBox(handle,�O CPF informado n�o foi localizado, deseja Cadastrar agora?�,�Confirma��o�, MB_ICONQUESTION + MB_YESNO) = ID_YES Then
close;
frmClientes.ShowModal;
frmClientes.btnCadastrar.Click;
end;

Agrade�o desde j�.

Obrigado.

F�rum Consulta Locate #339681