从数据库中读取并填写DataTable

Question

我通过DataReader获取一组数据并分配给字符串。现在我需要用查询字段填充DataTable列。 DataTable连接到网格以显示填充的数据。

查询是：

strSQL = "SELECT EmpCode,EmpID,EmpName FROM dbo.Employee

DataTable列是EmpCode, EmpID, EmpName。

我需要阅读查询并分配给DataTable的列并填写表格。我试过如下，但我没有得到正确的输出，

Me.DtShifts.Tables("NonAllocated").Clear()
Me.DtShifts.Tables("NonAllocated").Load(dr)

Answer 1

连接对象仅用于说明。 DataAdapter是关键位：

Dim strSql As String = "SELECT EmpCode,EmpID,EmpName FROM dbo.Employee"
Dim dtb As New DataTable
Using cnn As New SqlConnection(connectionString)
  cnn.Open()
  Using dad As New SqlDataAdapter(strSql, cnn)
    dad.Fill(dtb)
  End Using
  cnn.Close()
End Using

Answer 2

Private Function LoaderData(ByVal strSql As String) As DataTable
    Dim cnn As SqlConnection
    Dim dad As SqlDataAdapter

    Dim dtb As New DataTable
    cnn = New SqlConnection(My.Settings.mySqlConnectionString)
    Try
        cnn.Open()
        dad = New SqlDataAdapter(strSql, cnn)
        dad.Fill(dtb)
        cnn.Close()
        dad.Dispose()
    Catch ex As Exception
        cnn.Close()
        MsgBox(ex.Message)
    End Try
    Return dtb
End Function