O campo não é obrigatório e é via dbExpress. Insert into clientes '+ '(idcliente,fantasia, razao,cnpj_cpf,rg_ie,tipo_cliente,tipo_logradouro, '+ 'endereco, numero, complemento, cep, bairro, cidade, uf, telefone, '+ 'celular, fax, email, nome_socio,dtnascimento_socio ,cpf_socio, rg_socio,'+ 'nome_socio2,dtnascimento_socio2,cpf_socio2, rg_socio2,'+ ' data_nascimento,login, data_cpu, contato,contratosocial_entregue,'+ 'cnpj_entregue,idramo,observacao,idvendedor,site,'+ 'nome_comprador1,nascimento_comprador1,cargo_comprador1,email_comprador1,'+ 'nome_comprador2,nascimento_comprador2,cargo_comprador2,email_comprador2,'+ 'data_cadastro,situacao_cliente, credito) '+ 'values (:xidcli,:xfanta, :xrazao, :xcnpj, :xrgie, :xtipocli, :xtipolog, '+ ':xend, :xnum, :xcompl, :xcep, :xbairro, :xcidade, :xuf, :xtel,'+ ':xcel, :xfax, :xemail, :xnmsocio1,:xdtsocio1 ,:xcpfsocio1, :xrgsocio1,'+ ':xnmsocio2,:xdtsocio2,:xcpfsocio2,:xrgsocio2,'+ ':xdtnasc,:xlogin,:xdtcpu, :xcontact,:xcontrato,:xcnpjentreg,:xidramo,:xobs,:xidvend,:xsite,'+ ':xnmcompra1,:xnasccompra1,:xcargo1,:xemailcomprador1,'+ ':xnmcompra2,:xnasccompra2,:xcargo2,:xemailcomprador2,'+ ':xdtcad,:xsitcli,:xcred '+ ')';
transacao.TransactionID :=1; transacao.IsolationLevel:=xilReadCommitted; dmpromo.SQLCpromo.StartTransaction(transacao); with dmpromo.SQLDataSet_promo do begin // with Close; CommandType:=ctQuery; CommandText:='Insert into clientes '+ '(idcliente,fantasia, razao,cnpj_cpf,rg_ie,tipo_cliente,tipo_logradouro, '+ 'endereco, numero, complemento, cep, bairro, cidade, uf, telefone, '+ 'celular, fax, email, nome_socio,dtnascimento_socio ,cpf_socio, rg_socio,'+ 'nome_socio2,dtnascimento_socio2,cpf_socio2, rg_socio2,'+ ' data_nascimento,login, data_cpu, contato,contratosocial_entregue,'+ 'cnpj_entregue,idramo,observacao,idvendedor,site,'+ 'nome_comprador1,nascimento_comprador1,cargo_comprador1,email_comprador1,'+ 'nome_comprador2,nascimento_comprador2,cargo_comprador2,email_comprador2,'+ 'data_cadastro,situacao_cliente, credito) '+ 'values (:xidcli,:xfanta, :xrazao, :xcnpj, :xrgie, :xtipocli, :xtipolog, '+ ':xend, :xnum, :xcompl, :xcep, :xbairro, :xcidade, :xuf, :xtel,'+ ':xcel, :xfax, :xemail, :xnmsocio1,:xdtsocio1 ,:xcpfsocio1, :xrgsocio1,'+ ':xnmsocio2,:xdtsocio2,:xcpfsocio2,:xrgsocio2,'+ ':xdtnasc,:xlogin,:xdtcpu, :xcontact,:xcontrato,:xcnpjentreg,:xidramo,:xobs,:xidvend,:xsite,'+ ':xnmcompra1,:xnasccompra1,:xcargo1,:xemailcomprador1,'+ ':xnmcompra2,:xnasccompra2,:xcargo2,:xemailcomprador2,'+ ':xdtcad,:xsitcli,:xcred '+ ')'; ParamByName('xidcli').AsInteger :=idcli; ParamByName('xfanta').AsString :=Edit_fantasia.Text; ParamByName('xrazao').AsString :=Edit_nomecliente.Text; ParamByName('xcnpj').AsString :=ffuncoes.numeros(xcpf_cnpj); Parambyname('xrgie').AsString :=Edit_rg_ie.Text; ParamByName('xtipocli').AsString:=tipocli; ParamByName('xtipolog').AsString:=CbBox_lograd.Text; ParamByName('xend').AsString:=Edit_endereco.Text; ParamByName('xnum').AsString:=Edit_numero.Text; ParamByName('xcompl').AsString:=Edit_compl.Text; ParamByName('xcep').AsString:=Edit_cep.Text; ParamByName('xbairro').AsString:=Edit_bairro.Text; ParamByName('xcidade').AsString:=edit_cidade.Text; ParamByName('xuf').AsString:=ComboBox_uf.Text; ParamByName('xtel').AsString:=Memo_tels.Text;// Edit_tels.Text; ParamByName('xcel').AsString:=ed_cel.Text; ParamByName('xfax').AsString:=Edit_fax.Text; ParamByName('xemail').AsString:=Edit_email.Text; ParamByName('xcpfsocio1').AsString:=ffuncoes.numeros(ed_cpfsocio.Text); ParamByName('xrgsocio1').AsString:=ed_rgsocio.Text; ParamByName('xcpfsocio2').AsString:=ffuncoes.numeros(ed_cpfsocio2.Text); ParamByName('xrgsocio2').AsString:=ed_rgsocio2.Text; if not ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then ParamByName( 'xdtnasc' ).Clear else ParamByName('xdtnasc').AsDate:= strtodate(MaskEdit_dtnasccliente.text); ParamByName('xlogin').AsString:=login_user; ParamByName('xdtcpu').AsDate:=date; ParamByName('xcontact').AsString:=ed_contato.Text; if ChkBox_contrato.Checked then ParamByName('xcontrato').AsString:='1' else ParamByName('xcontrato').AsString:='0'; if ChkBox_cnpj.Checked then ParamByName('xcnpjentreg').AsString:='1' else ParamByName('xcnpjentreg').AsString:='0'; if ffuncoes.ValidaInt(edit_ramo.Text) then Parambyname('xidramo').AsInteger:=Strtoint(edit_ramo.Text) else Parambyname('xidramo').AsInteger:=0; ParamByName('xobs').AsString:=memo_obs.Text; // edit_obs.Text; if ffuncoes.ValidaInt(ed_numvend.Text) then ParamByName('xidvend').AsInteger:=strtoint(ed_numvend.Text) else ParamByName('xidvend').AsInteger:=0; ParamByName('xsite').AsString:=ed_site.Text; if novocli then ParamByName('xdtcad').AsDate:=Now; end; // with dmpromo.SQLDataSet_promo.ExecSQL; dmpromo.SQLCpromo.Commit(transacao); Marlon Tiedt <[EMAIL PROTECTED]> escreveu: Como você está acessando o BD? Via dbExpress? O campo é obrigatório? Passo o código inteiro para a gente dar uma olhada. []s, Marlon ----- Original Message ----- From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Monday, January 07, 2008 11:54 AM Subject: RE: [delphi-br] Data vazia Bom Dia ! Quando coloco ParamByName('xdtnasc').Value := null ou ParamByName('xdtnasc').clear, dá uma mensagem de rro: "No value for parameter 'XDTNASC'" Jiuney Pachevitch <[EMAIL PROTECTED]> escreveu: Bom dia! Qual a msg de erro que dá? To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 7 Jan 2008 10:39:53 -0300Subject: Re: [delphi-br] Data vazia Gerson,Já havia tentado isso também. O delphi até compilas, mas dá erro na hora da execução.Valeu!Gerson Machado <[EMAIL PROTECTED]> escreveu: Veja ....ParamByName( 'xdtnasc' ).Clear;GersonRicardo Cabral <[EMAIL PROTECTED]> escreveu:Marlon e Davi,Agradeço as dicas de ambos, mas não funcionou. O delphi até compila, mas dá erro em tempo de execução.[]´s RicardoMarlon Tiedt <[EMAIL PROTECTED]> escreveu: Ou você pode fazer assim:ParamByName('xdtnasc').Value := null;Funciona com qualquer tipo de campo.FalouMarlon----- Original Message ----- From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Monday, January 07, 2008 10:35 AMSubject: RES: [delphi-br] Data vaziaParamByName('xdtnasc').DataType := FtDateTime;ParamByName('xdtnasc').Clear;De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo CabralEnviada em: segunda-feira, 7 de janeiro de 2008 10:30Para: [EMAIL PROTECTED]: [delphi-br] Data vaziaCaros colegas,Uso o delphi 7 com firebird.Tenho um problema na hora de gravar em um campo data. No formulário de cadastro tem um edit para data de nascimento. O problema é gravar nesse campo quando o usuário deixa vazio.já tentei "ParamByName('xdtnasc').AsDate:=null", mas mesmo assim dá erro!Alguém tem uma dica ?Desde de já agradeço.Abraços,Ricardo Cabral---------------------------------Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas]----------------------------------------------------------No virus found in this incoming message.Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.17.13/1213 - Release Date: 7/1/2008 09:14[As partes desta mensagem que não continham texto foram removidas]---------------------------------Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]---------------------------------Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]Abraços,Ricardo Cabral---------------------------------Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] __________________________________________________________ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] Abraços, Ricardo Cabral --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] ---------------------------------------------------------- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.17.13/1213 - Release Date: 7/1/2008 09:14 [As partes desta mensagem que não continham texto foram removidas] Abraços, Ricardo Cabral --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]