从数据库中读取并填写DataTable

Question

我通过a获取一组数据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