Consultar NOME do grupo atraves do código
Boa tarde pessoal,
Minha dúvida é a seguinte, estou fazendo o cadastro de grupos e na hora de selecionar o grupo do cliente
ele seleciona e guarda a ID do grupo no cadastro do cliente e queria saber como exibe o nome do grupo puxando através do ID
para o sEdit [img]http://arquivo.devmedia.com.br/forum/imagem/457742-20160101-161810.png[/img]
estou usando o seguinte codigo
mas ele não puxa a informação certa atraves do código, se alguem puder ajudar agradeço.
Obrigado
Minha dúvida é a seguinte, estou fazendo o cadastro de grupos e na hora de selecionar o grupo do cliente
ele seleciona e guarda a ID do grupo no cadastro do cliente e queria saber como exibe o nome do grupo puxando através do ID
para o sEdit [img]http://arquivo.devmedia.com.br/forum/imagem/457742-20160101-161810.png[/img]
estou usando o seguinte codigo
sEdit1.Text := frmConexao.GRUPOCLIENTES_ClientDataSet1.FieldByName('NOME').AsString;
mas ele não puxa a informação certa atraves do código, se alguem puder ajudar agradeço.
Obrigado
Luis Dantas
Curtidas 0
Melhor post
Raimundo Pereira
01/01/2016
Boa tarde,
Tente colocar essa rotina em um button ou no keypress de um edit.
BEGIN
DM.FDQuery1.Close;
DM.FDQuery1.SQL.Text:='SELECT * FROM GRUPO WHERE ID='''+EDIT_COD.Text+'''';
DM.FDQuery1.OPEN;
if DM.FDQuery1.RecordCount=1 then
BEGIN
SEDIT1.TEXT:= (DM.FDQuery1.FieldByName('NOME').AsString);
END
ELSE
BEGIN
SHOWMESSAGE('NENHUM REGISTRO ENCONTRADO');
END;
END;
Tente colocar essa rotina em um button ou no keypress de um edit.
BEGIN
DM.FDQuery1.Close;
DM.FDQuery1.SQL.Text:='SELECT * FROM GRUPO WHERE ID='''+EDIT_COD.Text+'''';
DM.FDQuery1.OPEN;
if DM.FDQuery1.RecordCount=1 then
BEGIN
SEDIT1.TEXT:= (DM.FDQuery1.FieldByName('NOME').AsString);
END
ELSE
BEGIN
SHOWMESSAGE('NENHUM REGISTRO ENCONTRADO');
END;
END;
GOSTEI 1
Mais Respostas
Luis Dantas
01/01/2016
P2 consegui aqui amigo, usei isso que você me passou como base, uso DBExpress.
Obrigado e forte abraço
Obrigado e forte abraço
GOSTEI 0