使用ADP進(jìn)行mdb數(shù)據(jù)庫開發(fā)的實(shí)現(xiàn)方案

zhuyiwen

使用ADP進(jìn)行mdb數(shù)據(jù)庫開發(fā)的實(shí)現(xiàn)方案

優(yōu)點(diǎn)：
1. 不依賴鏈接表
2. 純粹使用ADO
3. 可輕松將mdb數(shù)據(jù)庫應(yīng)用升遷到SQLServer數(shù)據(jù)庫應(yīng)用
4. 可使用記錄集作為報表的數(shù)據(jù)來源
5. 應(yīng)用程序中無數(shù)據(jù)，數(shù)據(jù)安全容易得到保障
缺點(diǎn)：
1. 編程量相對較大
2. 開發(fā)不直觀

實(shí)現(xiàn)原理：
1. ADO數(shù)據(jù)庫連接的提供者一定是 “Microsoft.Access.OLEDB.10.0”，這樣，記錄集才能綁定到窗體和報表
2. ADO數(shù)據(jù)庫連接的數(shù)據(jù)提供者是 “Microsoft.Jet.OLEDB.4.0” 或者 “Microsoft.ACE.OLEDB.12.0” 或者 “Microsoft.ACE.OLEDB.14.0”，即 mdb 數(shù)據(jù)庫的提供者
3. 新建 ADP 時，取消數(shù)據(jù)庫連接，即保證 ADP 處于斷開狀態(tài)， ADP 中無連接字符串。

對ADO進(jìn)行了一次封裝，作為全局的連接對象，放在 modADO 模塊中

1. Option Compare Database
   
2. Option Explicit
   
3. ' 作者：朱亦文(zhuyiwen)
   
4. ' 時間：2013-07-11
   
5. 
   
6. Public Const DBFileName = "Data.mdb"
   
7. Public Const DBProvider = "Microsoft.Access.OLEDB.10.0"
   
8. Public Const DBDataProvider = "Microsoft.Jet.OLEDB.4.0"
   
9. Public Const DBPersistSecurityInfo = "False"
   
10. Public Const DBCursorLocation = adUseServer
    
11. 
    
12. Private m_Conn As ADODB.Connection
    
13. Private m_DBErrorNum As Integer
    
14. Private m_DBErrorMessage As String
    
15. 
    
16. Public Property Get DBErrorNumber() As Integer
    
17.     DBErrorNumber = m_DBErrorNum
    
18. End Property
    
19. 
    
20. Public Property Get DBErrorMessage() As String
    
21.     DBErrorMessage = m_DBErrorMessage
    
22. End Property
    
23. 
    
24. Public Property Get DBConnectionString() As String
    
25.     DBConnectionString = _
    
26.         "Provider=" & DBProvider & ";" & _
    
27.         "Persist Security Info=" & DBPersistSecurityInfo & ";" & _
    
28.         "Data Source=" & CurrentProject.Path & "" & DBFileName & ";" & _
    
29.         "Data Provider=" & DBDataProvider
    
30. End Property
    
31. 
    
32. Public Property Get DBConnection() As ADODB.Connection
    
33. On Error GoTo err_GetDBConnection
    
34.     If m_Conn Is Nothing Then
    
35.         Set m_Conn = New ADODB.Connection
    
36.         m_Conn.CursorLocation = DBCursorLocation
    
37.     End If
    
38.    
    
39.     If m_Conn.State <> adStateOpen Then
    
40.         m_Conn.Open DBConnectionString
    
41.     End If
    
42.    
    
43.     Set DBConnection = m_Conn
    
44.     Exit Property
    
45.    
    
46. err_GetDBConnection:
    
47.     m_DBErrorNum = Err.Number
    
48.     m_DBErrorMessage = Err.Description
    
49.     Err.Clear
    
50. End Property
    
51. 
    
52. Public Function DBClearError() As Boolean
    
53.     m_DBErrorNum = 0
    
54.     m_DBErrorMessage = ""
    
55.     DBClearError = True
    
56. End Function
    
57. 
    
58. Public Function DBCloseConnection() As Boolean
    
59. On Error GoTo err_DBCloseConnection
    
60.     If m_Conn Is Nothing Then
    
61.         DBCloseConnection = True
    
62.     End If
    
63.    
    
64.     If m_Conn.State <> adStateClosed Then
    
65.         m_Conn.Close
    
66.     End If
    
67.    
    
68.     Set m_Conn = Nothing
    
69.     DBCloseConnection = True
    
70.    
    
71.     Exit Function
    
72.    
    
73. err_DBCloseConnection:
    
74.     m_DBErrorNum = Err.Number
    
75.     m_DBErrorMessage = Err.Description
    
76.     Err.Clear
    
77. End Function
    

復(fù)制代碼

這樣的好處，DBConnection 就相當(dāng)于CurrentProject.Connection，便于程序移植。

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

andymark

頂 一個

admin

先下手為強(qiáng)

gdjdyyj

學(xué)習(xí)！

admin

老朱,能實(shí)現(xiàn)報表了?

zhuyiwen

示例就是報表

admin

good!

yanwei82123300

先下手為強(qiáng)

zhao123dq

非常厲害              

月光如水

謝謝分享！