连接类.vb

来自「CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN」· VB 代码 · 共 51 行

'.Net数据库操作类生成器 V3.0
'http://www.qqwwee.com
'代码生成时间： 2005-9-1 22:16:18

Imports System.Data.OleDb

Public Class DbConnection
    '用户设置数据库路径
    Public Shared ConnString As String = My.Settings.Sql_Conn

    '在 .Config 文件添加以下内容
    '<appSettings>
    '  <add key="Sql_Conn" value="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=C:\Documents and Settings\Administrator\桌面\CSDN.mdb;" />
    '</appSettings>

    '用来保存系统内部连接字符串
    Private _Connect As OleDbConnection
    Public ReadOnly Property ConnObj() As OleDbConnection
        Get
            If _Connect Is Nothing Then
                _Connect = New OleDbConnection(ConnString)
            End If
            Return _Connect
        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

    '用来保存错误消息
    Private m_LastError As String

    '用户可以得到最后的错误消息
    Public ReadOnly Property LastError() As String
        Get
            Return m_LastError
        End Get
    End Property

End Class