Il codice è molto banale perchè dev'essere una cosa estremamente banale è per questo che non l'ho postato, cmq:
codice:
try
DataModuleAssenze.ADOConnection.BeginTrans;
with DataModuleAssenze.TAssenze do begin
Close;
Open;
Append;
FieldByName('Interno').Value := db_interno;
FieldByName('DataIni').AsString := aa_i+mm_i+gg_i;
if Length(TimeToStr(DTPOraInizio.Time)) < 8 then
FieldByName('OraIni').AsString := '0'+Copy(TimeToStr(DTPOraInizio.Time), 0, 4)
else
FieldByName('OraIni').AsString := Copy(TimeToStr(DTPOraInizio.Time), 0, 5);
FieldByName('DataFine').AsString := aa_f+mm_f+gg_f;
if Length(TimeToStr(DTPOraFine.Time)) < 8 then
FieldByName('OraFine').AsString := '0'+Copy(TimeToStr(DTPOraFine.Time), 0, 4)
else
FieldByName('OraFine').AsString := Copy(TimeToStr(DTPOraFine.Time), 0, 5);
Post;
end;
DataModuleAssenze.ADOConnection.CommitTrans;
except
DataModuleAssenze.ADOConnection.RollbackTrans;
if MessageDlg('ERRORE REGISTRAZIONE.', mtError, [mbOk], 0) = mrOk then
Close;
end; //try-except
poi: tutti i campi della tabella sono di tipo Testo
spero ti possa aiutare.
Grazie.