Fórum Erro na hora de salvar Data #349978
03/12/2007
0
estou criando um sistema e quando vo na tela de clientes e mando salvar o cliente novo esta dando o seguinte erro creio eu que referente a Data
Erro:
SQL Error code = -303
conversion error from string ´ - ´
Incompatible column/host variable data type
Error Code: 249´. Process stopped. use step or run to continue.
estou usando o seguinte codigo no botão salvar
procedure TFrmClientes.BitBtnSalvarClick(Sender: TObject);
begin
BitBtnNovo.Enabled := true;
BitBtnExcluir.Enabled := true;
BitBtnConsultar.Enabled := true;
BitBtnEditar.Enabled := true;
BitBtnSalvar.Enabled := false;
BitBtnCancelar.Enabled := false;
try
DM_systlab.SQLConnection1.StartTransaction(DM_systlab.Transacao);
DM_systlab.SQLDataSet1.Close;
DM_systlab.SQLDataSet1.CommandType := ctQuery;
DM_systlab.SQLDataSet1.CommandText := ´ insert into clientes (nome, endereco,´ +
´bairro, cidade, estado, cep, data_nascimento, documento, telefone1, contato1)´ +
´values (:nom, :end, :bair, :cid, :est, :cep, :dtn, :doc, :tel, :cont)´;
DM_systlab.SQLDataSet1.ParamByName(´nom´).AsString := EditName.Text;
DM_systlab.SQLDataSet1.ParamByName(´end´).AsString := EditEnd.text;
DM_systlab.SQLDataSet1.ParamByName(´bair´).AsString := EditBairro.Text;
DM_systlab.SQLDataSet1.ParamByName(´cid´).AsString := EditCid.Text;
DM_systlab.SQLDataSet1.ParamByName(´est´).AsString := ComboBoxEst.Text;
DM_systlab.SQLDataSet1.ParamByName(´cep´).AsString := MaskCep.Text;
DM_systlab.SQLDataSet1.ParamByName(´dtn´).AsString := DateToStr(Data);
DM_systlab.SQLDataSet1.ParamByName(´doc´).AsString := EditDocumento.Text;
DM_systlab.SQLDataSet1.ParamByName(´tel´).AsString := MaskEditTelefone.Text;
DM_systlab.SQLDataSet1.ParamByName(´cont´).AsString := EditContato.Text;
DM_systlab.SQLDataSet1.ExecSQL;
DM_systlab.SQLConnection1.Commit(DM_systlab.Transacao);
except
on Exc :Exception do
begin
ShowMessage(´ Erro ao Salvar Cliente´ + Exc.Message);
DM_systlab.SQLConnection1.Rollback(DM_systlab.Transacao);
end;
end;
end;
será que alguem poderia me dar uma força???
ficaria muito grato
des de ja obrigado
Jeovanne
Curtir tópico
+ 0Posts
03/12/2007
Delphi32
Se você modificar a SQL e não preencher o campo Data dá o erro também?
t+!
Gostei + 0
03/12/2007
Jeovanne
e se alterar o sql e salvar também da o mesmo erro
Gostei + 0
03/12/2007
Delphi32
t+!
Gostei + 0
03/12/2007
Gandalf.nho
Gostei + 0
03/12/2007
Jeovanne
é de acordo com o cliente
Gostei + 0
03/12/2007
Gandalf.nho
DM_systlab.SQLDataSet1.ParamByName(´dtn´).AsDateTime := Data
Gostei + 0
03/12/2007
Jeovanne
não muda
Gostei + 0
03/12/2007
Daykas
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)