Select em um Edit
Pessoal Boa tarde !
Alguem pode me ajudar, estou querendo fazer assim no meu programinha , assim que o usuario digitar o codigo do produto no edit 1 ,a descrição do produto aparecesse automatico no edit 2 .
Alguem pode me falar como é o comando ,que devo usar no edit ?
Abraço a todos
Alguem pode me ajudar, estou querendo fazer assim no meu programinha , assim que o usuario digitar o codigo do produto no edit 1 ,a descrição do produto aparecesse automatico no edit 2 .
Alguem pode me falar como é o comando ,que devo usar no edit ?
Abraço a todos
Watson Rocha
Curtidas 0
Respostas
Wilton Júnior
24/09/2012
Vai no evento onchange do edit e faz assim
with query do
begin
close;
sql.clear;
sql.add('select * from tabela where codigo like ' + #39 + '%' + edit1.text + '%' + #39);
open;
end;
if not query.isempty
edit2.text querydescricao.asstring;
Simples assim.
Espero ter ajudado
Deus o abençoe.
with query do
begin
close;
sql.clear;
sql.add('select * from tabela where codigo like ' + #39 + '%' + edit1.text + '%' + #39);
open;
end;
if not query.isempty
edit2.text querydescricao.asstring;
Simples assim.
Espero ter ajudado
Deus o abençoe.
GOSTEI 0
Watson Rocha
24/09/2012
Wilton ,primeiramente amém !!
Viu fiz dessa forma .
begin
Sqlquery1.Close;
Sqlquery1.SQL.Clear;
Sqlquery1.SQL.Add('select * from almox where Codigo like'+#39 +'%'+edit6.Text+'%'+#39);
Sqlquery1.Open;
end;
if not Sqlquery1.isempty <<---- aqui nessas duas ultimas linhas está dando erro
edit1.textSqlquery1.asstring;
Viu fiz dessa forma .
begin
Sqlquery1.Close;
Sqlquery1.SQL.Clear;
Sqlquery1.SQL.Add('select * from almox where Codigo like'+#39 +'%'+edit6.Text+'%'+#39);
Sqlquery1.Open;
end;
if not Sqlquery1.isempty <<---- aqui nessas duas ultimas linhas está dando erro
edit1.textSqlquery1.asstring;
GOSTEI 0
Bruno Leandro
24/09/2012
Watson acredito que o codigo deveria ser algo desse genero a baixo, substitua conforme modelo a seguir e verifique
if not( Sqlquery1.IsEmpty ) then
edit2.text := Sqlquery1.fieldbyname('campo_descricao').asstring;
if not( Sqlquery1.IsEmpty ) then
edit2.text := Sqlquery1.fieldbyname('campo_descricao').asstring;
GOSTEI 0
Watson Rocha
24/09/2012
pessoal deu certo..
RESOLVIDO !
RESOLVIDO !
GOSTEI 0
Joel Rodrigues
24/09/2012
Que bom que deu certo.
Estou encerrando o tópico.
Estou encerrando o tópico.
GOSTEI 0