Visual Basic 6. Руководство разработчика
Использование связанного с данными элемента управления - часть 2
5. Элемент управления TextBox, с помощью которого вводятся SQL-операторы, называется txtSQL. Установите его свойство MultiLine в True, а свойство Scrollbars - в 2-Vertical
6. Запрограммируем кнопки. Код кнопки Open Database открывает стандартное диалоговое окно File Open (напомню, мы используем элемент управления Common Dialogs), в котором можно выбрать базу данных. Имя базы отображается на элементе управления Label рядом с кнопкой Command.
Программа 17.13. Кнопка Open Database
Private Sub DBOpen_Click()
On Error GoTo NoDatabase
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Databases | *.MDB"
CommonDialogI.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Data1.Refresh
If Err = 0 Then
Label1.Caption = CommonDialog1.FileName
Else
MsgBox Err.Description
End If
NoDatabase:
On Error GoTo 0
End Sub
7. Кнопка Execute SQL (выполнить запрос) выбирает SQL-оператор из текстового поля txtSQL и присваивает его свойству RecordSource элемента управления Datal.
Private Sub ExecuteSQL_Click()
On Error GoTo SQLError
Data1.RecordSource = txtSQL
Data1.Refresh
Exit Sub
SQLError:
MsgBox Err.Description
End Sub
Оператор ОnЕггог определяет любую ошибку при выполнении SQL-оператора и отображает информацию о ней в окне сообщений. Присваивание нового значения свойству RecordSource элемента управления не модифицирует его содержимое. Чтобы прочитать новые данные из базы данных и принудительно выполнить модификацию, вызывается метод Refresh элемента управления Data.
