如何实现用delphi实现压缩access数据库
解决方案 »
- 越来越怕过年
- 准备做嵌入式开发了,嘿嘿。
- 请教大家怎么样在Delphi中怎样操作Auto CAD???
- 程序在打包运行后,有时候窗体出现“子窗体没有菜单”的错误提示是怎么回事?
- 问一个久而不决的问题,在VC,VB,DELPHI版块均找不到答案,哪位高手愿意接受挑战?UP也有分
- 如何在image中清除已加载的图像?
- 在线等%% IDHTTP+SSL的问题
- BCB中的(long)ComboBox1->Text.c_str()相当与DELPHI中的什么?
- Delphi中有没有类似VB中的AddressOf操作符?
- 因为要进行程序测试(监控程序),需要一个一运行就死的程序代码,不知道如何写这个程序?
- oracle的连接查询
- dbchart为什么有的有数标有的没有?
步骤如下: 1、在Delphi集成开发环境中,点选菜单(Project-Import Type Library)。 2、在弹出的对话框中,移动滚动条,找到Microsoft Jet and Replication Objects 2.1 Library。 3、点击Install按钮。 然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。好了,运行程序试一下吧,数据库文件是不
是小了好多呢?
procedure TForm1.StartClick(Sender: TObject);
begin
DeleteFile('d:\db\OldTemp.rar');
RenameFile('d:\db\Temp.rar', 'd:\db\OldTemp.rar');
if CompactAndRepair('d:\db\OldTemp.rar', 'd:\db\Temp.rar') then
ShowMessage('操作成功')
else
ShowMessage('操作失败');
end;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;
try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := nil;
Result := True;
except
oJetEng := nil;
Result := False;
end;
end;
/////////////////////////////压缩及修改数据库/////////////////////////////