比较多个架构

时间:2015-07-02 19:54:40

标签: mysql vba

我必须比较和同步多个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个表。

由于最新的DB将具有当前架构,因此我只需将其与其他DB进行比较。 我想知道的是,如果我以最有效的方式做到这一点。或者,还有更好的方法?第三方工具也是一种选择,只要它可以自动化。

由于

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

当我的客户将表或字段添加到较新的数据库以帮助进行分析时,模式可能会失去同步。当他这样做时,他已经手动为之前的数据库制作了相同的模组(以前的数据库仍然使用了数月甚至数年之后),但有时会错过一个,加上这很费时间。

1 个答案:

答案 0 :(得分:0)

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

  

子程序'listDBdef()'在数据库的目录中创建一个文本文件,其中包含数据库的基本名称,后跟'_dbdef.txt',例如“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

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