mdbconnobj.vb

本人收集到的流水帐软件!小巧实用,希望对大家有说帮助.

'数据库操作类MdbconnObj
'数据库连接字符串：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB.Net\小鱼流水帐\DataBase\MyData.mdb;Persist Security Info=False
Public Class MdbConnObj
    Private m_ConnObj As Data.OleDb.OleDbConnection '用来保存系统内部连接字符串
    Private m_LastError As String '用来保存错误消息
    Public Shared ConnString As String = ConnStr
    '对外提供连接对象
    Public ReadOnly Property ConnObj() As Data.OleDb.OleDbConnection
        Get
            If m_ConnObj Is Nothing Then
                m_ConnObj = New System.Data.OleDb.OleDbConnection(ConnString)
            End If
            Return m_ConnObj
        End Get
    End Property
    '打开连接，并且返回连接是否正确打开,如果没有打开，请检查连接字符串
    Public Function Connect() As Boolean
        Try
            If ConnObj.State <> ConnectionState.Open Then
                ConnObj.Open()
            End If
            Return True
        Catch ex As Exception
            m_LastError = "连接数据库失败：" + ex.Message
            Return False
        End Try
    End Function
    '用户可以得到最后的错误消息
    Public ReadOnly Property LastError() As String
        Get
            Return m_LastError
        End Get
    End Property
End Class