UP也有分，200分呀，快来呀,帮我提前呀！

Question

40个猩猩告诉我，要多UP，他的星星就是UP来的，呵呵
UP~~~~~~~~~~~~~~~~~~~

Answer 1

up?
什么是UP? :->

Answer 2

MY GOD，真是惨呀，难道就没有人帮我吗？好伤心呀！！！！！！！！

Answer 3

      up
     up
   up
 up

Answer 4

up
     up
   up
 up
 up
     up
   up
 up

Answer 5

up
     up
   up
 up
 up
     up
   up
 up

Answer 6

如果往里面写就没有意义了，ACCESS中每个表都有创建时间的呀！

Answer 7

不知道access有没触发器否，有的话，写一个记录下来

Answer 8

关注
问题解决的请转给我 [email protected]  谢谢了

Answer 9

for i:=0 to 10000 do
begin
  with UP也有分
    close;
    up;
    open;
  end
end;
if i=10000 then zhrubin.score:=luoshumeng.givescore;

Answer 10

第一个问题大概只能用DAO去作了,你看一下DAO中有没有办法,不过我没试过在Delphi中使用DAO.
或者你用一个表去存储它,通过你的程序创建和修改的表你都可以得到创建时间和最后修改时间.这样可以在你改变DBMS时不用修改代码.
备份一个表要备份以下内容:
1.表结构
1.1所有的字段名、类型和限制。
1.2索引
1.3主键
1.4外键
2表数据.
1.2、1.3和1.4很难用一种通用的方法获得，所以最好用数据库自己的备份功能；如果这些不重要，或只需要备份数据，你应该为这些数据定义一些完备的数据结构，把它们用二进制的方式写到文件中去。

Answer 11

SQL Server中可以方便的從系統表（Object)中得到，Access應該會有方法的，
最壞的便是像“ ihihonline(小小->充电中……) ”兄說的自己增加一表來記錄了。

Answer 12

你看看这例子呢！
{***************************************************************
*
* Unit Name: unAccessTools
* Purpose  : Provide tools to compact and repair Access database.
*
****************************************************************}unit unAccessTools;interfaceuses Sysutils,ComObj,Dialogs;function DaoActive(var DaoObject:OleVariant):Boolean;
function DaoCompactDB(const FileName:string):Boolean;
function DaoRepairDB(const FileName:string):Boolean;implementationfunction DaoActive(var DaoObject:OleVariant):Boolean;
begin
  Result:=False;
  try
    DaoObject:=GetActiveOleObject('DAO.DBEngine.36');
    Result:=True;
  except
    try
      DaoObject:=CreateOleObject('DAO.DBEngine.36');
      Result:=True;
    except
      DaoObject:=Null;
    end;
  end;
end;//压缩Access数据库
function DaoCompactDB(const FileName:string):Boolean;
var
  db:OleVariant;
  TempFile:string;
begin
  Result:=False;
  try
    if not DaoActive(db) then
      Exit;
    try
      TempFile:=ExtractFilePath(FileName)+'msaTemp.mdb';
      db.CompactDatabase(FileName,TempFile);
      DeleteFile(FileName);
      RenameFile(TempFile,FileName);
      Result:=True;
    except
      on E:EOleException do
        ShowMessage(E.Message);
    end
  finally
    db:=Unassigned;
  end;
end;//修复Access数据库
function DaoRepairDB(const FileName:string):Boolean;
var
  db:OleVariant;
begin
  Result:=False;
  try
    if not DaoActive(db) then
      Exit;
    try
      db.RepairDatabase(FileName);
      Result:=True;
    except
      on E:EOleException do
        ShowMessage(E.Message);
    end
  finally
    db:=Unassigned;
  end;
end;end.