3
我正在尝试使用关系窗口来查看MS-Access数据库中的表之间的关系。我隐藏了所有其他表,并在其中一个表中找到一个外键,就像它应该链接到具有主键的另一个表一样,这是我需要追踪的信息。在ms-access中获取表的外键约束列表?
有什么办法可以在Access中的表中列出现有的外键约束,很像SHOW CREATE TABLE syntax in MySQL?
我正在尝试使用关系窗口来查看MS-Access数据库中的表之间的关系。我隐藏了所有其他表,并在其中一个表中找到一个外键,就像它应该链接到具有主键的另一个表一样,这是我需要追踪的信息。在ms-access中获取表的外键约束列表?
有什么办法可以在Access中的表中列出现有的外键约束,很像SHOW CREATE TABLE syntax in MySQL?
DAO和ADOSchemas中的tabledef集合将显示外键。
Dim tdf As TableDef
Dim db As Database
Dim ndx As Index
Set db = CurrentDb
For Each tdf In db.TableDefs
For Each ndx In tdf.Indexes
If ndx.Foreign = True Then
Debug.Print tdf.Name, ndx.Name
For Each fld In ndx.Fields
Debug.Print fld.Name
Next
End If
Next
Next
关系
Dim rel As DAO.Relation
Dim db As Database
Set db = CurrentDb
For Each rel In db.Relations
Debug.Print rel.Name, rel.ForeignTable
For Each fld In rel.Fields
Debug.Print fld.Name
Next
Next
ADOSchema
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = cn.OpenSchema(adSchemaForeignKeys)
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i).Name & ":- " & rs.Fields(i)
Next
rs.MoveNext
Loop
最后,还有一个隐藏的系统表:
SELECT * FROM MSysRelationships
所以我必须使用宏来查看这些信息? – leeand00 2012-07-31 14:22:36
有一个隐藏的系统表MSysRelations显示所有关系,但它是一个不受支持的功能:'SELECT * FROM MSysRelations',不用说,但我会,不要惹它。 – Fionnuala 2012-07-31 14:30:49
但是从它读取是好吗? – leeand00 2012-07-31 14:38:40