VB.NET دا SQL سانداننغا ئۇلاش (2)

تۆۋەندىكى كودنى تۈر (类) دىن بىرنى قۇرۇپ ئىشلەتسىڭىز بولىدۇ.

Imports System.Data.SqlClient
Public Class sandan
    Shared Function Search(ByVal strSQL As String) As DataTable
        '创建SQLConnection实例
        Dim ConnStr As String = "Data Source=.;Initial Catalog=PJSX;User ID=sa;Password=123"
        '创建SqlConnection实例
        Dim conn As SqlConnection = New SqlConnection(ConnStr)
        '创建SQL命令
        Dim myCommand As SqlCommand = New SqlCommand(strSQL, conn)
        '打开数据库链接
        conn.Open()
        '设置适配器
        Dim adapter As New SqlDataAdapter
        adapter.TableMappings.Add("Table", "TEMP")
        adapter.SelectCommand = myCommand
        '充分数据集
        Dim ObjectdsDataSet As New DataSet()
        adapter.Fill(ObjectdsDataSet)
        '关闭数据库链接
        conn.Close()
        '返回查询的表
        Return ObjectdsDataSet.Tables("TEMP")
    End Function

End Class