probleminha na busca

16/02/2006

0

Fiz essa procedure para fazer uma busca no meu cadastro de clientes, acontece que quando eu abro o form e procuro um cliente eu acho, mais quando eu tento procurar outro cliente eu não consigo, parece que ele só consegue efetuar a busca quando o primeiro cliente da tabela esteja selecionado.

Segue abaixo o código que estou usando.

Valeu


procedure TfrmClientes.BitBtn8Click (sender: TObject);
begin
dbEdit1.datasource.dataset.first;
while not dbedit1.datasource.dataset.eof do begin
if dbEdit1.datasource.dataset.fieldbyname(´fantasia´). asString = edit1.text then
exit;
dbEdit1.datasource.dataset.next;


Brunoagbr

Brunoagbr

Responder

Posts

17/02/2006

Rjun

Para esse tipo de busca, utilize o método Locate.


Responder

17/02/2006

Brunoagbr

onde que eu altero para locate?


Responder

17/02/2006

Rjun

Eu não sei o que vocÊ está usando. Que banco de dados que é, nem que forma de acesso(ADO/BDE/DBExpress). Colocar esse tipo de informação ajuda.

procedure TfrmClientes.BitBtn8Click (sender: TObject); 
begin 
  Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]);
end;



Responder

17/02/2006

Paullsoftware

tenta assim:

coloca um TEdit e um Tbutton...

duplo clique no tButton e vai o código

SuaTabela.Locate(´Nome´,Edit1.Text,[loPartialKey]);

acho que só isso é suficiente...


Responder

17/02/2006

Brunoagbr

muito obrigado amigo, funcionou perfeitamente....


Responder

17/02/2006

Paullsoftware

Eu não sei o que vocÊ está usando. Que banco de dados que é, nem que forma de acesso(ADO/BDE/DBExpress). Colocar esse tipo de informação ajuda.
procedure TfrmClientes.BitBtn8Click (sender: TObject); 
begin 
  Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]);
end;


kramba, ao mesmo tempo!!!


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar