ADP 連接管理組件范例

zhuyiwen

請下載以下附件：




兩個是一樣的，不要重復下載


該附件包含二個文件：YHAccess.dll, TestADP.adp

YHAccess.dll 為Access開發(fā)組件，其中包含：
yhADPConnection （ADP連接管理）
yhFormResize （ACCESS窗體縮放布局管理）
yhAccessHelper （Access輔助函數(shù)）

此貼只講解如何使用 yhADPConnection。

一、首先新建一個ADP。
二、在VBE下引用YHAccess.dll。
三、在立即窗口運行如下語句：

1. CurrentProject.CloseConnection
   
2. CurrentProject.OpenConnection "Provider=;"

復制代碼

此兩句的目的是清空當前ADP的數(shù)據(jù)庫連接信息。

四、新建一個名為StartForm的窗體，設置如下屬性：
滾動條：兩者均無
記錄選定器：否
導航按鈕：否
分隔線：否
自動居中：是
自動調(diào)整：是
彈出方式：否
模式：否

在該窗體的事件選項卡上選擇“加載”，并選擇“代碼生成器”，同時進入VBE，貼入如下代碼：

1. Option Compare Database
   
2. Option Explicit
   
3. ' 連接管理對象
   
4. Public objADP As New YHAccess.yhADPConnection
   
5. 
   
6. Private Function InitADP()
   
7. '=============================================================
   
8. ' Form_StartForm.InitADP
   
9. '-------------------------------------------------------------
   
10. ' 目的 : 初始化 ADP 連接
    
11. ' 作者 : 朱亦文, 2011年2月7日
    
12. ' 說明 :
    
13. '=============================================================
    
14. With objADP
    
15.     Set .Application = Application
    
16.     .Server = "(Local)" ' 數(shù)據(jù)庫服務器
    
17.     .Trusted = False ' SQL Server 驗證方式: True - 信任驗證(Windows)
    
18.     ' False - SQL 驗證
    
19.     ' 當為 False 時, 必須輸入 登錄ID 和 登錄密碼
    
20.     .UserID = "jxc" ' 登錄ID
    
21.     .Password = "jXc_2008" ' 登錄密碼
    
22.     .Database = "jxc" ' 連接的數(shù)據(jù)庫
    
23. 
    
24.     ' 也可以直接輸入連接字符串, 例如:
    
25.     '.ConnectionString = "Provider=SQLOLEDB.1;Password=jXc_2008;Persist Security Info=True;User ID=jxc;Initial Catalog=jxc;Data Source=(Local)"
    
26. 
    
27.     ' 如果測試成功則當前ADP連接數(shù)據(jù)庫
    
28.     If .TestConnection Then .ADPConnect
    
29. End With
    
30. End Function
    
31. 
    
32. Private Sub Form_Load()
    
33. '=============================================================
    
34. ' Form_StartForm.Form_Load
    
35. '-------------------------------------------------------------
    
36. ' 目的 : 窗體加載
    
37. ' 作者 : 朱亦文, 2011年2月7日
    
38. ' 說明 : 加載時初始化 ADP 窗體
    
39. '=============================================================
    
40. Me.Visible = False
    
41. InitADP
    
42. End Sub
    
43. 
    
44. Private Sub Form_Unload(Cancel As Integer)
    
45. '=============================================================
    
46. ' Form_StartForm.Form_Unload
    
47. '-------------------------------------------------------------
    
48. ' 目的 : 窗體卸載
    
49. ' 作者 : 朱亦文, 2011年2月7日
    
50. ' 說明 : 釋放ADP連接管理對象，同時清理ADP連接信息。
    
51. '=============================================================
    
52. ' 當關閉當前窗體時, 釋放對象, 同時清空 ADP 的連接信息.
    
53. Set objADP = Nothing
    
54. End Sub

復制代碼

然后，關閉窗體，保存。（注意：你必須設置你自己的連接信息）

五、創(chuàng)建自啟動宏Autoexec
在數(shù)據(jù)庫窗口中，選擇宏，新建宏：
操作：OpenForm
窗體名稱：StartForm
窗口方式：隱藏
關閉宏設計器，并將宏命名為“Autoexec”

82077802

好東東，學習！

t小寶

先下載學習

ey1001

先下載學習

sxb2007

先下載學習

fengtao666

朱總的東西都是好東西啊.

wangpeng692

踩點，以后來行竊

qxqjdy

看看

ycyhjj2865

小朱哥兒出品的東東，就是要頂!!

ui

再來下載