1

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

    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

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

4

2 回答 2

1

使用DBDataReader带有 2 个查询的查询，只执行第一个查询，因为无法指示每个读取项来自哪个表/查询。您的“双重读取”循环似乎假设它们将同时返回（而不是一个又一个查询 - 与它们发送到 DBCOMmand 的方式相同）；如果它确实以这种方式工作，那么只要每个表中的行数不同，它就会失败。

使用DataTables使您有机会简单地将结果绑定到您的组合，而不是将数据复制到其中：

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块为我们做到了这一点：目标对象在开始时创建并关闭并在End Using.
  • 上面的代码堆叠或组合了 2 个这样的块。

代码从查询中填充 a DataSet，在本例中创建 2 个表。与其将数据从一个容器复制到另一个容器（如控件），不如使用 aDataTable作为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)。

使用绑定列表控件时，您将使用和访问实际数据，而不是使用SelectedIndex和事件。SelectedIndexChangedSelectedValueSelectedItem

MSDN：使用语句 (Visual Basic)

于 2016-05-21T14:06:15.733 回答
0

您可以使用 .net 连接器（在此处下载）
然后您可以安装它并将其添加到您的项目中（项目 -> 参考 -> 添加 -> 浏览）。
最后添加导入：

Imports MySql.Data.MySqlClient

所以你可以使用这个：

Dim connStr as String = "Server = localhost; Database = gen_database; Uid = root; Pwd ="
Dim SqlStr as String = "Select DevCompanyName from developer_name_table; Select DevType from development_type_table"
Dim ds As DataSet = MySqlHelper.ExecuteDataset(CnStr, SqlStr)

ds 将包含两个数据表：每个查询一个

于 2016-05-21T07:25:42.643 回答