如何使用 dao2000进行压缩、修复、创建ACCESS数据库？(30分)

W

wanlihen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #1

我在WIN XP环境下用Delphi6进行编程，请问如何使用 dao2000进行压缩、修复、创建ACCESS数据库？
好象无法依照我用dao97做的进行压缩、修复、创建ACCESS数据库的子程序。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #2

老兄说的dao2000是不是指dao3.6,

 

W

wanlihen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #3

hbezwwl老兄，你好！
我说的就是dao3.6。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #4

压缩数据库
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase('d:/yourDatabaseName.mdb',
'd:/yourNewCompactedDatabaseName.mdb');
end;

修复数据库
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.36');
dao.RepairDatabase('d:/yourDatabaseName.mdb');
end;

 

W

wanlihen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #5

hbezwwl老兄，你好！
最关键是创建ACCESS数据库及数据表！

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #6

用SQL语句Create Table

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #7

//创建数据库
uses DAO97;
实现部分：
procedure TFormOffice.BitBtn4Click(Sender: TObject);
var
EngineBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
end;

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #8

创建表用CreateTabledef就行。

 

W

wanlihen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #9

多人接受答案了。