1

我有一个拆分数据库。尝试使用前端,我能够使用 VBA 将字段添加到链接后端的表中,直到我使用密码加密后端。

是否仍然可以在前端使用 VBA 向后端表中添加字段,而无需手动解密后端?

感谢您的回复。

4

1 回答 1

1

它应该是。试试这些笔记:

Sub AlterDB()
    Dim db As DAO.Database
    Dim sDB As String
    Dim tdf As TableDef
    Dim fld As Field

    ''Encrypted
    sDB = "Z:\Docs\Test.enc"

    ''http://msdn.microsoft.com/en-us/library/office/ff193474.aspx
    ''Password is case sensitive
    Set db = OpenDatabase(sDB, False, False, "MS Access;PWD=pW")

    ''Option with tabledef
    ''The table is currently closed
    Set tdf = db.TableDefs("table1")
    Set fld = tdf.CreateField("NewField", dbText, 20)
    tdf.Fields.Append fld

    ''Option with DDL
    ssql = "ALTER TABLE table1 ADD COLUMN AnotherNew Int"
    db.Execute ssql, dbFailOnError

End Sub

Sub ListFields()
    sDB = "Z:\Docs\Test.enc"
    Set db = OpenDatabase(sDB, False, False, "MS Access;PWD=FB")

    Set tdf = db.TableDefs("table1")
    For Each f In tdf.Fields
        Debug.Print f.Name
    Next

End Sub
于 2013-03-21T11:18:11.383 回答