Презентация на тему Разработка приложений на VB (или VBA) для баз данных

: Разработка диалоговой формы в среде VBA Excel для

ввода данных. Доступ к базам данных через ODBC - интерфейс
Обработка данных формы в VBSCript (ADO-компоненты в скриптах)

В примере используется база данных Avto.mdb

Герасимов Н.А

контейнер, к котором размещаются объекты для реализации интерактивного взаимодействия

человека с компьютером.
В качестве объектов здесь выступают:
Надписи (label);
Текстовые боксы (textbox);
Выпадающие списки (listbox);
Кнопки (button);
Специальные кнопки-указатели (checkbutton или radio)
И другие.
Каждый объект имеет свои свойства (параметры). Обязательным параметром объекта является Имя (Name)

выбрать команду Вид – выбрать Макросы – Изменить Попадаем в

режим проектирования VBA приложений.
Другой способ войти в это режим - нажать клавиши Alt+F11.
В режиме проектирования VBA приложений выбираем команду Вставить (Insert)- Форму (UserForm) и попадаем в редактор пользовательских форм

Герасимов Н.А

Objects (выбор объектов), 2 – Label (надпись), 3 –

TextBox (поле), 4 – ComboBox (поле со списком), 5 – ListBox (список), 6 – CheckBox (флажок), 7 – OptionButton (переключатель), 8 – ToggleButton (выключатель), 9 – Frame (рамка) 10 – CommandButton (кнопка), 11 – TabStrip (набор вкладок), 12 – MultlPage (набор страниц), 13 – ScrollBar (полоса прокрутки), 14 – SpinButton (счетчик), 15 – Image (рисунок), 16 –RefEdit

формы – Name =

MyForm
Заголовок формы – Caption = Ввод данных
Шрифт – Font = 10 bould

Разместим на форме объекты:
Метку (label) с текстом (Caption = SQL Запрос )
Текстовый бокс (textbox) c (Value=select * from people;) и (MultiLine=True)
Кнопку (button) с текстом (Caption = Выполнить)

Герасимов Н.А

обработчика события click на объекте Button достаточно дважды щелкнуть

по этому объекту.

Герасимов Н.А

обработчик событий на кнопке две команды:
Команда чтения из текстового

бокса текущего значения параметра value
txt=textbox1.value
Команда вывода сообщения в модальное окно
MsgBox txt

Герасимов Н.А

выполнение

на форму список (ListBox) возможных вопросов, который находится на

Листе (Query)

Список передается в объект ListBox через свойство RowSource=Query!B1:B10

выбирает из списка запрос и после нажатия на этом

запросе, запрос попадает в текстовый бокс для редактирования.

будем использовать процедуру выполнения SQL-запроса в базе данных Avto.mdb

(Access).
Процедура ReadDB(strSQL) в качестве входного параметра имеет SQL-запрос, который находится в символьной переменной strSQL.
Процедура ReadDB(strSQL) выполняет следующие функции:
Открывает канал связи с базой данных Avto.mdb
Выполняет полученный SQL-запрос
Результат выводит на Лист1
Закрывает канал связи

Н.А
Sub Read_db(strSQL)
'---(1) Открыть канал связи с БД-----------
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=D:\Avto.mdb;"
Set Db = CreateObject("ADODB.Connection")
Db.Open strConn
'---(2) Выполнить запрос ------
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open strSQL, Db
'---(3) вывод таблицы результатов ---------
With Sheets("Лист1")
nstr = 1: k = 1
'----- подготовка заголовка таблицы ----
For Each fl In Rs.fields
.Cells(nstr, k).Value = fl.Name : k = k + 1
Next
nstr = 2

'----- вывод строк таблицы ----------
Do While (Rs.EOF = False)
k = 1
For Each fl In Rs.fields
.Cells(nstr, k).Value = fl.Value : k = k + 1
Next
'---- перемещение на след строку ----
nstr = nstr + 1 : Rs.movenext
Loop
End With
End Sub

из текстового бокса -
strSQL = TextBox1.Value
'--- вывод сообщения в

модальное окно --
rep = MsgBox(strSQL, 308, "")
If rep = vbYes Then
'---- Выполнение запроса ---
Call Clear_Sheet 'Очистка листа
Call Read_DB(strSQL)
End If
End Sub

Герасимов Н.А

test load vbscript module

test load vbscript module

---

Зарос:
<br> select * from salespeople;<br>

Сохранить текст в файле Form_read_db.html

формы ----
strSQL=txtSQL.value
msgbox "strSQL=>" & strSQL

dbName="shop.mdb"
call read_db(strSQL, dbName )
END SUB
'---=================================----
Sub read_db (strSQL, dbName)
'---(1) Открыть канал связи с БД-----------
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";"
Set Db = CreateObject("ADODB.Connection")
Db.Open strConn
'---(2) Выполнить запрос ------
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open strSQL, Db
'---(3) вывод таблицы результатов ----------------
ss0=""
'----- подготовка заголовка таблицы ----
For Each fl In Rs.Fields
ss0 = ss0 & "" & fl.Name & ""
Next
ss0 = ss0 & ""

'----- вывод строк таблицы ----------
ss1=""
Do While (Rs.EOF = False)
ss1= ss1 & ""
For Each fl In Rs.Fields
ss1 = ss1 & "" & fl.Value & ""
Next
ss1 = ss1 & ""
'---- перемещение на след строку ----
Rs.movenext
Loop
'----------- вывод результата в HTML - виде -----
ss="База данных =" & dbName & "
SQL запрос=" & strSQL & "

---

"
tt=ss & "" & ss0 & ss1 & ""
document.write(tt)
'-----------закрыть канал связи с базой ----
Db.Close
End Sub

разработке диалоговых приложений в среде VBA – М., Изд-во

«РЭУ им. Г.В. Плеханова», 2004 г.,60 с
Лекции по теиме «Формы на VBA» на youtube- https://www.youtube.com/watch?v=c8Yndw4rCfc
https://www.youtube.com/watch?v=Bhzgf1rQ9P4 https://www.youtube.com/watch?v=4ZIMo82yZro https://www.youtube.com/watch?v=u6-gWWYM00k https://www.youtube.com/watch?v=wewZWa9zjfc