几个提高代码重用性的函数

Public Class getdata

    Public Shared myconn As SqlClient.SqlConnection

    Public Shared Function getdatareader(ByVal sql As String) As SqlClient.SqlDataReader
        Dim myCmd As SqlClient.SqlCommand
        myCmd = New SqlClient.SqlCommand(sql, myconn)
        getdatareader = myCmd.ExecuteReader()
    End Function

    Public Shared Function executesql(ByVal sql As String)
        Dim myCmd As SqlClient.SqlCommand
        myCmd = New SqlClient.SqlCommand(sql, myconn)
        myCmd.ExecuteNonQuery()
    End Function

    Public Shared Function getdataview(ByVal sql As String, ByVal strTable As String) As DataView
        Dim myDataAdapter As SqlClient.SqlDataAdapter
        Dim myDataSet As DataSet
        myDataAdapter = New SqlClient.SqlDataAdapter(sql, myconn)
        myDataSet = New DataSet
        myDataAdapter.Fill(myDataSet, strTable)
        Dim myTable As DataTable = myDataSet.Tables(strTable)
        getdataview = New DataView(myTable)
    End Function
End Class

 

调用

getdata.myconn = New SqlClient.SqlConnection
getdata.myconn.ConnectionString = (xinxi.stringconnection)