access数据库怎么能得到数据库最后一次修改的时间呢？

Question

有没有这方面的方法？

Answer 1

打开ACCESS数据库，工具->选项->视图->勾选隐藏对象和系统对象
然后就可以看见许多隐藏表和系统表
其中有一个MSysObjects表，里面记录时间
查询它试一试另外先要在工具->安全->用户权限里设定这个表的权限，默认是不开放读写权限的

Answer 2

Delphi中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性function   FileAge(const   FileName:   string):   Integer;   $[SysUtils.pas  
功能     返回文件创建的时间  
说明     文件不存在则返回-1  
参考     function   Windows.FindFirstFile  
例子  
///////Begin   FileAge,DateTimeToStr,FileDateToDateTime  
procedure   TForm1.Button1Click(Sender:   TObject);  
begin  
      SpinEdit1.Value   :=   FileAge(Edit1.Text);  
      if   SpinEdit1.Value   >   0   then  
          Edit2.Text   :=   DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));  
end;  
///////End   FileAge,DateTimeToStr,FileDateToDateTime  
首部     function   FileGetDate(Handle:   Integer):   Integer;   $[SysUtils.pas  
功能     返回文件的修改时间  
说明     读取失败则返回-1  
参考     function   Windows.GetFileTime  
例子  
///////Begin   FileGetDate  
procedure   TForm1.Button1Click(Sender:   TObject);  
var  
      I:   Integer;  
begin  
      I   :=   FileOpen(Edit1.Text,   fmOpenRead);  
      if   I   <   0   then   Exit;  
      SpinEdit1.Value   :=   FileGetDate(I);  
      Edit2.Text   :=   DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));  
      FileClose(I);  
end;  
///////End   FileGetDate  
────────────────────────  
首部     function   FileSetDate(const   FileName:   string;   Age:   Integer):   Integer;   overload;   $[SysUtils.pas  
首部     function   FileSetDate(Handle:   Integer;   Age:   Integer):   Integer;   overload;   platform;   $[SysUtils.pas  
功能     返回设置文件的修改时间  
说明     修改成功则返回0  
参考     function   Windows.SetFileTime  
例子     SpinEdit1.Value   :=   FileSetDate(Edit1.Text,   DateTimeToFileDate(StrToDateTime(Edit2.Text)));  
────────────────────────      
首部     function   FileGetAttr(const   FileName:   string):   Integer;   platform;   $[SysUtils.pas  
功能     返回文件的属性  
说明     读取失败则返回$FFFFFFFF  
参考     function   Windows.GetFileAttributes  
例子     SpinEdit1.Value   :=   FileGetAttr(Edit1.Text);  
────────────────────────  
首部     function   FileSetAttr(const   FileName:   string;   Attr:   Integer):   Integer;   platform;   $[SysUtils.pas  
功能     返回设置文件的属性  
说明     设置成功则返回0  
参考     function   Windows.SetFileAttributes  
例子     SpinEdit1.Value   :=   FileSetAttr(Edit1.Text,   SpinEdit2.Value);