使用ADP进行mdb数据库开发的实现方案\ADO报表(使用ADP的mdb数据库报表)-朱亦文
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-报表


使用ADP进行mdb数据库开发的实现方案\ADO报表(使用ADP的mdb数据库报表)

发表时间:2013/10/23 9:41:08 评论(1) 浏览(4255)  评论 | 加入收藏 | 复制
   
摘 要:ADO报表(使用ADP的mdb数据库报表)
正 文:

使用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 模块中

Option Compare Database
Option Explicit
' 作者:朱亦文(zhuyiwen)
' 时间:2013-07-11

Public Const DBFileName = "Data.mdb"
Public Const DBProvider = "Microsoft.Access.OLEDB.10.0"
Public Const DBDataProvider = "Microsoft.Jet.OLEDB.4.0"
Public Const DBPersistSecurityInfo = "False"
Public Const DBCursorLocation = adUseServer

Private m_Conn As ADODB.Connection
Private m_DBErrorNum As Integer
Private m_DBErrorMessage As String

Public Property Get DBErrorNumber() As Integer
    DBErrorNumber = m_DBErrorNum
End Property

Public Property Get DBErrorMessage() As String
    DBErrorMessage = m_DBErrorMessage
End Property

Public Property Get DBConnectionString() As String
    DBConnectionString = _
        "Provider=" & DBProvider & ";" & _
        "Persist Security Info=" & DBPersistSecurityInfo & ";" & _
        "Data Source=" & CurrentProject.Path & "\" & DBFileName & ";" & _
        "Data Provider=" & DBDataProvider
End Property

Public Property Get DBConnection() As ADODB.Connection
On Error GoTo err_GetDBConnection
    If m_Conn Is Nothing Then
        Set m_Conn = New ADODB.Connection
        m_Conn.CursorLocation = DBCursorLocation
    End If
     
     If m_Conn.State <> adStateOpen Then
        m_Conn.Open DBConnectionString
    End If
 
    Set DBConnection = m_Conn
    Exit Property
   
err_GetDBConnection:
    m_DBErrorNum = Err.Number
    m_DBErrorMessage = Err.Description
    Err.Clear
End Property

Public Function DBClearError() As Boolean
    m_DBErrorNum = 0
    m_DBErrorMessage = ""
    DBClearError = True
End Function

Public Function DBCloseConnection() As Boolean
On Error GoTo err_DBCloseConnection
    If m_Conn Is Nothing Then
        DBCloseConnection = True
    End If
    
    If m_Conn.State <> adStateClosed Then
        m_Conn.Close
    End If
    
    Set m_Conn = Nothing
    DBCloseConnection = True
    
    Exit Function
     
err_DBCloseConnection:
    m_DBErrorNum = Err.Number
    m_DBErrorMessage = Err.Description
    Err.Clear
End Function


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



附   件:

ADO报表示例下载



Access软件网交流QQ群(群号:198465573)
 
 相关文章
选择 access 2007 ADP 的理由  【朱亦文  2009/6/4】
设置 ADP 的连接  【朱亦文  2009/6/4】
ADP 的启动过程控制探讨  【朱亦文  2009/6/4】
什么是ADP  【Access软件网整理  2009/12/23】
adp项目的发布  【煮茶论道  2012/1/10】
access2013不支持adp了是吗?  【麥田  2012/11/2】
 
 访客评论
2015/12/9ysg
学习了,老师辛苦。

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

朱亦文

文章分类

文章存档

友情链接