作者tedpc (PACSMAN)
看板Database
标题Re: [问题]VB6.0连结Access资料库
时间Sun Jul 22 12:12:53 2007
※ 引述《crooket (怼軮)》之铭言：
: 我再VB里进行对Access资料库的控制跟计算
: 但是却发现删除资料表时整个资料库的大小不会变小
: ex:
: 未删除资料表前资料库大小为2G
: 删除某个大资料表後还是2G
: 而且我资料库大小最大只能跑到2095108kb
: 请问该如何解决这些问题
: 补充:
: 我删除资料表的code为 db.execute "drop table XXX"
Module Module1
Sub Main()
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")
MsgBox("Finished Compacting Database!")
End Sub
End Module
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.123.9.189