Olá pessoal alguém sabe fazer consulta usando edit sem colocar o asterisco. segue o que to usando hoje
14/07/2022
0
desta forma veja que esta lento, como o sistema esta em rede, e as vez trava.
query_bproduto.Close;
query_bproduto.SQL.Clear;
query_bproduto.SQL.Add('select * from produto where cbarra =:cbarra');
query_bproduto.ParamByName('cbarra').Value := edtcodbarras.Text;
query_bproduto.Open;
Gilson
Posts
14/07/2022
Emerson Nascimento
o uso do asterisco não é recomendado, mas no teu caso não deveria ser causa de lentidão, visto que há apenas uma tabela na pesquisa.
de qualquer modo, se o dataset query_bproduto servir apenas para saber se o produto existe, você pode fazer assim:
query_bproduto.Close; query_bproduto.SQL.Clear; query_bproduto.SQL.Add('select cbarra from produto where cbarra = :cbarra'); query_bproduto.ParamByName('cbarra').Value := edtcodbarras.Text; query_bproduto.Open;
14/07/2022
Gilson
o uso do asterisco não é recomendado, mas no teu caso não deveria ser causa de lentidão, visto que há apenas uma tabela na pesquisa.
de qualquer modo, se o dataset query_bproduto servir apenas para saber se o produto existe, você pode fazer assim:
query_bproduto.Close; query_bproduto.SQL.Clear; query_bproduto.SQL.Add('select cbarra from produto where cbarra = :cbarra'); query_bproduto.ParamByName('cbarra').Value := edtcodbarras.Text; query_bproduto.Open;
obrigado por responder; Emerson Nascimento.
na verdada esta é a instrução;
***(busca por codigo de barras)**
query_bproduto.Close;
query_bproduto.SQL.Clear;
query_bproduto.SQL.Add('select * from produto where cbarra =:cbarra');
query_bproduto.ParamByName('cbarra').Value := edtcodbarras.Text;
query_bproduto.Open;
if query_bproduto.recordcount = 1 then
begin
**quando encontra*
vem pra cá edtProduto.Text := query_bproduto['produto'];
que é a instração 2
query_bproduto.Close;
query_bproduto.SQL.Clear;
query_bproduto.SQL.Add('SELECT * from produto where produto =:produto');
query_bproduto.ParamByName('produto').Value := edtproduto.Text;
query_bproduto.Open;
if not query_bproduto.isEmpty then
begin
edtProduto.Text := query_bproduto['produto'];
edtPreco.Text := query_bproduto['vvenda'];
edtund.Text := query_bproduto['und'];
idProduto := query_bproduto['id'];
edtPreco.text:= query_bproduto['vvenda'];
as vezes trava quando está em rede, são dois método, pois o segundo busca pelo nome do produto, para colocar na grid.
15/07/2022
Emerson Nascimento
query_bproduto.Close; query_bproduto.SQL.Text := 'select produto from produto where cbarra = '+QuotedStr(edtcodbarras.Text); query_bproduto.Open; if not query_bproduto.IsEmpty then // aqui não importa a qtde de registros; somente se encontrou algum registro begin //quando encontra //vem pra cá edtProduto.Text := query_bproduto['produto']; query_bproduto.Close; query_bproduto.SQL.Text := 'SELECT * from produto where produto = '+QuotedStr(edtproduto.Text)); query_bproduto.Open; if not query_bproduto.isEmpty then begin edtProduto.Text := query_bproduto['produto']; edtPreco.Text := query_bproduto['vvenda']; edtund.Text := query_bproduto['und']; idProduto := query_bproduto['id']; edtPreco.text:= query_bproduto['vvenda']; end; end;
Clique aqui para fazer login e interagir na Comunidade :)