单MySQL查询在多个数据库

Question

我一起工作的以下设置：

考虑两个MySQL数据库：abc和xyz，每个都有自己的表：abc。 table_in_abc和xyz。 table_in_xyz。我需要运行一个简单的MySQL查询，从table_in_abc中选择元素，加入关系为table_in_xyz。

在工作台下面的查询工作正常：

SELECT AB.* , XY.* 
FROM `abc`.`table_in_abc` AB 
LEFT JOIN `xyz`.`table_in_xyz` XY ON AB.`ID` = XY`ID` 

我想实现在VBA同样的事情。我能够在单个数据库上运行MySQL查询（请参见下面的示例），但在查询涉及多个数据库时无法这样做。

对单个数据库的简单查询VBA的例子：

Set conn = New ADODB.Connection 
conn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver}" _ 
& ";SERVER=" & server_name _ 
& ";DATABASE=" & database_name _ 
& ";UID=" & user_id _ 
& ";PWD=" & password _ 
& ";OPTION=3" ' 

Set rs1 = New ADODB.Recordset 
sqlstr = "SELECT * FROM `abc`.`table_in_abc` WHERE `ID`=" & ID & ";" 
rs1.Open sqlstr, conn, adOpenStatic 
With Worksheets("Main").Cells(a, 1) 
.ClearContents 
.CopyFromRecordset rs1 
End With 
rs1.Close 
Set rs1 = Nothing 

Answer 1

我发现了一种通过简单地设置两个连接到两个不同的数据库（在同一个MySQL实例的工作），以解决我的上述问题。

我的代码看起来像这样：

Set conn = New ADODB.Connection 
conn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver}" _ 
& ";SERVER=" & server_name _ 
& ";DATABASE=" & database_name _ 
& ";UID=" & user_id _ 
& ";PWD=" & password _ 
& ";OPTION=3" ' 

Set conn2 = New ADODB.Connection 
conn2.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver}" _ 
& ";SERVER=" & server_name _ 
& ";DATABASE=" & database_name2 _ 
& ";UID=" & user_id2 _ 
& ";PWD=" & password2 _ 
& ";OPTION=3" ' 

' SELECT Query with LEFT JOIN on the two different databases 
Set rs1 = New ADODB.Recordset 
sqlstr = "SELECT AB.* , XY.* FROM `abc`.`table_in_abc` AB LEFT JOIN `xyz`.`table_in_xyz` XY ON AB.`ID` = XY`ID`" 
rs1.Open sqlstr, conn, adOpenStatic 
With Worksheets("main").Cells(1, 1) 
.ClearContents 
.CopyFromRecordset rs1 
End With 
rs1.Close 
Set rs1 = Nothing