|
再論 Access 應用程序的打包：
繼上次我們在《關于Access打包軟件的有關闡述》一文中討論了 Access 開發(fā)版的打包功能后，今天我們再來詳細的敘述一下不用開發(fā)版打包而使用 WinRAR 3.0 這個壓縮軟件來實現(xiàn)打包的方法。
首先，我們必須先在您的數(shù)據(jù)庫文件（*.mdb或*.mde）中一下腦筋。一般來說，客戶的數(shù)據(jù)庫使用環(huán)境往往與我們的開發(fā)環(huán)境不相同，因而經常會造成動態(tài)鏈接庫文件（*.dll,*.tlb）丟失，我們最常用的辦法就是在 COPY 完 MDB 文件后進入代碼界面，選工具中的引用，重新建立引用。而很多朋友就是因為這樣不方便而選擇了開發(fā)版的打包功能，因為打包功能往往會把你使用到的相關文件都一起打包。其實我們大可不必如此大費周章。我們只要在模塊中加入以下代碼：
Public Sub DeclareDLL()
‘曾經有人跟我說用FeatureInstall ，
‘和Public Declare Sub GetScanImg Lib "d:\學生成績\同學通訊錄\scanimg.dll" ()
‘但結果無效，請您幫助看看
Dim ExistDll(10, 2) As String, i As Integer
Dim PathName As String
PathName = Application.CurrentProject.Path & "\" ‘根據(jù)你的實際情況可以更改
ExistDll(0, 0) = "stdole"
ExistDll(0, 1) = "stdole2.tlb"
ExistDll(1, 0) = "ADODB"
ExistDll(1, 1) = "msado25.tlb"
ExistDll(2, 0) = "DAO"
ExistDll(2, 1) = "dao360.dll"
ExistDll(3, 0) = "ADOX"
ExistDll(3, 1) = "msadox.dll"
‘這里我的數(shù)據(jù)庫中需要引用4個，你可以按你的實際情況添加
For i = 0 To 3
ExistDll(i, 2) = "Not Found"
Next i
Dim R As Reference
For Each R In References
For i = 0 To 3
If R.Name = ExistDll(i, 0) Then ExistDll(i, 2) = "Found"
Next i
Debug.Print R.Name & " @ " & R.FullPath & " -> " & R.BuiltIn
‘上一句可以檢測您數(shù)據(jù)庫中所使用到的所有動態(tài)鏈接庫
Next
For i = 0 To 3
If ExistDll(i, 2) = "Not Found" Then
References.AddFromFile PathName & ExistDll(i, 1)
End If
Next i
End Sub
|
再在啟動窗體中加入以下代碼：
Private Sub Form_Current()
Call DeclareDLL ‘聲明所有非默認的動態(tài)鏈接庫
End Sub |
然后整理出所有的你需要用到的動態(tài)鏈接庫文件，并將其復制到 MDB 文件同一目錄下，以后壓縮時一起打包。
其次，我們必須將數(shù)據(jù)庫中所有需引用到的其他文件依次的復制到 MDB 文件同一目錄或者子目錄中，再在程序的相應位置中以相對路徑代替絕對路徑：Application.CurrentProject.Path & "\"
在這里，要提醒的是在打包 MDB 文件前，請先到 工具 -> 引用 中去把所有能去掉的引用全部去掉，除非 Access 提示這是 Access 正在使用的引用（一般是 VBA 和 MS Access Object 這兩個）。切記，其他的一律去掉。至于為什么你試驗以后就知道了。
最后，就要請我們的壓縮高手 WinRAR 3.0 中文版出場了。
1、選定所有文件，并右鍵單擊在快捷菜單中選取“添加到檔案文件”
2、在彈出的窗體中選擇“創(chuàng)建自釋放格式檔案文件”，然后再選取“高級”選卡
圖片如下：
3、單擊“SFX 選項”
圖片如下：
4、在“釋放路徑”中填寫相對路徑，如下圖中，我填寫的路徑，將來就會釋放到 program files\Access911\Work For PY 這個目錄中。
圖片如下：
5、再選取高級選卡，單擊“添加快捷方式”按鈕
圖片如下：
6、在彈出的窗體中選擇“開始菜單/程序”，當然，你也可以選擇其他的。然后填寫。
源文件名——就是你的 MDB 文件名稱；
目標文件夾——就是 開始 -> 程序 菜單中的文件夾名稱；
快捷方式名稱——就是菜單項的名稱；
填寫完成后按確定，一個快捷方式就可以在解壓縮后自動生成了。
圖片如下：
7、最后再選擇“文字和圖標選卡”，用來選擇你的壓縮包使用的圖標。
圖片如下：
這些都搞定后，你就一路按確定吧，然后你就可以生成自己的安裝包了，安裝包也會自動為你添加快捷方式指向你的 MDB 文件。
最后，你只要跟你的客戶說：“你自己裝一下 Office ，這你總搞得定吧？！然后去我的網站下載程序包，雙擊，然后一路按確定，安裝完成后你就能用了，OK ？”
|
