|
Последнее обновление 11/21/02.
| |
| Пример запроса SQL для
вывода некоторых полей таблицы базы
данных MS Access в DBGrid, по параметру,
выбираемому в DBCombo. |
Private Sub DBCombo1_Click(Area As Integer)
'---------------------------------------------------
'Вывод в DBGrid некоторых
значений из таблицы по
'запросу SQL. Основанием для
запроса является
'запись в DBCombo
'---------------------------------------------------
On Error GoTo ProError
Dim SQLstr As String
'проверка - должна ли быть
видима таблица на этом
'этапе
If dbcAreaList = 2 Then
If t = 0 Then
t = 1
DBGrid1.Visible = False
Exit
Sub
End If
10 If t = 1 Then
'запрос
SQLstr
= "SELECT PP as Запись, Number as Номер_платежки,
Data as Дата , Recipient as Плательщик, Summa as Сумма
FROM " & "Plategs1 WHERE " & "Payer= '"
& DBCombo1.Text & "'"
Data1.RecordSource = SQLstr
Data1.Refresh
If
DBGrid1.Visible = False Then
DBGrid1.Visible = True
DBGrid1.SetFocus
t = 0
Exit Sub
End If
End If
End If
GoTo 10
ProError:
Exit Sub
End Sub |
| |
|
