 |
|
茫茫網海中的冷日
發生過的事，不可能遺忘，只是想不起來而已！ |
|
|
恭喜您是本站第 1671633
位訪客!
登入 | 註冊
|
|
|
|
| 發表者 |
討論內容 |
冷日
(冷日) |
發表時間：2008/3/19 5:38 |
- Webmaster
- 註冊日: 2008/2/19
- 來自:
- 發表數: 15771
|
- [分享]經由 ADO 壓縮 Microsoft Access 資料庫
- HOWTO：經由 ADO 壓縮 Microsoft Access 資料庫
雖然 ADO 規格並沒有提供壓縮或修復 Microsoft Access 資料庫的物件，您卻可以經由使用 ADO 延伸模組：Microsoft Jet OLE DB Provider 與 Replication Objects (JRO) 來達成此功能。JET OLE DB Provider 4.0 版 (Msjetoledb40.dll) 與 JRO 2.1 版 (Msjro.dll) 中第一次實作此功能。安裝了 MDAC 2.1 之後就會有這些 DLL 檔可用。您可以從下面網站下載最新版的 MDAC：
Universal Data Access 網站 其他相關資訊
若要使用 ADO 修復並壓縮 Access 資料庫，您必須在電腦上安裝適當的 MDAC 2.1 或更新版本。下面是使用 Visual Basic 與 Visual C++ 來壓縮 Microsoft Access 資料庫的主要步驟：
Visual Basic：經由 ADO 壓縮 Access 資料庫
1. 在 Visual Basic IDE 中，在 [專案] 功能表上，按一下 [參考] 。
2. 新增 [Microsoft Jet and Replication Objects X.X library] ，其中 (X.X 大於或等於 2.1)。
3. 將下面幾行程式碼新增至 Visual Basic，如果有需要，請替換資料來源與目的資料庫路徑：
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4"
注意： 在 DAO 3.60 中，不再有 RepairDatabase 方法可用。上述程式碼是示範 CompactDatabase 方法的用法，此方法取代了 DAO 3.5 的 RepairDatabase 方法。
Visual C++：經由 ADO 壓縮 Access 資料庫
1. 除了 #import 之外，Msado15.dll (MDAC2.1) 新增下面 #import 陳述式以產生指向 .cpp 類別的 JRO 的包裝函式類別 (此外，您可以使用 #import 前置處理器陳述式的 no_implementation 與 implementation_only 屬性，更有效率的產生此包裝函式類別)： #import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace
2. 將下面程式碼 (指定您自己的來源與目的資料庫路徑) 新增至您想要壓縮資料庫的 .cpp 檔：
...try{
IJetEnginePtr jet(__uuidof(JetEngine));
jet-CompactDatabase(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc.mdb;" \
"Jet OLEDB:Engine Type=4");}
catch(_com_error &e){
::MessageBox(NULL, (LPCTSTR)e.Description( ), "", MB_OK) ;}
注意： Jet OLEDB:Engine Type=4 只適用於 Jet 3.x 格式的 MDB 檔。如果省略此值，則資料庫會自動升級至 4.0 版 (Jet OLEDB:Engine Type=5)。若需 Jet OLEDB:Engine Type 的適當數值的資訊，請參閱下面表格：
Jet OLEDB:Engine Type Jet x.x 格式的 MDB 檔 1 JET10
2 JET11 3 JET2X
4 JET3X 5 JET4X ?考
如需其他資訊，請參閱「Microsoft 知識庫」中的下面文件：
230496 經由 OLE DB 壓縮 Microsoft Access 資料庫 ?考
本文件是根據 Microsoft Knowledgebase 文件編號 Q230501 翻譯的. 若要參考原始英文文件內容, 請至以下網址:
http://support.microsoft.com/support/kb/articles/Q230/5/01.asp
--------------------------------------------------------------------------------
這篇文章中的資訊適用於:
‧ Microsoft ActiveX Data Objects 2.1 Service Pack 2
‧ Microsoft ActiveX Data Objects 2.5 Service Pack 2
‧ Microsoft ActiveX Data Objects 2.6 Service Pack 1
‧ Microsoft OLE DB Provider for Jet 4.0
|
|
|
|
|
冷日
(冷日) |
發表時間：2008/3/19 5:38 |
- Webmaster
- 註冊日: 2008/2/19
- 來自:
- 發表數: 15771
|
- [分享]用ASP壓縮Access資料庫
- 在web的系統中,如果是使用Access當資料庫的話,往往都會面臨一個問題,
就是資料刪除後,資料庫的檔案大小還是一樣大,
它並沒有因為裡面的資料被刪了而減少...
為了不讓我們的Access肆無忌憚的長大,
所以我們必須修復壓縮它一下!
在Access的[工具/資料庫公用程式]中,
有個[修復及壓縮資料庫],
但如果我們的資料庫放在那遙遠的主機上的話,
哪他下載下來"修理"完後再丟上去是有點浪費時間的...
(尤其遇到哪種主機代管商的網路不穩時...)
以下是一個壓縮資料庫的函數,
使用前提:主機須有安裝MDAC 2.1以上,可以使用FileSystemObject
Sub CompactDB(strDBFileName)
Set fso = CreateObject("Scripting.FileSystemObject")
dim strOldDB
strOldDB = server.MapPath(strDBFileName)
dim strNewDB
strNewDB = server.MapPath("New" & strDBFileName)
if fso.FileExists(strOldDB) then
'壓縮資料庫
Set Engine = Server.CreateObject("JRO.JetEngine")
strPvd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Engine.CompactDatabase strPvd & strOldDB , strPvd & strNewDB
set Engine = nothing
'刪除舊的資料庫
fso.DeleteFile strOldDB
' 將壓縮好的資料庫改回來
fso.MoveFile strNewDB, strOldDB
response.write "資料庫壓縮完畢!"
else
response.write "找不到指定的資料庫!"
end if
set FSO = nothing
end sub
呼叫方式
call CompactDB("yourdb.mdb")
如果你的資料庫是access 97的話,
就修改一下Engine.CompactDatabase 那段 ,將
Engine.CompactDatabase strPvd & strOldDB , strPvd & strNewDB
改成
Engine.CompactDatabase strPvd & strOldDB , strPvd & strNewDB & ";Jet OLEDB:Engine Type=4"
|
|
|
|
