ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

-Resolvido Erro Delphi Field Value Required

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
thaita
Novato
Novato


Registrado: Sábado, 26 de Novembro de 2022
Mensagens: 44

MensagemEnviada: Dom Out 08, 2023 11:54 am    Assunto: -Resolvido Erro Delphi Field Value Required Responder com Citação

Prezados,
Quando vou gravar os dados na tabela aparece a mensagem Field Value required. Estou usando o SQLite onde em um Datamodule tenho 1 FDQuery, 1 DatasetProvider e um
ClientDataset. para a tabela abaixo:
CREATE TABLE Pessoa (
Id INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL,
TipoCadastro VARCHAR (30),
Nome VARCHAR (50) NOT NULL,
DataNascReg DATE,
CPFCNPJ VARCHAR (1Cool NOT NULL,
Telefone VARCHAR (16) NOT NULL,
Cidade VARCHAR (40),
Bairro_Distrito VARCHAR (50),
Estado CHAR (2) DEFAULT MG,
Email VARCHAR (80),
Ativo CHAR (1),
DataInicio DATE,
DataFim DATE
);
Alguém pode me ajudar?????


Editado pela última vez por thaita em Qua Out 11, 2023 11:35 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG

MensagemEnviada: Seg Out 09, 2023 12:01 pm    Assunto: Responder com Citação

Dê um duplo clique no seu FDQuery e Clientdataset e na lista de campos verifique se tem algum campo marcado a propriedade Required, se estiver desmarque e teste novamente.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
thaita
Novato
Novato


Registrado: Sábado, 26 de Novembro de 2022
Mensagens: 44

MensagemEnviada: Seg Out 09, 2023 1:50 pm    Assunto: Erro Delphi Field Value Required Responder com Citação

Blz. Eu não tinha incluido os Fields no FDQuery. A mensagem de erro não existe mais, porém os dados não estão sendo gravados na tabela. Segue meu procedimento abaixo na oportunidade informo que o comando post esta no formulário padrão.
procedure TPageCadastroPessoa.btnSalvarClick(Sender: TObject);
const
aTipoCadastro: TArray<String> = ['','Fornecedor', 'Parceiro Agrícola', 'Cliente'];
aAtivo: TArray<Char> = [' ', 'S', 'N'];
begin

if Trim(CbTipo.Text) = '' then
begin
cbTipo.SetFocus;
Application.MessageBox('O campo Tipo de cadastro não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtNome.Text) = '' then
begin
edtNome.SetFocus;
Application.MessageBox('O campo Nome não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtCpfCnpj.Text) = '' then
begin
edtCPFCNPJ.SetFocus;
Application.MessageBox('O campo CPF\CNPJ não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;

if Trim(edtTelefone.Text) = '' then
begin
edtTelefone.SetFocus;
Application.MessageBox('O campo Nome não pode ser vazio.', 'Atenção', MB_OK + MB_ICONWARNING);
Abort;
end;


if (DMPessoas.cdsPessoas.State in [dsInsert]) then
DMPessoas.cdsPessoasTipoCadastro.AsString := aTipoCadastro[cbTipo.ItemIndex+1];
begin
ShowMessage('cbTipo.ItemIndex: ' + IntToStr(cbTipo.ItemIndex));
DMPessoas.cdsPessoasTipoCadastro.AsString := aTipoCadastro[cbTipo.ItemIndex + 1];
ShowMessage('TipoCadastro: ' + DMPessoas.cdsPessoasTipoCadastro.AsString);
end;
DMPessoas.cdsPessoasDataNascReg.AsDateTime := EdtDataNascReg.Date;
DMPessoas.cdsPessoasCpfCnpj.AsString := edtCpfCnpj.Text;
DMPessoas.cdsPessoasTelefone.AsString := edtTelefone.Text;
DMPessoas.cdsPessoasCidade.AsString := edtCidade.Text;
DMPessoas.cdsPessoasBairro_Distrito.AsString := edtBairro.Text;
DMPessoas.cdsPessoasEstado.AsString := edtEstado.Text;
DMPessoas.cdsPessoasEmail.AsString := edtEmail.Text;
DMPessoas.cdsPessoasAtivo.AsString := aAtivo[cbAtivo.ItemIndex+1];
DMPessoas.cdsPessoasDataInicio.AsDateTime := edtDataInicio.Date;
DMPessoas.cdsPessoasDataFim.AsDatetime := edtDataFim.Date;
inherited;

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB