DataStud1.Refresh

End If

Else

Dim CapStr As String

Dim SQLStr As String

End Sub

FrmFind.Hide

End With

End If

End If

If.NoMatch Then

If.NoMatch Then

With frmSpisok.DataStud.Recordset

Dim D As String

D=frmSpisok.DataStud.Recordset.Bookmark

.FindNext “Familie=” & Chr(34) & txtFind.Text & Chr(34)

.FindFirst “Familie=” & Chr(34) & txtFind.Text & Chr(34)

MsgBox “No record Find!”

.Bookmark=D

frmFind.txtFind.Text=””

12. Во втором случае, вся последовательность действий сохраняется как и при работе с первой формой (всегда начинаете с подключения объекта Data).

13. В этой форме мы используем объект DBGrid для отображения данных в привычном табличном виде. Добавляем этот объект DBGrid в нашу форму, установив его имя DBGridSelRes, также задаём свойству DataSource значение DataStud1.

14. Вводим процедуру обработки для кнопки Отобразить результат:

Private Sub cmdShow_Click()

'Выбираем поля для просмотра в таблице

SQLStr = "SELECT Familie,Imja,Group, Word, Excel, Access FROM Spisok"

If (DBCmbFam.Text <> "") And (DBCmbGroup.Text <> "") Then

SQLStr = SQLStr & " WHERE (Familie=" & Chr(34) & DBCmbFam.Text & Chr(34) & ") AND (Group= " _

& Chr(34) & DBCmbGroup.Text & Chr(34) & ")"

SQLStr = SQLStr & " WHERE (Familie=" & Chr(34) & DBCmbFam.Text & Chr(34) & ") OR (Group= " _

& Chr(34) & DBCmbGroup.Text & Chr(34) & ")"

SQLStr = SQLStr & " ORDER BY Group DESC"

'MsgBox SQLStr

DataStud1.RecordSource = SQLStr

'Создаем строку заголовка объекта TDBGridSelRes

CapStr = "РЕЗУЛЬТАТ ОТБОРА"

DBGridSelRes.Caption = CapStr

If DBGridSelRes.Visible = False Then

DBGridSelRes.Visible = True

Дата добавления: 2014-12-27