Imports System.Data
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class DataBase
    '實現接口IDisposable
    Implements IDisposable
    '數據庫連接對象
    Private SqlConn As SqlConnection
    Public Shared sConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=mrpbook;server=localhost;Connect Timeout=30"
    Public Sub Dispose() Implements System.IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(True)
    End Sub
    Protected Sub Dispose(ByVal disposing As Boolean)
        If disposing <> True Then
            Return
        End If

        If SqlConn Is Nothing = False Then
            SqlConn.Dispose()
            SqlConn = Nothing
        End If
    End Sub

    Public Sub Open()
        If SqlConn Is Nothing = True Then
            '建立數據庫連接對象
            SqlConn = New SqlConnection(Me.sConn)
            '打開數據庫連接
            SqlConn.Open()
        End If
    End Sub
    Public Sub Close()
        '如果數據庫連接對象不為空則關閉數據庫連接
        If SqlConn Is Nothing = False Then
            SqlConn.Close()
        End If
    End Sub
    Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
        Me.Open()
        Dim SqlDS As DataSet = New DataSet
        Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
        SqlDA.Fill(SqlDS)
        Return SqlDS.Tables(0).DefaultView
    End Function
    Public Function RunDelOrInsSQL(ByVal sSQLString As System.String)
        Me.Open()
        Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
        SqlComm.ExecuteNonQuery()
    End Function
End Class