Создание запроса

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    CrInf: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Query: IQuery;
Begin
    MB := MetabaseClass.Active;
    CrInf := Mb.CreateCreateInfo;
    CrInf.ClassId := MetabaseObjectClass.KE_CLASS_QUERY;
    CrInf.Id := "NewQuery";
    CrInf.Name := "NewQuery";
    CrInf.Parent := Mb.Root;
    MObj := Mb.CreateObject(CrInf).Edit;
    Query := MObj As IQuery;
    Query.Database := Mb.ItemById("BD").Bind As IDatabase;
    Query.Sql := "SELECT * FROM Table_1";
    MObj.Save;
End Sub UserProc;