clsdataaccess.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

Imports System.Data
Imports System.Data.SqlClient
'数据库访问类
Public Class clsDataAccess
    Inherits System.Web.UI.Page
    Public PubSqlConn As SqlConnection  '数据连接
    Public PubDataAdapter As SqlDataAdapter
    Public PubSqlDataReader As SqlDataReader
    Public PubSqlTransaction As SqlTransaction  '事务对象
    Public PubSqlCmd As SqlCommand
    Public PubSqlCmdBuilder As SqlCommandBuilder '数据库更新对象
    Public PubDataSet As DataSet
    Public PubStrSql As String 'Sql语句字符串
    '构造函数    
    Sub New()
        PubSqlConn = New SqlConnection()
        '设置数据库连接
        PubSqlConn.ConnectionString = "User id=ManageSystemDataBase" _
        & ";Pwd=ManageSystemDataBase;" _
        & "initial catalog=ManageSystemDataBase;Data Source=localhost"
        PubSqlConn.Open()
        PubStrSql = ""
        'SqlCommand对象
        PubSqlCmd = New SqlCommand()
        PubSqlCmd.CommandText = PubStrSql
        PubSqlCmd.Connection = PubSqlConn
        'SqlDataAdapter对象
        PubDataAdapter = New SqlDataAdapter()
        'SqlCommandBuilder对象
        PubDataAdapter.SelectCommand = PubSqlCmd
        PubSqlCmdBuilder = New SqlCommandBuilder(PubDataAdapter)
        'DataSet对象
        PubDataSet = New DataSet()
    End Sub


    Protected Overloads Sub Finalize()
        '释放数据连接
        If PubSqlConn.State = ConnectionState.Open Then
            PubSqlConn.Close()
        End If
        '释放资源
        PubSqlConn.Dispose()
        PubSqlCmd.Dispose()
        PubSqlTransaction.Dispose()
        PubDataAdapter.Dispose()
        PubDataSet.Dispose()
        MyBase.Finalize()
    End Sub
End Class