mysql - 比较多个模式

Question

我必须比较和同步多个 MySQL 数据库模式。我不必同步数据。任何差异都会丢失旧模式中的表或字段。

我可以编写一些 VBA 来执行此操作。我正在考虑执行以下步骤:

SHOW TABLES
for each table
    SHOW CREATE TABLE {tablename}
    Compare this to each other schema
    If table doesn't exist, then create it.
    If it does exist but different then do a DESCRIBE TABLE TO GET THE FIELDS
        Loop though each field to find missing one then do an ALTER TABLE to add it

目前有 54 个数据库，每个数据库有 106 个表。

由于最新的数据库将具有当前架构，我只需将它与其他数据库进行比较。我想知道的是我是否以最有效的方式这样做。或者，还有更好的方法？第 3 方工具也是一种选择，只要它可以自动化即可。

谢谢

如果您想了解一些背景:
每个数据库都是我的客户对其进行复杂分析的一个月的计费数据。分析是在 MS Access 中完成的，包含大量查询和 VBA。访问一次附加到 1 个月，并具有根据需要切换月份的代码。

当我的客户将表或字段添加到较新的数据库以帮助他进行分析时，模式可能会不同步。当他这样做时，他一直在手动为之前的数据库制作相同的模组(之前的数据库在数月甚至数年后仍在使用)，但有时会遗漏一个，而且这很耗时。

Answer 1

对于一个项目，我必须分析 Access 数据库的结构。我采用的方法是从每个 Access DB 导出 CSV 文件中的定义，将其读入另一个 Access DB 并使用 hat DB 来分析表和查询。我为您提供导出例程。如果您需要更多，请发表评论。整个代码库非常庞大。数据库可以链接到其他 Access 数据库(链接表和查询)。

Subroutine ‘listDBdef()’ creates a text file in the database’s directory with the base name of the database, followed by ‘_dbdef.txt’, e.g. ‘MYDB_2015_04_dbdef.txt’.

Public Sub listDBdef()
Dim dbs As Database
Dim tbl As TableDef
Dim fld As Field
Dim FileName As String
Dim i, j, sVersion

    sVersion = UCase(InputBox("Enter version", "Export definitions"))
    If (sVersion = "") Then Exit Sub

    Set dbs = CurrentDb
    FileName = Mid(dbs.Name, 1, InStrRev(dbs.Name, ".") - 1) + "_" + sVersion + "_dbdef.txt"

    Open FileName For Output As #1
    Set dbs = CurrentDb
    With dbs
        Print #1, sVersion
        Print #1, dbs.Name
        ' List all tables and their link, target table and fields '
        For i = 0 To dbs.TableDefs.Count - 1
            Set tbl = dbs.TableDefs(i)
            If (Mid(tbl.Name, 1, 4) <> "MSys") Then
                Print #1, "Table: """ + tbl.Name + """ {"
                If (tbl.Connect <> "") Then
                    Print #1, Chr(9) + "Link: """ + Mid(tbl.Connect, Len(";DATABASE= ")) + """," + IIf(tbl.Fields.Count > 0, "1", "0") + " {"
                    Print #1, Chr(9) + Chr(9) + "Table: """ + tbl.SourceTableName + """"
                    Print #1, Chr(9) + "}"
                End If
                For j = 0 To tbl.Fields.Count - 1
                    Set fld = tbl.Fields(j)
                    Print #1, Chr(9) + "Field: """ + fld.Name + """"
                Next j
                If (tbl.Fields.Count > 0) Then
                    Print #1, Chr(9) + "Records: " + Trim(Str(tbl.RecordCount))
                End If
                Print #1, "}"
            End If
        Next i

    End With
    Close #1
    MsgBox "Ready."
End Sub

您必须在每个要分析的数据库中使用此代码创建一个模块；也许可以连接到数据库并查询它。