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

Public   Class getdata Class getdata 
 
    Public Shared myconn As SqlClient.SqlConnection 
 
    Public Shared Function getdatareader()Function getdatareader() Shared Function getdatareader()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()Function executesql() Shared Function executesql()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()Function getdataview() Shared Function getdataview()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)