Программа запроса по таблице VIP

Private Sub Command1_Click()

Dim I%, K%, Kz%, T%, H%, J%, Zeh%

Dim P As String

Dim Cn As String

grid3. Visible = True

Data1. Visible = False

Data2. Visible = False

Data1. Recordset. MoveFirst

grid3. Rows = 1: grid3. Cols = 6

For I = 0 To 1 'Дадим названия полей из таблицы БД полям в гибкой сетке

grid3. TextMatri x (0, I) = Data1. Recordset. Fields(I).Name

Data1. Recordset. MoveFirst

Next I

For I = 6 To 9

grid3. TextMatrix (0, I – 4) = Data1. Recordset. Fields(I).Name

Data1. Recordset. MoveFirst

Next I

For I = 1 To Data1. Recordset. RecordCount 'Отбор продуктов, факт. выпуск которых равномерно возрастал

If Data1. Recordset. Fields(6).Value < Data1. Recordset. Fields(7).Value And Data1. Recordset. Fields(7).Value < Data1. Recordset. Fields(8).Value And Data1. Recordset. Fields(8).Value < Data1. Recordset. Fields(9).Value Then

grid3. Rows = grid3. Rows + 1: Kz = grid3. Rows – 1

For L = 0 To 1

grid3. TextMatrix (Kz, L) = Data1. Recordset. Fields(L).Value

Next L

For L = 6 To 9

grid3. TextMatrix (Kz, L – 4) = Data1. Recordset. Fields(L).Value

Next L

End If

Data1. Recordset. MoveNext

Next I

grid3. Col = 1 'Выберем колонку для сортировки

grid3. Sort = 1 'Сортируем строчки по нисходящей

End Sub

Экранная форма в исходном состоянии

 

Экранная форма с выходными результатами

Выполнение Запроса 2 (справки 2) по таблице PROD

Справка 2. Виды продукции, имеющие сертификат качества. Названия которых начинается с букв от «Г» до «Т».

 

Шифр продукции	Наименование продукции	Наличие сертификата качества

Алгоритм Запроса 2 (справки2) по таблице PROD

4

1

4

3