Презентация, доклад на тему Основы использования ADO-компонент для чтения информации из баз данных

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

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-компоненты.
Модель ADO представляет собой набор объектов, использование которых в приложениях значительно упрощают доступ к информации в базах данных.

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

и из серверных приложений. ADO компоненты используются в языках VB (VBA), так в VBScript, JavaScript, Python, PHP и др.
Поэтому, отладив приложение в локальном режиме, его легко можно перенести в серверную систему. Например, можно создать 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 db=CreateObject("ADODB.Connection") Set rs=CreateObject("ADODB.Recordset")

– перемещение указателя по массиву результата

rs.EOF – указатель конца файла результата (true/false)

rb.Close – закрытие канала связи с базой данных

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

(например,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:\"
NameDb = "avto.mdb"
FullNameDb = PathDB & NameDb
NameProv = "Microsoft.Jet.OLEDB.4.0"
'---------- открытие базы данных -------------
With obj
.Provider = NameProv
.ConnectionString = FullNameDb
.Mode = adModeShareDenyWrite
.Open
End With
'--------------------------------------------------------

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

Источники данных ODBC-32.Появится окно диспетчера Источников ODBC

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

и ввести параметры

Пример параметров для драйвера ODBC MySQL:

DSN= Univer
Server= localhost
DB Name= univer
User= root
Port:=3306

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

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

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

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

базы данных по DSN ---
Set Db = CreateObject("ADODB.Connection")
driver = "{Microsoft Access Driver(*.mdb)}"
namedb = "D:\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={SQL Server};server=localhost; database=testDB ; uid= sa; psw= 1234; "
Для СУБД Access 2007 (и старше) strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\myFolder\myAccessFile.accdb;
Persist Security Info=False; "

Для таблиц Excel
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;
Extended Properties=Excel 8.0; HDR=Yes;IMEX=1";

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

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

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

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

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