G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
我曾经将ACCESS数据弄坏了 怎么用DELPHI测试ACCESS 是否为好的？？
请写上代码？？
请写上代码？？
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
不知道使用压缩和修复功能是否可以。
将数据文件压缩成另一个文件。
我没在自己的计算机旁边，明天给你贴一段代码。
将数据文件压缩成另一个文件。
我没在自己的计算机旁边，明天给你贴一段代码。
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
现在要的不是将它修复 我想要程序去测试它是不是好的 只要知道好坏就行了
怎么写代码？？？
怎么写代码？？？
Y
yysun
Unregistered / Unconfirmed
GUEST, unregistred user!
试着打开数据表(table)或者查询(Query)，打不开大概就坏了。[
]
]
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能写下代码呀？？？？
枫
枫
Unregistered / Unconfirmed
GUEST, unregistred user!
TADOConnection.OnInfoMessage
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能 将代码 再详细点
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
先用压缩和修复试试
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
用ATOConnection打开，打不开就认为是有问题吧
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在想要的是 让程序得知ACCESS是否是好的
给我代码 OK
给我代码 OK
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
不管用什么方法 只要代码
能不能在你们自己的机子上试一下
先建一个 文本文件 然后 将它 改成 .MDB 是文件 那个文件就成了
坏的ACCESS数据库了
能不能在你们自己的机子上试一下
先建一个 文本文件 然后 将它 改成 .MDB 是文件 那个文件就成了
坏的ACCESS数据库了
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
压缩数据库的部分代码：（我程序中的，没有整理）
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');
l_Source_Con_Str :=
'Data Source=' + VG_APP_PATH + 'JWC_Export.MDB' + ';' +
'Jet OLEDB
atabase 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));
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');
l_Source_Con_Str :=
'Data Source=' + VG_APP_PATH + 'JWC_Export.MDB' + ';' +
'Jet OLEDB
atabase Password="' + VG_DB_PASS + '"';l_Dest_Con_Str :=
'Data Source=' + l_Dest_DBName + ';' +
'Jet OLEDB
atabase Password="' + l_Password + '"';OleCheck(Dest_DB_Connection.CompactDatabase(l_Source_Con_Str, l_Dest_Con_Str));
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能 用 ADO 实现呢 我找了 大富翁以前的 帖子 有人提过 但没说清
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
能！
以前帖子有，使用DAO实现的。
以前帖子有，使用DAO实现的。
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
找到了，这段代码：
好像还应该有直接使用BDE来完成的，但是我没有找到。
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.CompactDatabase('d:/yourDatabaseName.mdb','d:/yourNewCompactedDatabaseName.mdb');
end;
好像还应该有直接使用BDE来完成的，但是我没有找到。
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.CompactDatabase('d:/yourDatabaseName.mdb','d:/yourNewCompactedDatabaseName.mdb');
end;
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
dao:=CreateOleObject('DAO.DBEngine.35');
这句 报错
这句 报错
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
因该是版本问题，使用'DAO.DBEngine.36'了，看看不加那个版本成不？
我是照抄Delphi离线数据库的
我是照抄Delphi离线数据库的
小
小路
Unregistered / Unconfirmed
GUEST, unregistred user!
我还不会请多多指教！[]
]
G
gwei
Unregistered / Unconfirmed
GUEST, unregistred user!
没有申报的 CREATEOLEOBJECT
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
uses comobj