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

Public Sub EnhGenerateFKConstraints( _
   ByVal GenType As Variant, _
   ByVal DependencyOrder As Variant -
)

Parameters

  • GenType
  • DependencyOrder

Example

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

See Also

  • No labels