sqlclass.vb

VB.NET和SQLSERver2000编写在线考试系统

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Mail
Imports System.Data.SqlClient
Public Class SqlClass
    Private MyconnString As String
    Private Myconn As SqlConnection
    Public Sub AccessClass()
    End Sub
    Public Sub Open()
        MyconnString = ConfigurationSettings.AppSettings("ConnectionString")
        Myconn = New SqlConnection(MyconnString)
        Myconn.Open()
    End Sub
    Public Function GetDataReader(ByVal strCommandString As String) As SqlDataReader
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        Return dr
    End Function
    Public Function ExecuteSQL(ByVal strCommandString As String) As Integer
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Dim nAffected As Int32 = cmd.ExecuteNonQuery()
        Return nAffected
    End Function
    Public Sub close()
        Myconn.Close()

    End Sub
    Public Function GetDataSet(ByVal strCommandString As String, ByVal strTableName As String) As DataSet
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Dim ap As SqlDataAdapter = New SqlDataAdapter
        ap.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        ap.Fill(ds, strTableName)
        Return ds
    End Function
    Public Function GetDataTable(ByVal strCommandString As String, ByVal strTableName As String) As DataTable
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Dim ap As SqlDataAdapter = New SqlDataAdapter
        ap.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        ap.Fill(ds, strTableName)
        Return ds.Tables(strTableName)
    End Function
    Public Function GetDataAdapter(ByVal strCommandString As String) As SqlDataAdapter
        Dim adp As SqlDataAdapter = New SqlDataAdapter(strCommandString, Myconn)
        Return adp
    End Function

    Public Function GetDataView(ByVal strCommandString As String, ByVal strTableName As String) As DataView
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Dim ap As SqlDataAdapter = New SqlDataAdapter
        ap.SelectCommand = cmd
        Dim ds As DataSet = New DataSet
        ap.Fill(ds, strTableName)
        Return ds.Tables(strTableName).DefaultView
    End Function
    Public Function GetString(ByVal strCommandString As String) As String
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Return cmd.ExecuteScalar()
    End Function
    Public Function GetInt(ByVal strCommandString As String) As Integer
        Dim cmd As SqlCommand = New SqlCommand(strCommandString, Myconn)
        Return cmd.ExecuteScalar()
    End Function
End Class