使用ADP进行mdb数据库开发的实现方案

zhuyiwen

使用ADP进行mdb数据库开发的实现方案

优点：
1. 不依赖链接表
2. 纯粹使用ADO
3. 可轻松将mdb数据库应用升迁到SQLServer数据库应用
4. 可使用记录集作为报表的数据来源
5. 应用程序中无数据，数据安全容易得到保障
缺点：
1. 编程量相对较大
2. 开发不直观

实现原理：
1. ADO数据库连接的提供者一定是 “Microsoft.Access.OLEDB.10.0”，这样，记录集才能绑定到窗体和报表
2. ADO数据库连接的数据提供者是 “Microsoft.Jet.OLEDB.4.0” 或者 “Microsoft.ACE.OLEDB.12.0” 或者 “Microsoft.ACE.OLEDB.14.0”，即 mdb 数据库的提供者
3. 新建 ADP 时，取消数据库连接，即保证 ADP 处于断开状态， ADP 中无连接字符串。

对ADO进行了一次封装，作为全局的连接对象，放在 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
    

复制代码

这样的好处，DBConnection 就相当于CurrentProject.Connection，便于程序移植。

游客，如果您要查看本帖隐藏内容请回复

andymark

顶 一个

admin

先下手为强

gdjdyyj

学习！

admin

老朱,能实现报表了?

zhuyiwen

示例就是报表

admin

good!

yanwei82123300

先下手为强

zhao123dq

非常厉害              

月光如水

谢谢分享！