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.




Содержание  Назад  Вперед