8

によってデータセットを取得し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)
4

2 に答える 2

27

接続オブジェクトは説明のみを目的としています。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
于 2012-06-01T07:00:12.410 に答える
-1 
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
于 2018-06-19T19:35:33.637 に答える