M
mycwcgr_bak
Unregistered / Unconfirmed
GUEST, unregistred user!
下面我从网上看到的压缩accesss 2000数据库的方法,我的数据库E:/database.mdb
是一个英文access 2000数据库,并且它使用一个名称为ACCESS_CW.MDW
的system database,我用此方法压缩时,总是出现"多步OLE DB 操作产生错误。。。",
请问是为什么?
var
jt:TJetEngine;
pnstr:string;
sourcedatabase:WideString;
targatdatabase:WideString;
begin
sourcedatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=123;User ID=aa;'+
'Data Source=E:/database.mdb;'+
'Persist Security Info=True;'+
'Jet OLEDB:System database=E:/ACCESS_CW.MDW';
targatdatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=123;User ID=aa;'+
'Data Source=E:/newdatabase.mdb;'+
'Persist Security Info=True;'+
'Jet OLEDB:System database=E:/ACCESS_CW.MDW';
jt:=TjetEngine.Create(self);
jt.CompactDatabase(sourcedatabase, targatdatabase);
jt.free;
end;
是一个英文access 2000数据库,并且它使用一个名称为ACCESS_CW.MDW
的system database,我用此方法压缩时,总是出现"多步OLE DB 操作产生错误。。。",
请问是为什么?
var
jt:TJetEngine;
pnstr:string;
sourcedatabase:WideString;
targatdatabase:WideString;
begin
sourcedatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=123;User ID=aa;'+
'Data Source=E:/database.mdb;'+
'Persist Security Info=True;'+
'Jet OLEDB:System database=E:/ACCESS_CW.MDW';
targatdatabase:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password=123;User ID=aa;'+
'Data Source=E:/newdatabase.mdb;'+
'Persist Security Info=True;'+
'Jet OLEDB:System database=E:/ACCESS_CW.MDW';
jt:=TjetEngine.Create(self);
jt.CompactDatabase(sourcedatabase, targatdatabase);
jt.free;
end;