mysql - 如何从一个 DBCommand 对象执行两个单独的查询？

Question

我有以下代码尝试从两个不同的表中获取记录，然后将它们添加到特定的组合框中。只有第一个查询有效，第二个查询被忽略。

    Try
        sqlConn = New MySqlConnection
        connStr = New String("Server = localhost; Database = gen_database; Uid = root; Pwd =")
        sqlConn.ConnectionString = connStr
        myCommand = New MySqlCommand("Select DevCompanyName from developer_name_table; Select DevType from development_type_table")
        myCommand.CommandType = CommandType.Text
        myCommand.Connection = sqlConn
        ComboBox1.Items.Clear()
        sqlConn.Open()
        MsgBox("Connection Open.")
        dR = myCommand.ExecuteReader()
        Do While dR.Read()
            ComboBox1.Items.Add(dR("DevCompanyName"))
            ComboBox2.Items.Add(dR("DevType")) 'Error shows here Could not find specified column in results: DevType
        Loop
    Catch ex As MySqlException
        MsgBox(ex.ToString)
    Finally
        dR.Close()
        sqlConn.Close()
    End Try

我可以想到另一种方法，即在多个查询中执行此操作，但是代码可以简化为这样吗？

Answer 1

使用带有 2 个查询的 DBDataReader，只有第一个执行，因为没有办法表明每个读取的项目来自哪个表/查询。您的“双重读取”循环似乎假定它们将同时返回(而不是一个接一个地返回-与将它们发送到 DBCOmmand 的方式相同)；如果它确实那样工作，只要每个表中的行数不同，它就会失败。

使用 DataTables 让您有机会简单地将结果绑定(bind)到您的组合，而不是将数据复制到它们中:

Dim SQL = "SELECT * FROM Sample; SELECT * FROM Simple"
Dim ds As New DataSet
Using dbcon As New MySqlConnection(MySQLConnStr),
    cmd As New MySqlCommand(SQL, dbcon)

    dbcon.Open()
    Dim da As New MySqlDataAdapter(cmd)
    da.Fill(ds)

End Using

' debug results
Console.WriteLine(ds.Tables.Count)
Console.WriteLine(ds.Tables(0).Rows.Count)
Console.WriteLine(ds.Tables(1).Rows.Count)

如果我查看输出窗口，它将打印 2(表)、10000(T(0) 中的行)和 6(T(1) 中的行)。并非所有 DBProvider 都具有此功能。例如，访问将因 SQL 字符串而阻塞。代码组成方式的其他更改:

• 需要释放 DBConnections 和 DBCommand 对象。它们分配资源，因此需要创建、使用和处置它们以释放这些资源。
• Using block 为我们做到了这一点:目标对象在开始时创建，并在End Using 时关闭和释放。
• 上面的代码堆叠或组合了 2 个这样的 block 。

代码从查询中填充一个 DataSet，在本例中创建 2 个表。您可以使用 DataTable 作为 DataSource，而不是将数据从一个容器复制到另一个容器(如控件):

cboDevName.DataSource = ds.Tables(0)
cboDevName.DisplayMember = "DevName"    ' column names
cboDevName.ValueMember = "Id"

cboDevType.DataSource = ds.Tables(1)
cboDevType.DisplayMember = "DevType"
cboDevType.ValueMember = "DevCode"

结果将是每个表中的所有行都出现在各自的组合控件中。通常对于此类事物，您需要 ID/PK 和对查询中的用户有意义的名称。用户看到友好名称 (DisplayMember)，代码可以轻松访问该选择的唯一标识符 (ValueMember)。

当使用绑定(bind)列表控件时，您应该使用 SelectedValue 和 SelectedItem<，而不是使用 SelectedIndex 和 SelectedIndexChanged 事件 访问实际数据。

MSDN:Using Statement (Visual Basic)