我用的Win2000+Delphi+ACCESS, 我的程序中有以下代码:
var
dao:OLEVariant;
ExePath:string;
begin
ExePath:=ExtractFileDir(application.ExeName);
adoconnection1.Close;
dao:=CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase(ExePath+'\jf.mdb',ExePath+'\temp_jf.mdb');
DeleteFile(ExePath+'\jf.mdb');
RenameFile(ExePath+'\temp_jf.mdb',ExePath+'\jf.mdb');
adoconnection1.Open;
end;
程序在我机器上跑没有问题,当我把程序拷贝到一个Win2000系统但未装ACCESS2000的电脑上时,错误提示为'没有找到jf.mdb',我怀疑可能是没有装ACCESS2000从而导致库文件后缀名差异的原因。不知道是否如此?如果不装ACCESS2000,该怎么改程序?
var
dao:OLEVariant;
ExePath:string;
begin
ExePath:=ExtractFileDir(application.ExeName);
adoconnection1.Close;
dao:=CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase(ExePath+'\jf.mdb',ExePath+'\temp_jf.mdb');
DeleteFile(ExePath+'\jf.mdb');
RenameFile(ExePath+'\temp_jf.mdb',ExePath+'\jf.mdb');
adoconnection1.Open;
end;
程序在我机器上跑没有问题,当我把程序拷贝到一个Win2000系统但未装ACCESS2000的电脑上时,错误提示为'没有找到jf.mdb',我怀疑可能是没有装ACCESS2000从而导致库文件后缀名差异的原因。不知道是否如此?如果不装ACCESS2000,该怎么改程序?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货