Code: Select all
UpdatesApplied.Open;
UpdatesApplied.Edit;
UpdatesApplied.Append;
FN:=extractfilename(SQL_FN);
UpdatesApplied.FieldByName('UpdateFN').AsString:=quotedstr(FN);
UpdatesApplied.FieldByName('SQL').AsString:=quotedstr(LiteSQL1.SQL.GetText);
UpdatesApplied.Fieldbyname('Applied').AsDateTime:=Now();
UpdatesApplied.Fieldbyname('Status').AsString:='PENDING';
updatesapplied.Post;
Code: Select all
DBM.UpdatesApplied.Open;
DBM.UpdatesApplied.Append;
DBM.UpdatesApplied.FieldByName('UpdateFN').AsString:=extractfilename(Application.Title)+' '+VersionTxt;
DBM.UpdatesApplied.FieldByName('SQL').AsString:=VersionTxt;
DBM.UpdatesApplied.FieldByName('Applied').AsDateTime:=now();
DBM.UpdatesApplied.FieldByName('Status').AsString:='1ST_RUN';
DBM.UpdatesApplied.Post;