database.vb

图书管理系统 VB加SQL 数据库在文件里的DATA里 进到SQL里附加进去就可以使用了

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class DataBase
    Private SqlConn As SqlConnection
    Public Shared StrCon As String = "Data Source=" & compname & ";Integrated Security=SSPI;Initial Catalog=tushugl"
    Public SqlDS As DataSet = New DataSet

    Public Sub Open()
        SqlConn = New SqlConnection(Me.StrCon)
        If SqlConn.State <> ConnectionState.Open Then
            SqlConn.Open()
        End If
    End Sub

    Public Sub Close()
        If SqlConn.State <> ConnectionState.Closed Then
            SqlConn.Close()
        End If
    End Sub

    Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
        Me.Open()
        Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
        SqlDS.Clear()
        SqlDA.Fill(SqlDS)
        Return SqlDS.Tables(0).DefaultView
        Me.Close()
    End Function

    Public Function RunSelectDataSet(ByVal sSQLString _
    As System.String) As DataSet
        Me.Open()
        Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
        SqlDS.Clear()
        SqlDA.Fill(SqlDS)
        If SqlDS Is Nothing = False Then
            Return SqlDS
        End If
        Me.Close()
    End Function

    Public Function RunDelOrInsSQL(ByVal sSQLString _
    As System.String)
        Me.Open()
        Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
        SqlComm.ExecuteNonQuery()
        Me.Close()
    End Function

End Class