Locate com ADO em Delphi7

Question

Pq essa busca n�o funciona?Estou usando isso para verificar se o Produto ja existe no cadastro de produtos.procedure TFrmCadPro.DBEdit2Exit(Sender: TObject);beginif DBEdit2.Text = �� thenbeginShowMess...

Rjun · Answer

Quando voc� da um Locate na tabela ou query que voc� est� editando, ele vai obrigatoriamente dar um Post nesse objeto. Se ja existir uma chave primaria com o valor que voc� informou, vai dar erro de duplica��o de chave prim�ria.

Entaum como eu poderia resolver esse caso, de verificar se ja existe?

Digital_man · Answer

[quote:256713e979=�Rjun�]Quando voc� da um Locate na tabela ou query que voc� est� editando, ele vai obrigatoriamente dar um Post nesse objeto. Se ja existir uma chave primaria com o valor que voc� informou, vai dar erro de duplica��o de chave prim�ria.[/quote:256713e979]Entaum como eu poderia resolver esse caso, de verificar se ja existe?...

Rjun · Answer

Que banco voc� esta usando? Se voc� estiver usando um banco de dados que tenha suporte a Stored Procedure, fa�a esse tipo de verifica��o na stored procedure. Se o banco n�o suporta, ent�o utilize uma TQuery auxiliar e fa�a nela a verifica��o de exist�ncia de seu c�digo.

Quartieri · Answer

beginif edtLocal.text = �� then exit;with ObjAgenda.aADOQryPesquisa do   begin   Locate(�Local�,edtLocal.text,[loCaseInsensitive,loPartialKey]);   end;end;Aqui funfa legal :D...

F�rum Locate com ADO em Delphi7 #333060