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

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