Ajuda - Busca - Membros - Calendário
Versão Completa: [DUVIDA]caregar select em dbedit
Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix
Leandro H Mendes
Pessoal estou fazendo um sistema de vendas e uso tadoconection

to fazendo um select no banco e mostrando em dbedit... porem se eu tento editar ele mostra os dados do primeiro registro do select

será que alguém pode me ajudar?

with DataModule1.QTcliente do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * from cliente where cnpj = '+QuotedStr(Edit1.text));
Open;

DBidcliente.Text:= FieldByName('id').Text;
DBEdit8.Text:= FieldByName('razao_social').Text;
DBEdit9.Text:= FieldByName('nome_fantasia').Text;
DBEdit10.Text:= FieldByName('inscricaoest').Text;
DBEdit11.Text:= FieldByName('end').Text;
DBEdit12.Text:= FieldByName('numero').Text;
DBEdit13.Text:= FieldByName('complemento').Text;
DBEdit14.Text:= FieldByName('cidade').Text;
flavioavilela
você verificou se as ligações dos compontes (query, datasource) ou outros, estão tudo em ordem? faça alguns outros testes como:

CODE
where Codigo = 5


só para você ver se realmente ele não chama o registro cujo código seja 5 ou se chama... ai você já vai tirando algumas próprias conclusões...
Leandro H Mendes
ele faz o select coretamente!

o problema é quando eu clico em no proscimo dbedit para editalo ele retorna ao valor do primeiro item da tabela
Douglas Soares
QUOTE(Leandro H Mendes @ 04/01/2011 - 20:55) *
DBidcliente.Text:= FieldByName('id').Text;
DBEdit8.Text:= FieldByName('razao_social').Text;
DBEdit9.Text:= FieldByName('nome_fantasia').Text;
DBEdit10.Text:= FieldByName('inscricaoest').Text;
DBEdit11.Text:= FieldByName('end').Text;
DBEdit12.Text:= FieldByName('numero').Text;
DBEdit13.Text:= FieldByName('complemento').Text;
DBEdit14.Text:= FieldByName('cidade').Text;

Olá,

O que Significa isso??? você está associando o texto do DBEdit aos campos... você tem q editar a propriedade DataSource dos DBEdits e o Field para os respectivos campos, dps disso você coloca isso no botão alterar:

CODE
MeuCds.Edit;


E isso no botão salvar:

CODE
MeuCds.ApplyUpdates(0);


Abraços
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2012 Invision Power Services, Inc.