|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
asen (阿森) |
★☆☆☆☆ |
-
|
普通会员 |
|
2004/5/12 23:28:47 |
标题: |
|
加入我的收藏 |
楼主: |
如下是一段压缩Access数据库代码,可调试不能通过,提示“多步OLE DB操作产生的错误”,不知错在哪,请高手指出。
procedure CompactAccess(fname:string;JetId:string=’4.0’); var AVariant:Variant; begin if FileExists(fname+’.tmp’) then DeleteFile(fname+’.tmp’); Avariant:=CreateOleObject(’JRO.JetEngine’); Avariant.CompactDataBase(’Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=’+fname+’;Persist Security Info=False;Jet OLEDB:Database Password=xxxx’, ’Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=’+fname+’.tmp;Persist Security Info=False;Jet OLEDB:Database Password=xxxx’); DeleteFile(fname); ReNameFile(fname+’.tmp’,fname); end;
----------------------------------------------
- |
|