Powerd911 – Numéro #1 au Canada

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

 

Laisser un commentaire