如何将多个表读入数据集？

Question

我有一个返回多个表的存储过程。如何执行和读取两个表？

我有这样的事情：

SqlConnection conn = new SqlConnection(CONNECTION_STRING);
SqlCommand cmd = new SqlCommand("sp_mult_tables",conn);
cmd.CommandType = CommandType.StoredProcedure);

IDataReader rdr = cmd.ExecuteReader();

我不知道如何阅读它...什么是处理这种类型查询的最佳方法，我猜我应该将数据读入DataSet？最好的方法是如何做到的？

感谢。

Answer 1

改编自 MSDN ：

using (SqlConnection conn = new SqlConnection(connection))
{
    SqlDataAdapter adapter = new SqlDataAdapter();
    adapter.SelectCommand = new SqlCommand(query, conn);
    adapter.Fill(dataset);
    return dataset;
}

Answer 2

如果要将结果读入DataSet，最好使用DataAdapter。

但是使用DataReader，首先遍历第一个结果集，然后调用NextResult前进到第二个结果集。

Answer 3

读者将按照返回的顺序处理结果集;完成处理第一个结果集后，调用rdr.NextResult（）为下一个结果集设置

另请注意，表适配器会自动将所有结果集读取到填充数据集中的表中，但数据表将是无类型的，并命名为Table1，Table2等。

Answer 4

*读取所有Excel工作表名称并将多个工作表添加到单个数据集中，并将表名作为工作表名称。*

'全局变量

Dim excelSheetNames As String（）

Dim DtSet As System.Data.DataSet = New DataSet（）

Private Sub btnLoadData_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理btnLoadData.Click

Dim MyConnection As OleDbConnection

Dim da As System.Data.OleDb.OleDbDataAdapter

Dim i As Integer

MyConnection = New System.Data.OleDb.OleDbConnection（＆quot; provider = Microsoft.Jet.OLEDB.4.0;

数据源= SStatus.xls;扩展属性=＆quot;＆quot; Excel 8.0; HDR = NO; IMEX = 1＆quot;＆quot; ＆QUOT）

'以下方法获取gloabal数组中的所有Excel工作表名称excelSheetNames

GetExcelSheetNames（QUOT; SStatus.xls＆QUOT）

        For Each str As String In excelSheetNames
            da = New OleDbDataAdapter("select * from [" & str & "]", MyConnection)
            da.Fill(DtSet, excelSheetNames(i))
            i += 1
        Next           
        DataGridView1.DataSource = DtSet.Tables(0)          

End Sub

Public Function GetExcelSheetNames（ByVal excelFileName As String）

    Dim con As OleDbConnection = Nothing

    Dim dt As DataTable = Nothing

    Dim conStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=") + excelFileName & ";Extended Properties=Excel 8.0;"

    con = New OleDbConnection(conStr)
    con.Open()
    dt = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    excelSheetNames = New String(dt.Rows.Count - 1) {}
    Dim i As Integer = 0

    For Each row As DataRow In dt.Rows
        excelSheetNames(i) = row("TABLE_NAME").ToString()
        i += 1
    Next
End Function