VB.NET دا SQL سانداننغا ئۇلاش (2)
0
admin
يوللانغان ۋاقتى:2021-يىل01-ئاينىڭ17-كۈنى

تۆۋەندىكى كودنى تۈر (类) دىن بىرنى قۇرۇپ ئىشلەتسىڭىز بولىدۇ.
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
ئالدىنقى تىما:VB.NET دا SQL سانداننغا ئۇلاش (1)
پىكىر بىرىڭ