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

最新推荐文章于 2024-01-14 17:35:23 发布

zss1100

最新推荐文章于 2024-01-14 17:35:23 发布

阅读量1.1k

点赞数

分类专栏：代码文章标签： function dataset string sql class

本文链接：https://blog.csdn.net/zss1100/article/details/1482804

版权

代码专栏收录该内容

8 篇文章 0 订阅

订阅专栏

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)