VB.NET怎么连接数据库

'SQL版

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
    Private connection As SqlClient.SqlConnection
    Private command As SqlClient.SqlCommand
    Public Function DBopen() As Boolean '打开数据库
        Try
            connection = New SqlClient.SqlConnection
            connection.ConnectionString = Con
            connection.Open()
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function
    Public Function DBclose() As Boolean '关闭数据库
        Try
            connection = New SqlClient.SqlConnection
            connection.ConnectionString = Con
            connection.Close()
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function

'Access版

Private Con As String =  "<连接字符串>"'<连接字符串>可以自动生成
    Private connconnection As OleDb.OleDbConnection
    Private conncommand As OleDb.OleDbCommand
    Public Function DBopen() As Boolean
        Try
            Me.connconnection = New OleDb.OleDbConnection
            Me.connconnection.ConnectionString = Con
            connconnection.Open()
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function
    Public Function DBclose() As Boolean
        Try
            Me.connconnection = New OleDb.OleDbConnection
            Me.connconnection.ConnectionString = Con
            connconnection.Close()
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!