怎樣用程序為控制access里的修復及壓縮功能﹐謝謝(20分)

lzl200188 · 2001-09-19

怎樣用程序為控制access里的修復及壓縮功能﹐謝謝

antic_ant · 2001-09-19

function daocompactdb:boolean;         //compactdatabase   var     srcfile,dstfile:widestring;     db:_DBEngine;     dtbs:database;   begin    srcfile:=extractfilepath(application.ExeName)+'agritax.mdb';    dstfile:=extractfilepath(application.ExeName)+'tempfile.mdb';    try      try        db:=coDBEngine.Create;        dtbs:=db.OpenDatabase(srcfile,true,false,';pwd=agriculture');        dtbs.NewPassword('agriculture','');        dtbs.Close;        dtmd.DataModule1.adocntion.Connected:=false;        db.CompactDatabase(srcfile,dstfile,emptyparam,emptyparam,'');   //     db.CompactDatabase(srcfile,dstfile,emptyparam,emptyparam,'agriculture');        dtmd.DataModule1.adocntion.Connected:=false;        if not copyfile(pchar(dstfile),pchar(srcfile),false) then        begin          deletefile(dstfile);          result:=false;          exit;        end;      finally        dtbs:=db.OpenDatabase(srcfile,true,false,';pwd=');        dtbs.NewPassword('','agriculture');        dtbs.Close;        dtmd.DataModule1.adocntion.Connected:=true;      end;      //dtmd.DataModule1.adocntion.Connected:=true;      result:=true;    except // wrap up      dtmd.DataModule1.adocntion.Connected:=true;      result:=false;      dtmd.DataModule1.adocntion.Connected:=true;    end;    // try/except    deletefile(dstfile);    dtmd.DataModule1.adocntion.Connected:=true;  end;  function daorepairdb:boolean;       //repairdatabase  var    db:_DBEngine;  begin    db:=coDBEngine.Create;    try      db.RepairDatabase(extractfilepath(application.ExeName)+'agritax.mdb');      result:=true;    except      result:=false;    end;  end; function getusername(userid :string):string; begin   with DataModule1.adoqry do   begin     try       Active := False;     except     end;     SQL.Clear;     SQL.Add('select username from sysusers where userid='''+userid+'''');     Active := True;     if not (BOF and EOF) then       Result:=FieldByName('username').asstring     else       Result := '';     try       Active := False;     except     end;   end; end;

怎樣用程序為控制access里的修復及壓縮功能﹐謝謝(20分)

lzl200188

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

Similar threads