使用查詢將數據庫連接到vb代碼中的數據表

Question

我想使用select查詢連接數據庫中的表。連接字符串已在web.config頁面上製作。

<connectionStrings> 
    <add name="IntranetConnectionString" connectionString="Data Source=nanana\sql5;Initial Catalog=Intranet;User ID=intra_admin;password=jimfool" providerName="System.Data.SqlClient"/> 
</connectionStrings> 

我想做一個名爲GetList的函數，我可以在任何時候使用它來綁定信息。這是我的VB代碼

Public Function GetList() As DataTable 
    Dim Query As String 
    Dim dt As DataTable 
    Query = "Select * FROM Intranet_Gn_ISCoordinators" 

    'I need to write something here .. 
    'dt = 
    Return dt 
End Function 

我biggener，在此先感謝

Answer 1

您可以使用SqlDataAdapter：

Imports System.Configuration 
Imports System.Data 
Imports System.Data.SqlClient 

Public Function GetList() As DataTable 

    Dim Query As String = "Select * FROM Intranet_Gn_ISCoordinators" 
    Dim dt As DataTable = New DataTable() 

    Using adapter = New SqlDataAdapter(Query, ConfigurationManager.ConnectionStrings["IntranetConnectionString"].ConnectionString) 
     adapter.Fill(dt) 
     return dt 
    End Using 

End Function 

---

順便說一句，我知道查詢可能有隻是一個例子，但SELECT *通常是生產代碼中的一個壞主意。明確列出您想要的列