求助：如何将数据库多表正确填充至DataSet（当前代码合并至单表）

我来帮你搞定这个问题！你现在遇到的情况是因为代码没有为数据库里的每个表单独创建对应的DataTable，而是把所有表的数据一股脑塞进了同一个表中。下面是具体的解决方案和修改后的代码：

核心思路 #

1. 获取数据库中的所有用户表：通过OleDbConnection的GetSchema方法读取数据库的表结构，过滤掉系统表，只保留你需要的业务表。
2. 逐个填充每个表：遍历每个表名，为每个表创建独立的DataAdapter，执行查询并将结果填充到DataSet中，同时指定DataSet中表的名称，确保和数据库表一一对应。
3. 资源安全管理：使用Using语句自动管理数据库连接、DataAdapter等资源，避免内存泄漏。

修改后的完整代码 #

Private Sub Filldataset()
    ' 替换成你的实际数据库连接字符串
    Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourDatabasePath.accdb;"
    
    ' Using语句确保连接自动释放，避免资源泄漏
    Using cnn As New OleDbConnection(connectionString)
        cnn.Open()
        
        ' 获取数据库中所有表的元数据信息
        Dim tablesSchema As DataTable = cnn.GetSchema("Tables")
        Dim ds As New DataSet()
        
        ' 遍历每个表
        For Each row As DataRow In tablesSchema.Rows
            Dim tableName As String = row("TABLE_NAME").ToString()
            
            ' 过滤系统表（Access系统表以MSys开头，可根据你的数据库类型调整）
            If Not tableName.StartsWith("MSys") Then
                ' 为当前表创建专属的DataAdapter
                Using da As New OleDbDataAdapter($"SELECT * FROM [{tableName}]", cnn)
                    ' 填充时指定DataSet中的表名，确保每个数据库表对应一个独立的DataTable
                    da.Fill(ds, tableName)
                End Using
            End If
        Next
        
        ' 示例：验证填充结果，打印每个表的名称和行数
        For Each dt As DataTable In ds.Tables
            Console.WriteLine($"表名：{dt.TableName}，数据行数：{dt.Rows.Count}")
        Next
    End Using
End Sub

关键代码解释 #

• GetSchema("Tables")：获取数据库的元数据，返回的DataTable包含所有表的信息，其中TABLE_NAME字段就是表的名称。
• 系统表过滤：不同数据库的系统表命名规则不同，比如SQL Server的系统表以sys.开头，你可以根据自己使用的数据库调整过滤条件。
• da.Fill(ds, tableName)：这是解决问题的核心！第二个参数指定了DataSet中表的名称，每次填充都会在DataSet中创建一个对应名称的独立DataTable，不会合并到同一个表中。
• Using语句：自动实现IDisposable接口对象的资源释放，避免数据库连接未关闭导致的资源泄漏问题。

常见问题排查 #

• 如果DataSet中没有生成对应表，检查过滤条件是否误删了需要的表。
• 若表名包含空格或特殊字符，必须用方括号[]括起来，避免SQL语法错误。
• 确认连接字符串正确，能正常连接到目标数据库。

内容的提问来源于stack exchange，提问作者An Nguyễn