Description
Generate FK Constraints. GenType: 0 = Don't generate, 1 = Generate by Create Table, 2 = Generate by Alter Table. PARAMETERS: GenType (Integer), DependencyOrder (Boolean).
Syntax
| Code Block |
|---|
|
Public Sub EnhGenerateFKConstraints( _
ByVal GenType As Variant, _
ByVal DependencyOrder As Variant -
) |
Parameters
Example
| Code Block |
|---|
|
Sub Main
Dim d As Diagram
Dim m As Model
Dim ddl As DDLGeneration
Set d = DiagramManager.ActiveDiagram
Set m = d.ActiveModel
Set ddl = m.DDLGenerationObject
ddl.GenerateAllEntities = True
ddl.EnhGenerateFKConstraints(1, True)
ddl.GenerateFKConstraintNames(True, True)
ddl.GenerateDDL
End Sub |