将多个表填充到数据集中？

Question

我的代码有问题，它将多个 table 填入我的 dataset。它将我的 数据库 的 table 中包含的所有内容加载到 dataset 中的一个 table。我的代码如下所示。如何将那些 tables 从数据库加载到 dataset 中，它具有相同数量的 tables 和内容。

Private Sub Filldataset()
Private cnn As OleDbConnection
Private dt As New DataTable
Private da As New OleDbDataAdapter
Private cmd As New OleDbCommand
Private ds As New DataSet
    Dim tblrestrictions As String() = New String() {Nothing, Nothing, Nothing, "TABLE"}
    Dim userTables As DataTable = Nothing
    userTables = cnn.GetSchema("Tables", tblrestrictions)
    Dim i As Integer
    For i = 1 To userTables.Rows.Count - 1 Step 1
        cnn = New OleDbConnection(Str)
        cnn.Open()
        cmd = cnn.CreateCommand
        cmd.CommandText = "select * from" & " " & userTables.Rows(i)(2).ToString
        dt.Clear()
        da.SelectCommand = cmd
        da.Fill(dt)
        da.Fill(ds)
    Next
    cnn.Close()
    MessageBox.Show(ds.Tables.Count)
End Sub

Answer 1

连接可以在别处创建，但在您使用它们之前或之后不应该打开或关闭。您必须为 Oledb 应用程序调整此代码。

Private Sub GetData()
        cn.Open()
        Dim dt As DataTable = cn.GetSchema("Tables")
        cn.Close()
        Dim ds As New DataSet
        Dim row As DataRow
        For Each row In dt.Rows
            Dim strTableName As String = row(2).ToString
            Dim strSQL As String = "Select * From " & strTableName
            Dim cmd As New SqlCommand(strSQL, cn)
            Dim da As New SqlDataAdapter
            da.SelectCommand = cmd
            da.Fill(ds, strTableName)
        Next
        Debug.Print(ds.Tables.Count.ToString)
End Sub

我在本地限定了几个变量的范围，您希望将它们限定在 class 范围内，例如数据集

将多个表填充到数据集中？

Filling multi tables into dataset?

database

vb.net

dataset

oledbdataadapter