从数据库中读取并填写DataTable

Posted 2021-03-27

我通过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)

答案

连接对象仅用于说明。 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

另一答案

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