IQuery.Database

Синтаксис

Database: IDatabase;

Описание

Свойство Database определяет базу данных, в которой хранится запрос.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором "BD".

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 := "New_Query";
    CrInf.Name := "New_Query";
    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;

После выполнения примера в корневом каталоге репозитория будет создан новый Запрос. При выполнении данного запроса будет выполняться выборка данных из таблицы "Table_1".

См. также:

IQuery