Добавляет новый запрос в базу данных.

Применяется к:

IZbQueries

Синтаксис:

Visual Basic:

Function AddNew(Type As zbQueryType, Name As String) As IZbQueryInfo

Type - тип запроса. Поддерживается только тип zbqtVisualQuery.

Name - название запроса (например "Основной", "Запрос1").

Описание:

Метод добавляет новый пустой запрос с указанным именем в базу данных и возвращает объект IZbQueryInfo. В настоящий момент система работает только с запросами, названными визуальными, поэтому значение Type должно быть zbqtVisualQuery.

После добавления запроса, у полученного объекта IZbQueryInfo можно запросить свойство IZbVisualQuery и заполнить запрос.

Пример:

Dim QryInf As IZbTableInfo
Dim VisQry As IZbVisualQuery
Dim TblRef As IZbTableRef
Dim Field As IZbFieldInfo

' Добавляем новый пустой запрос
Set QryInf = db.Queries.AddNew(zbqtVisualQuery, "Запрос1")

' Получаем визуальный запрос
Set VisQry = QryInf.VisualQuery

' Добавляем таблицу в запрос
Set TblRef = VisQry.Tables.Add(db.Tables(0), True)

' Добавляем поле связи с картой
VisQry.SetBaseField(TblRef, "Sys")

' Добавляем поля запроса
Set Field = VisQry.AddField(TblRef, "Name")
Field.UserName = "Название"
Set Field = VisQry.AddField(TblRef, "Code")
Field.UserName = "Код объекта"
...