Fórum Qual comando sql posso usar no lugar do locate do delphi? #574083
22/01/2017
0
#if dm_dados.tblestoque.locate('est_barras', codbarras, []) then
#begin
#
#end;
Joelson
Curtir tópico
+ 0Posts
22/01/2017
Joelson
O código seria esse:
#if dm_dados.tblestoque.locate('est_barras', codbarras, []) then
#begin
#showmessage (' Produto encontrado! ');
#end
#else
#begin
#showmessgem (' Produto não encontrado! ');
#end;
Gostei + 0
22/01/2017
Raimundo Pereira
Se o objetivo for verificar o cadastro ou verificar o saldo de estoque.
Não vejo problemas para usar o locate, você teve algum problema significativo ?
Gostei + 0
22/01/2017
Joelson
#procedure TfrmConsultaProdutos.btn5Click(Sender: TObject);
#var codbarras: string;
#begin
#Edit1.Text:= codbarras;
#if dm_dados.tblestoque.locate(''est_barras'', codbarras, []) then
#begin
#showmessage ('' Produto encontrado! '');
#end
#else
#begin
#showmessgem ('' Produto não encontrado! '');
#end;
#end;
Gostei + 0
22/01/2017
Joelson
codbarras:= Edit1.Text;
Gostei + 0
24/01/2017
Marco Antônio
Utilizo o locate para essa mesma quantidade de itens e não tenho problema.
Como vc esta explorando a indexação dos campos?
Sempre que encontro problemas como esse, criar indices é sem sombra de dúvida a melhor solução.
Outra coisa. Evite utilizar select * from minhaTabela. Procure deixar na query a ser verificada apenas os campos q realmente vai precisar.
Se for de ajuda as informações passadas avisa ae.
Abc.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)