FindClassTableName (CM)

Syfre (discuter | contributions)
(Nouvelle page : <source lang='delphi'>function FindClassTableName(const iClassName:string):string;</source> Cette fonction retrouve le nom de table d'une classe métier. {{info|Le nom de table n'e...)

---

Version actuelle en date du 19 juillet 2009 à 09:41

function FindClassTableName(const iClassName:string):string;

Cette fonction retrouve le nom de table d'une classe métier.

Note : Le nom de table n'est pas le nom de classe.

Result	Le nom de la table de la classe métier dans le contexte de base de données par défaut.
iClassName	Une classe métier

Exemple

var vCursorUpdate:TQuery;
begin
   vCursorUpdate := QueryBroker('','TCompteGeneral','');
   vCursorUpdate.Sql.Clear;
   vCursorUpdate.Sql.Add('UPDATE');
   vCursorUpdate.SQL.Add(ClassManager.FindClassTableName('TCompteGeneral'));
   vCursorUpdate.Sql.Add('SET oidunite   = ' + vCursorUpdate.Translator.dbOutOid(vUniteCommerciale.InstanceOid));
   vCursorUpdate.Sql.Add('WHERE oidunite = ' + vCursorUpdate.Translator.dbOutOid(vdbfUnit.InstanceOid));
   vCursorUpdate.ExecSQL;
   vCursorUpdate.Close;
end;

Tip : Utiliser cette fonction pour construire les ordres SQL des requêtes.

Voir aussi

— Gestion des bases de données (CM) — Développement DSM —