Курсовая работа: Создание и обработка баз данных средствами языка Visual Basic 60

Fixed Rows = 1

DataSource = Data1

Name = Grid2

Fixed Cols = 0

Fixed Rows = 1

DataSource = Data2

Name = Grid3

Fixed Cols = 0

Fixed Rows = 1

Visible = False

5.1.3 Программа запроса по таблице 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

ForI = 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 'Отбор продуктов, факт. выпуск которых равномерно возрастал