在Delphi中用ADO压缩Access数据库之不引用JRO类型库方法 (0分)

  • 主题发起人 主题发起人 ysai
  • 开始时间 开始时间
Y

ysai

Unregistered / Unconfirmed
GUEST, unregistred user!
看到很多富翁提出类似问题,给出一个比较好的解决方法
第一个参数为原始数据库文件名(完整路径),第二个参数为密码
修改后可以实现压缩后与压缩前有不同的密码!
//引用ComObj,ActiveX
function CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
var
SPath,SFile:Array [0..254] Of Char;
STempFileName:String;
JE:OleVariant;
begin
GetTempPath(40,SPath);//取得Windows的Temp路径
GetTempFileName(SPath,'~CP',0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);//删除Windows建立的0字节文件
try
JE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放
OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord])));//压缩数据库
//复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有达到函数的功能
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);//删除临时文件
except
result:=false;//压缩失败
end;
end;
 
JE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放
还不是要引用JRO类型库
 
我是说不在DELPHI中引用,是直接调用接口
 
其实还要要用上JRO的,只不过使用的方法不一样啦。
 
请看清题目,是"在DELPHI中不引用JRO类型库"
不是"不使用JRO类型库"
 
哈哈,有意思,老兄是学语文的吧?
 
NO,学数学的
 
可爱,哈哈~~
 
老兄你学什么的?有QQ没有?
 
试试看,thanks
 
接受答案了.
 
刚才很奇怪的,我问了一个如何压缩access 数据库的问题,竟然收到了ysai朋友发给我的消息,
这个消息可用 net send 指令实现,但是ysai朋友,您是怎么知道我机器的ip的,
在说我的机器是局域网里的机器,通过代理服务器上网的,
我很想了解,是不是大富翁自带这个功能。
 
呵呵~你弄错了,这个消息并非使用net send发送,net send显然不能发给局域网内的某
一台计算机,这个消息是IE的对话框,你到在线富翁中去看看就知道了。
 
远帆朋友,这个功能,我觉得挺有用的,能不能说的详细一点,教我如何使用,谢谢啦。
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1268352
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
629
import
I
后退
顶部