Re: [問題]VB6.0連結Access資料庫

[tedpc (PACSMAN)]

※ 引述《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