怎样利用 ADO 压缩 ACCESS 数据库？？？(0分)

G

gwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #1

希望能得到详细的 代码

 

X

xyptt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-20

• #2

翻翻前面的吧！太多了！！！

 

G

gwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #3

就是 没有找到咯 要不就 不用提问了

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #4

呵呵，今天中午刚粘贴的，再贴一次吧。
压缩数据库的部分代码：（我程序中的，没有整理）
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');

l_Source_Con_Str :=
'Data Source=' + VG_APP_PATH + 'JWC_Export.MDB' + ';' +
'Jet OLEDBatabase Password="' + VG_DB_PASS + '"';

l_Dest_Con_Str :=
'Data Source=' + l_Dest_DBName + ';' +
'Jet OLEDBatabase Password="' + l_Password + '"';

OleCheck(Dest_DB_Connection.CompactDatabase(l_Source_Con_Str, l_Dest_Con_Str));

 

G

gwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #5

第一句 报错

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-27

• #6

定义Dest_DB_Connection没，要定义为OleVariant类型。
如果还包错，那就需要安装Ado了，不过对于Windows98以上的版本都已经随操作系统带了。。。

 

G

gwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-27

• #7

unbeclared identifier:'createoleobject'
报这个错

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #8

这两天不太容易登录。
其实use Comobj就可以了。
对于找这类声明，有一个通用的方法，在Delphi5的目录下查找*.pas，其中包含createoleobject的就可以了。
前提是存在Delphi的声明。

 

G

gwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #9

好了 谢谢 YZHSHI