ComboBox carregando ID
Boa tarde, tenho alguma combobox que estao carregando o ID da tabela, mas preciso que carregue a coluna NOME , porem esta carregando o ID e por isso da errro ao tentar salvar.
segue o metodo que estou usando :
Obrigado !!!!
segue o metodo que estou usando :
procedure TFrmMembros.carregarComboboxFilial; begin if not dm.tb_filial.IsEmpty then begin while not dm.tb_filial.Eof do begin cbFilial.Items.Add(dm.tb_filial.FieldByName(''nome'').AsString); dm.tb_filial.next; end; end; end;
Obrigado !!!!
Janilto Oliveira
Curtidas 0
Melhor post
Rafael Bosco
24/06/2019
Boa tarde
Aparentemente o seu código está correto, ele está buscando da coluna 'NOME', você verificou dentro do banco de dados se na coluna NOME não está sendo preenchido o campo ID por engano?
Aparentemente o seu código está correto, ele está buscando da coluna 'NOME', você verificou dentro do banco de dados se na coluna NOME não está sendo preenchido o campo ID por engano?
GOSTEI 1
Mais Respostas
Bruno
21/06/2019
Boa tarde, tenho alguma combobox que estao carregando o ID da tabela, mas preciso que carregue a coluna NOME , porem esta carregando o ID e por isso da errro ao tentar salvar.
segue o metodo que estou usando :
Obrigado !!!!
segue o metodo que estou usando :
procedure TFrmMembros.carregarComboboxFilial; begin if not dm.tb_filial.IsEmpty then begin while not dm.tb_filial.Eof do begin cbFilial.Items.Add(dm.tb_filial.FieldByName(''nome'').AsString); dm.tb_filial.next; end; end; end;
Obrigado !!!!
como você esta salvando ?
GOSTEI 1
Janilto Oliveira
21/06/2019
Uso metodo Post no meu BTN salvar tem esse Codigo:
procedure TFrmMembros.btnSalvarClick(Sender: TObject); begin if (edtNome.Text <> '''') and (cbFilial.Text <> '''') and (cbMatriz.Text <> '''') then begin associarCampos; salvarFoto; dm.tb_pessoas.Post; MessageDlg(''Salvo com Sucesso!!'', mtInformation, mbOKCancel, 0); buscarTudo; desabilitarCampos; btnSalvar.Enabled := false; btnNovo.Enabled := true; btnEditar.Enabled := false; btnDeletar.Enabled := false; btnRel.Enabled := false; grid.Enabled := true; end else begin MessageDlg(''Preencha os Campos'', mtInformation, mbOKCancel, 0); end; end;
GOSTEI 0
Janilto Oliveira
21/06/2019
Boa tarde
Aparentemente o seu código está correto, ele está buscando da coluna 'NOME', você verificou dentro do banco de dados se na coluna NOME não está sendo preenchido o campo ID por engano?
Aparentemente o seu código está correto, ele está buscando da coluna 'NOME', você verificou dentro do banco de dados se na coluna NOME não está sendo preenchido o campo ID por engano?
Rafael Bosco, eu vou conferir isso, mas a combobox esta sendo carregada com a coluna nome sim, porem quando mando salvar que da o erro, mas se eu inserir manualmente o ID no lugar do NOME na combobox e mandar salvar o processo ocorre normal, é isso que nao estou entendendo!!!!
GOSTEI 0
Janilto Oliveira
21/06/2019
Bom dia, eu acho que descobri o que esta acontecendo, como eu havia relatado o CB está sendo carregado com a informação correta ( NOME) porem quando mando salvar recebo a msg: Invalid Value for field. Se eu digito no lugar de nome o ID ele salva normal então depois de umas semanas estudando o sistema eu cheguei a conclusão de que o erro está na tabela onde recebe o valor .
Resumindo:
A combobox carrega o NOME e o campo da tabela esta configurado pra receber INT , mudei pra VARCHAR e vou testar novamente depois
Resumindo:
A combobox carrega o NOME e o campo da tabela esta configurado pra receber INT , mudei pra VARCHAR e vou testar novamente depois
GOSTEI 0