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()

' 查询数据
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()

conn1.Close()
conn2.Close()