Ouverture d’un modèle et recherche du nom d’une table

Dim path, modl

‘ Si vous utilisez PowerDesigner remplacer le nom du modèle pour « project.pdm »

path = EvaluateNamedPath(« %_EXAMPLES%gestsoc.mpd »)

Set modl = openmodel(path)

if not modl is nothing then

Dim tabl

‘ Si vous utilisez PowerDesigner remplacer le nom de la table pour « Client »

set tabl = modl.FindChildByName(« Customer », Cls_Table)

if not tabl is nothing then

output « La  » & cstr(tabl) &  » a été trouvé  »

end if

end if