Вополняет выборку данных с учетом условий.

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

ZbDatabase

Синтаксис:

Visual Basic:

Function SelectByExample(QueryStrings As String, Fields As String) As IZbDataset

QueryStrings - строки запроса, разделенные символом ASCII 10.

Fields - имена полей, которым соответствуют строки запроса, разделенные символом ASCII 10.

Описание:

Метод делегирует выполнение текущему активному запросу (см. IZbQueryInfo.SelectByExample, ActiveQuery).

Пример:

Private Sub Command2_Click()

    'Открываем базу данных активного слоя для типа с ID = 1
    
    Dim db as ZbDatabase
    
    Set db = new ZbDatabase
    
    If db.Open(MapCtrl1.map.Layers.Active.ObjectTypes.Item(1)) = True Then
    
        'Запрос аналогичный запросу из окна с информацией:
        'Найти записи, где значение поля T1_r >=150 и Thz_r >=5
        
        Set ds = db.SelectByExample(">=150" + Chr(10) + ">=5", "T1_r" + Chr(10) + "Thz_r")
    
        'Выводим количество записей в ответе
        Dim Cnt As Long
        
        Cnt = 0
        
        If ds.MoveFirst = True Then        
            Do            
                Cnt = Cnt + 1
                
                If ds.MoveNext = False Then Exit Do            
            Loop        
        End If
        
        MsgBox Cnt
    
    End If         
 
 End Sub