如何同时打开连接和多个连接？

Question

如何在运行时更改连接并在表单加载中执行一些查询？这更像是同时打开多个连接，但是我该怎么做呢？

数据库信息示例：

编辑：我确实有查询，但是我不知道如何在运行时打开其他连接。它们的数据库结构相同，因此执行查询时没有问题。问题在于我如何在运行时更改连接而无需按任何键。

Answer 1

基于外部论坛上的@jmcilhinney答案。适配器将一个连接用于“选择”，将另一个连接用于“插入”。技巧是将.AcceptChangesDuringFill设置为False。默认将“已添加”更改为“不变”。

Private Sub UpdateADifferentDatabase()
    Using cnSource As New MySqlConnection("First connection string"), cnDestination As New MySqlConnection("Second connection string")
        Using selectCommand As New MySqlCommand("Select statement here", cnSource), insertCommand As New MySqlCommand("Insert statement here ", cnDestination)
            Using da As New MySqlDataAdapter()
                da.SelectCommand = selectCommand
                da.InsertCommand = insertCommand
                'The following allows the .DataRowState to remain as Added (normally it is changed to Unchanged by the .Fill method)
                da.AcceptChangesDuringFill = False
                Dim dt As New DataTable
                da.Fill(dt)
                da.Update(dt)
            End Using
        End Using
    End Using
End Sub