Valor inteiro invalido ZEOS

[Jessica07 0]

Bom dia,

Estou com um problema para inserir registros na tabela.

Quando vou inserir os registros na tabela, aparece um erro falando que o valor inteiro é invalido.

Estou usando o componente Query (qClientes)

Esse é o codigo no qual estou usando:

dmPrincipal.qClientes.Close;
dmPrincipal.qClientes.SQL.Clear;
dmPrincipal.qClientes.SQL.Add('insert into clientes');
dmPrincipal.qClientes.SQL.Add('(id_cli, cli_nome, cli_documento, cli_fantasia, cli_endereco, cli_bairro, cli_cidade, cli_cep, cli_uf, cli_tel, cli_fax, cli_cel, cli_obs, cli_email, cli_dtCadastro, cli_pessoa, id_vend, cli_contato)');
dmPrincipal.qClientes.SQL.Add('values (:pId_cli, :pCli_nome, :pCli_documento, :pCli_fantasia, :pCli_endereco, :pCli_bairro, :pCli_cidade, :pCli_cep, :pCli_uf, :pCli_tel, :pCli_fax, :pCli_cel, :pCli_obs, :pCli_email, :pCli_dtCadastro, :pCli_pessoa, :pId_vend, :pcli_contato)');

dmPrincipal.qClientes.ParamByName('pId_cli').AsInteger:= StrToInt(dbe_idCli.Text);
dmPrincipal.qClientes.ParamByName('pCli_nome').AsString:= dbe_CliNome.Text;
dmPrincipal.qClientes.ParamByName('pCli_documento').AsString:= dbe_CliDocumento.Text;
dmPrincipal.qClientes.ParamByName('pCli_fantasia').AsString:= dbe_CliFantasia.Text;
dmPrincipal.qClientes.ParamByName('pCli_endereco').AsString:= dbe_CliEndereco.Text;
dmPrincipal.qClientes.ParamByName('pCli_bairro').AsString:= dbe_CliBairro.Text;
dmPrincipal.qClientes.ParamByName('pCli_cidade').AsString:= dbe_CliCidade.Text;
dmPrincipal.qClientes.ParamByName('pCli_cep').AsString:= dbe_CliCep.Text;
dmPrincipal.qClientes.ParamByName('pCli_uf').AsString:= dbe_CliUf.Text;
dmPrincipal.qClientes.ParamByName('pCli_tel').AsString:= dbe_CliTel.Text;
dmPrincipal.qClientes.ParamByName('pCli_fax').AsString:= dbe_CliFax.Text;
dmPrincipal.qClientes.ParamByName('pCli_cel').AsString:= dbe_CliCel.Text;
dmPrincipal.qClientes.ParamByName('pCli_obs').AsString:= dbm_CliObs.Text;
dmPrincipal.qClientes.ParamByName('pCli_email').AsString:= dbe_CliEmail.Text;
dmPrincipal.qClientes.ParamByName('pCli_dtCadastro').AsDate:= StrToDate(dbe_ClidtCad.Text);
dmPrincipal.qClientes.ParamByName('pCli_pessoa').AsString:= dcb_CliPessoa.Text;
dmPrincipal.qClientes.ParamByName('pId_vend').AsInteger:= StrToInt(dbe_idVend.Text);
dmPrincipal.qClientes.ParamByName('pcli_contato').AsString:= dbe_CliContato.Text;

dmPrincipal.qClientes.ExecSQL;

Apenas uma observação, o campo id_cli é integer e autoincremento..

Alguem poderia me ajudar?

Desde já agradeço.

[Eisenheim 67]

Olá bom dia!

 

Jéssica, evite duplicar sua dúvida em posts diferentes. Isso acaba gerando um certo desconforto na hora de tentar te ajudar, uma vez que parte das respostas podem ficar divididas.

 

Você pode continuar acompanhando as respostas nesse mesmo tópico.

 

Só crie tópicos novos para dúvidas que não sejam pertinentes ao tópico de origem, do contrário mantenha o foco no mesmo tópico para evitar confusão.

[Jessica07 0]

Ah sim entendi me desculpe.

Sou nova aqui no forum e não sei muito bem o esquema como funciona.

 

Obrigada.

[Eisenheim 67]

Olá!

 

Magina, estamos aqui para lhe ajudar, conte conosco.

 

:thumbsup:

[Jessica07 0]

Obrigada ^^