Презентация, доклад на тему Курс Введение в язык SQL (Создание приложений с использованием запросов на языке SQL)

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

6: Знакомство с приемами использования запросов, построенных на языке SQL, в приложениях, созданных в Visual Basic (или Visual Basic for Application), в VBScript и Active Server Page.

приложений является использование библиотек объектов ADO ( ActiveX Data Object), которые используют драйверы OLEDB.
Фактически библиотека компонент OLEDB представляет собой открытый стандарт универсально интерфейса доступа к базам данных. Причем имеется ввиду, не только реляционные базы данных, но и не реляционные (например, многомерные хранилища, базы почтовых сообщений, базы данных на мэйнфреймах и т.п.)

на модели COM (Component Model Object), которая используется для разработки приложений под Windows.
ODBC – является надстройкой над драйверами OLEDB и позволяет создать более абстрактный уровень доступа к данным

потребителя (consumer) и служебного элемента, выполняющего обработку и передачу данных. Задача провайдера обеспечить интерфейс OLEDB с помощью специального низкоуровневой программы (драйвера).
В качестве потребителя OLEDB могут выступать компоненты службы ODBC, которые используют драйверы для доступа к реляционным базам данных (см. рис.1).
Драйверы разрабатываются с ориентации на конкретную СУБД. На практике в клиентских приложениях часто используются следующие драйверы:
Драйверы для связи с базами данных, которые созданы в среде Access:
- Microsoft Jet 3.51 OLE DB Provider, собственный провайдер для баз данных с базами Access 7.0 и боле ранних версий.
- Microsoft Jet 4.0 OLE DB Provider, собственный провайдер для баз данных с базами Access 2000 и боле ранних версий.

Microsoft OLE DB Provider for SQL Server, собственный провайдер для сервера SQL 6.х и более поздних версий.
В роли потребителя могут выступать ADO-компоненты, как показано на рис.1. выше. Модель ADO представляет собой набор объектов, использование которых в приложениях значительно упрощают доступ к информации в базах данных.

и из серверных приложений. ADO компоненты используются в языках VB (VBA), так в VBScript, JavaScript, Python и др.
Поэтому, отладив приложение в локальном режиме, его легко можно перенести в серверную систему. Например, создав VBА-программу расчета с доступом к базе данных Access, затем текст этой программы можно перенести в скрипт языка VBScript, который реализует аналогичный расчет в Web-среде.

данных без утомительных разработок на языках типа C++.
Разработка приложений к базам данных становится доступной не только программистам, но и специалистам в прикладных областях (например, экономистам, социологам, юристам и т.п.)

начинается с подключения библиотек ADO к проекту. Для этого необходимо создать новую книгу в Excel, войти в редактор проектов VBA (через клавиши Alt+F11) и выполнить команду Tools→References, затем в окне списка библиотек компонентов выбрать библиотеку ActiveX Data Objects 2.Library.

объектов: DIM obj AS New ADODB.Connection DIM rs AS New ADODB.Recordset
Создание объектов с помощью оператора Set Set obj=CreateObject(“ADODB.Connection”) Set rs=CreateObject(“ADODB.Recordset)

(например,avtoshop.mdb) читаются по SQL-запросу и переносятся на рабочий лист книги (например, на Лист1).
Создадим модуль (командой Insert→Module) и на модуле разработаем процедуру READ_DB(), которая будет состоять из следующих блоков:
Блок 1 – создание объекта для коннекции с базой данных;
Блок 2 – создание объекта набора записей, соответствующих SQL-запросу;
Блок 3 – вывод набора записей на рабочий лист.
Разметим строками комментариев процедуру READ_DB(), как показано на рис. 2.

данных

Блок 2 создание объекта набора записей, соответствующих SQL-запросу

Блок 3 вывод набора записей на рабочий лист

базой данных Access достаточно задать: тип провайдера (Microsoft.Jet.OLEDB.4.0) и полный путь к базе данных.
' Блок 1 – создание объекта для коннекции с базой данных
Dim obj As New ADODB.Connection
PathDB = " D:\Учебное пособие по SQL В Access\"
NameDb = "avto.mdb"
FullNameDb = PathDB & NameDb
NameProv = "Microsoft.Jet.OLEDB.4.0"
'---------- открытие базы данных -------------
With obj
.Provider = NameProv
.ConnectionString = FullNameDb
.Mode = adModeShareDenyWrite
.Open
End With
'--------------------------------------------------------

Сначала создаем имя DNS (например, для БД D:\Учебное пособие по SQL В Access\avto.mdb создадим DNS test_db)
Затем используем DNS-имя для связи с БД

'-Блок 1 Открытие базы данных по DSN---
Set Db = CreateObject("ADODB.Connection")
strConn = "DSN=test_db"
Db.Open strConn, Db

по DSN ---
driver = "{Microsoft Access Driver(*.mdb)}"
namedb = "D:\Базы данных\Лабы\Лаб3\Orders.mdb"
us = "Admin"
psw = " " '---------
strConn = "driver=" & driver & ";dbq=" & namedb & "; UID=" & us & ";PASSWORD=" & psw
'--------
MsgBox "strConn-->" & strConn
Db.Open strConn, Db

СУБД SQL Server:
Rem - Блок1– Открытие базы данных по OLEDB
strDriver = "{SQL Server}"
strServer = "localhost"
strUserID = "sa"
strPassword = ""
name_db = "Orders“
strConn = "driver=" & strDriver & ";server=" & strServer & ";database=" & name_db & "; uid=" & strUserID & "; psw=" & strPassword & ";“
MsgBox "strConn-->" & strConn
Db.Open strConn, Db

создания объекта типа Recordset. Созданный объект типа RecordSet необходимо связать с объектом Connection (в нашем случае с объектом obj) и передать ему SQL-запрос, который задан в стринговой форме. Положим, что нам надо отобрать все записи, которые удовлетворяют запросу: SELECT * FROM Customers ;

" SELECT * FROM Customers "
'-----------------------------------------
With rs
Set .ActiveConnection = obj
.Source = StrSQL
.LockType = adLockReadOnly
.CursorLocation = adUseClient
.Open
.MoveFirst
End With
'--------------------------------------------------------

---
With Sheets("Лист1")
nstr = 1: k = 1
For Each fl In rs.fields
.Cells(nstr, k).Value = fl.Name : k = k + 1
Next
'-3.2-- вывод строк тела таблицы ---
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
MsgBox "Вывод по SQL-запросу окончен"

HTML page -----------
tt = ""
tt = tt & "

SQL запрос:" & strSQl & "

"
'---- head of table ----------------
tt = tt & ""
For Each fl In rs.fields
tt = tt & ""
Next
tt = tt & ""
'------- body of table ------
Do While rs.EOF = False
tt = tt & ""
For Each fl In rs.fields
tt = tt & ""
Next
'-----
tt = tt & ""
rs.MoveNext
Loop
'-----
tt = tt & "

" & fl.Name & "

" & fl.Value & "

"
document.write tt

Driver}; SERVER=localhost; DATABASE=test;USER=root; PORT=3306;OPTION=3 "
Для СУБД IBM DB2 strConn = "Provider=IBMDADB2.DB2; Data Source=SAMPLE;User ID=db2admin; password=admin;Location=localhost;"

приложениях значительно упрощают доступ к информации в базах данных.
Применение ADO технологии позволяет создавать удобный и эффективный Web-интерфейс с базой данных без утомительного программирования
Используя механизмы DNS и изменяя только стринг коннекции можно создавать приложения практически независимые от СУБД