sqldatabase.vb

一个封装好的访问SQL Server数据库的源代码

Imports System.Data
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class SqlDataBase
    '实现接口IDisposable
    Implements IDisposable
    '数据库连接对象
    Private SqlConn As SqlConnection
    'Public Shared sConn As String
    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(ByVal sConn As String)
        If SqlConn Is Nothing = True Then
            '建立数据库连接对象
            SqlConn = New SqlConnection(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 oConnStr As String, ByVal sSQLString As System.String) As DataSet
        Me.Open(oConnStr)
        Dim SqlDS As DataSet = New DataSet
        Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
        SqlDA.Fill(SqlDS)
        Return SqlDS
        'Return SqlDS.Tables(0).DefaultView
    End Function
    Public Function RunDelOrInsSQL(ByVal oConnStr As String, ByVal sSQLString As System.String)
        Me.Open(oConnStr)
        Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
        SqlComm.ExecuteNonQuery()
    End Function
End Class