vb连接两个mysql数据库

在VB中连接两个MySQL数据库，可以通过使用ADO.NET来实现。

首先，需要在VB项目中引用MySQL Connector/NET，该连接器可从MySQL官方网站下载并安装。安装完成后，在项目中添加对MySQL Connector/NET的引用。

接下来，在VB代码中，使用以下代码连接两个MySQL数据库：

导入命名空间：

Imports MySql.Data.MySqlClient

建立连接：

Dim conn1 As New MySqlConnection()
Dim conn2 As New MySqlConnection()

' 第一个数据库连接
conn1.ConnectionString = "Server=第一个数据库服务器地址;Database=第一个数据库名称;Uid=用户名;Pwd=密码;"
conn1.Open()

' 第二个数据库连接
conn2.ConnectionString = "Server=第二个数据库服务器地址;Database=第二个数据库名称;Uid=用户名;Pwd=密码;"
conn2.Open()

请注意将上述代码中的以下信息替换为实际的数据库连接信息：

第一个数据库服务器地址：第一个MySQL数据库的服务器地址
第一个数据库名称：第一个MySQL数据库的名称
用户名：登录数据库的用户名
密码：登录数据库的密码
第二个数据库服务器地址：第二个MySQL数据库的服务器地址
第二个数据库名称：第二个MySQL数据库的名称

执行数据库操作：

连接成功后，可以使用conn1和conn2两个对象来执行数据库操作，如查询、插入、更新和删除等。下面是一些示例代码：

' 查询数据
Dim query1 As String = "SELECT * FROM table1"
Dim query2 As String = "SELECT * FROM table2"

Dim cmd1 As New MySqlCommand(query1, conn1)
Dim cmd2 As New MySqlCommand(query2, conn2)

Dim reader1 As MySqlDataReader = cmd1.ExecuteReader()
Dim reader2 As MySqlDataReader = cmd2.ExecuteReader()

While reader1.Read()
    ' 处理第一个数据库的数据
    Dim value1 As String = reader1.GetString("column1")
    Console.WriteLine(value1)
End While

While reader2.Read()
    ' 处理第二个数据库的数据
    Dim value2 As String = reader2.GetString("column2")
    Console.WriteLine(value2)
End While

reader1.Close()
reader2.Close()

' 插入数据
Dim insertQuery1 As String = "INSERT INTO table1(column1) VALUES('value1')"
Dim insertQuery2 As String = "INSERT INTO table2(column2) VALUES('value2')"

Dim insertCmd1 As New MySqlCommand(insertQuery1, conn1)
Dim insertCmd2 As New MySqlCommand(insertQuery2, conn2)

insertCmd1.ExecuteNonQuery()
insertCmd2.ExecuteNonQuery()

' 更新数据
Dim updateQuery1 As String = "UPDATE table1 SET column1 = 'new_value1' WHERE id = 1"
Dim updateQuery2 As String = "UPDATE table2 SET column2 = 'new_value2' WHERE id = 2"

Dim updateCmd1 As New MySqlCommand(updateQuery1, conn1)
Dim updateCmd2 As New MySqlCommand(updateQuery2, conn2)

updateCmd1.ExecuteNonQuery()
updateCmd2.ExecuteNonQuery()

' 删除数据
Dim deleteQuery1 As String = "DELETE FROM table1 WHERE id = 1"
Dim deleteQuery2 As String = "DELETE FROM table2 WHERE id = 2"

Dim deleteCmd1 As New MySqlCommand(deleteQuery1, conn1)
Dim deleteCmd2 As New MySqlCommand(deleteQuery2, conn2)

deleteCmd1.ExecuteNonQuery()
deleteCmd2.ExecuteNonQuery()

在以上示例代码中，使用了MySqlCommand来执行SQL查询和修改操作，MySqlDataReader来读取查询结果，ExecuteReader方法执行查询，ExecuteNonQuery方法执行插入、更新和删除操作。

最后，在不再需要连接时，记得关闭连接：