Description

Generate FK Constraint Names when GenerateNames is TRUE. If SupplyNames is TRUE, then unnamed FK are given unique names. PARAMETERS: GenerateNames (Boolean), SupplyNames (Boolean).

Syntax

Public Sub GenerateFKConstraintNames( _
   ByVal GenerateNames As Variant, _
   ByVal SupplyNames As Variant _
)

Parameters

  • GenerateNames
  • SupplyNames

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