Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
сервере, например, использовать запросы модификации. Важным аргументом в пользу
использования SQL pass-through запросов является, как уже было сказано выше, более высокая
скорость выполнения, но, помимо этого, с помощью SQL pass-through вам доступны не только
команды выборки, но и команды определения данных, возможность запускать хранимые
процедуры. В итоге вы получаете, в зависимости от данных вам прав, довольно значительные
возможности по управлению данными на сервере. По большому счету, визуально запросы pass-
through не создаются, но какие-то элементы автоматизации присутствуют. Для того чтобы
создать запрос с помощью Конструктора Запросов, перейдите на вкладку Запросы в контейнере
базы данных. Затем в меню Запрос выберите команду Запрос SQL и опцию К серверу, которая в
английской версии называется Pass-Through. После выбора этого пункта меню больше не будет
доступен режим конструктора, то есть SQL команды придется набирать вручную. Не будет
доступен даже Построитель. Единственное, что вы можете выбрать - это свойства вашего
запроса, среди которых имя источника данных (Data Source). Чтобы получить доступ к диалогу
свойств, выберите команду Свойства в меню Вид (рис. 8.10).
Рис. 8.10.
Среди других свойств следует обратить внимание на Возврат записей. Если вы собираетесь
использовать запросы определения данных, то установите значение этого свойства равным
"Нет".
В Visual Basic визуальное создание pass-through запросов не доступно при работе с Data
Manager.
Для того чтобы создавать запросы pass-through программно, используются объекты QueryDef.
Далее будет разобран небольшой пример, созданный с помощью Visual Basic и использующий
pass-through запросы для работы с внешними данными. Приложение состоит из одной формы,
которая представлена на рис. 8.11.
Рис. 8.11.
Данная форма при загрузке использует SQL pass-through запрос для создания набора данных,
который мы можем просматривать и редактировать.
converted to PDF by HupBaH9I
Private Sub Form_Load()
Set Db = Workspaces(0).OpenDatabase("C:\SPORT\TOTEACH.MDB")
'Проверка наличия в базе данных
'запроса с именем "My QD1", и если запрос присутствует, то
'удаляем его.
For I = 0 To Db.QueryDefs.Count - 1
If Db.QueryDefs(I).Name = "My QD1" Then
Db.QueryDefs.Delete "My QD1"
Exit For
End If
Next I
' Мы создаем запрос или, на языке, DAO объект QueryDef и
' устанавливаем строку соединения.
Set Qd1 = Db.CreateQueryDef("My QD1")
Qd1.Connect = "odbc;dsn=vfp34;"
' Записываем SQL запрос и устанавливаем свойство
' ReturnsRecord (Возврат записей) равным Истине, так как
' наш запрос должен возвращать записи
Qd1.SQL = "SELECT * FROM Account"
Qd1.ReturnsRecords = True
' В этой части процедуры мы устанавливаем соответствие
' между полями набора данных, предварительно создав его,
' и объектами формы, а именно двумя текстовыми полями
Set Rs = Db.OpenRecordset("My Qd1",_dbOpenSnapshot)
Me.Text1 = Rs!account
Me.Text2 = Rs!summa
vtext1 = Rs!account
vtext2 = Rs!summa
Me.Text3 = Rs.RecordCount
End Sub
Как видно из примера, основное отличие pass-through запросов от остальных запросов - это
наличие непустого свойства Connect и установка свойства ReturnRecords.
Если вы отредактируете какое-либо из полей формы, то сможете записать изменения на
сервер с помощью pass-through запроса. Такой сложный путь необходим ввиду того, что
выборки, получаемые в результате выполнения pass-through запросов, не модифицируемы.
Private Sub Command3_Click()
For I = 0 To Db.QueryDefs.Count - 1
If Db.QueryDefs(I).Name = "My QD2" Then
Db.QueryDefs.Delete "My QD2"
Exit For
End If
Next I
Set Qd2 = Db.CreateQueryDef("My QD2")
Qd2.Connect = "odbc;dsn=vfp34;"
Qd2.SQL = "Update account set account=" &_Str(Me.Text1) & ",_summa = " & Str(Me.Text2) &
" where account ="_ & Str(vtext1) & " _and summa = " & Str(vtext2)
Qd2.ReturnsRecords = False
Qd2.Execute
Set Rs = Db.OpenRecordset("My Qd1",_dbOpenSnapshot)
Rs.FindNext "account=" & Str(Me.Text1) &_ " and summa=" & Str(Me.Text2)
Me.Text3 = Rs.RecordCount
End Sub
Обратите внимание, что свойство ReturnsRecords устанавливается равным False и на
обращение к методу Execute объекта QueryDef.
Но основным предназначением использования pass-through запросов все же считается не
выборка данных, а запросы определения данных и выполнение хранимых процедур на сервере.
В следующем примере создается таблица на внешнем по отношению к Access источнике
данных (Data Source)
Set Qd3= Db.CreateQueryDef("My QD3")
Qd3.Connect = "odbc;dsn=vfp34;"
Qd3.SQL = "CREATE TABLE madebyaccess(field1 c(20))
converted to PDF by HupBaH9I
Qd3.ReturnsRecords = False
Qd3.Execute
8.4. Использование ODBC API для доступа к внешним
данным
ODBC API - прикладной интерфейс программиста для доступа к функциям ODBC. Структура
ODBC была изложена в начале этой главы.
В этом параграфе мы познакомимся с некоторыми функциями ODBC более подробно и
рассмотрим примеры использования этих функций для доступа к данным на сервере.
Кодирование с помощью ODBC значительно сложнее, но выигрыш в скорости может быть
существенным. Здесь следует отметить, что наибольший выигрыш в производительности
достигается при доступе к базам данным ODBC. Если же вы попытаетесь с помощью данного
метода улучшить показатели доступа к данным, к которым Access обращается с помощью ISAM -
последовательного индексного доступа к данным, то результат будет не столь хорош, как
хотелось бы, а иногда и совсем плох.
Для того чтобы воспользоваться функциями ODBC API, их необходимо подключить с помощью
команды Declare.
' ODBC API объявления
Declare Function oSQLAllocEnv Lib "odbc32.dll" _
Alias "SQLAllocEnv" (phenv As Long) As Integer
Declare Function oSQLAllocConnect Lib "odbc32.dll" _
Alias "SQLAllocConnect" (ByVal henv As Long, phdbc As _ Long) As Integer
Declare Function oSQLConnect Lib "odbc32.dll" _
Alias "SQLConnect" (ByVal hdbc As Long, ByVal szDSN As _ String, _
ByVal cbDSN As Integer, ByVal szUID As String, _
ByVal cbUID As Integer, ByVal szAuthStr As String, _
ByVal cbAuthStr As Integer) As Integer
Declare Function oSQLAllocStmt Lib "odbc32.dll" _
Alias "SQLAllocStmt" (ByVal hdbc As Long, pHstmt As _ Long) As Integer
Четыре функции, которые приведены выше, служат для установки указателя для окружения,
соединения, утверждения и установления связи с приложением - сервером. Установка указателя
с перечисленными объектами - необходимая процедура для дальнейших действий, которые вы
планируете совершить, используя соединение, построенное с помощью ODBC API. Причем вызов
этих функций должен происходить в том порядке, в каком они перечислены выше. Далее
приводится пример использования этих функций для построения процедуры, которая соединит
вас с источником данных. Причем вы не связаны рамками Access или Visual Basic, подойдет
любой продукт, который поддерживает доступ к функциям, хранящимся в динамически
подсоединяемых библиотеках DLL.
Перед использованием этой функции необходимо определить структуру следующего типа (в
языках, которые не могут создавать типов, придумайте что-нибудь другое, выход всегда есть):
Type ORecordSet
lngHenv As Long ' Указатель окружения
lngHdbc As Long ' Указатель соединения
lngHstmt As Long ' Указатель утверждения
lngHstmtUpdate As Long ' Указатель используемый для
' изменений и удалений
intColumns As Integer ' Возвращаемые колонки
lngRows As Long ' Возвращаемые записи
lngRowCount As Long ' Число записей для операций
' со многими записями
lngRowSetSize As Long ' Размер набора записей
' в курсоре
lngMaxRows As Long ' Максимальное число
' возвращаемых записей
lngMaxWidth As Long ' Максимальная ширина поля
lngCursor As Long ' Тип курсора
lngConcur As Long ' Тип совпадения
EOF As Boolean ' Указывает конец файла
BOF As Boolean ' Указывает начало файла
lngFirstRow As Long ' Первая запись в курсоре
converted to PDF by HupBaH9I
lngCurrentRow As Long ' Текущая запись в курсоре
lngLastRow As Long ' Последняя запись в курсоре
lngLastSetRow As Long ' Последняя запись в наборе
' данных
strCursorName As String ' Имя курсора
intArrayPos As Integer ' Позиция этого типа
' в массиве
intRowStatus() As Integer ' Расширенная информация
' о наборе записей
strColLabels() As String ' Текст метки колонки
lngColLabels() As Long ' Длина метки колонки
lngDisplaySize() As Long ' Ширина вывода колонки
End Type
Информация о наборе данных или создание переменной типа, который объявлен выше -
oRecordSet:
Private mtypODBC As OrecordSet
Помимо этого понадобятся следующие константы:
' Возможные значения, которые будет возвращать вызов ODBC
Public Const SQL_INVALID_HANDLE = -2
Public Const SQL_ERROR = -1
Public Const SQL_SUCCESS = 0
Public Const SQL_SUCCESS_WITH_INFO = 1
Public Const SQL_STILL_EXECUTING = 2
Public Const SQL_NEED_DATA = 99
Public Const SQL_NO_DATA_FOUND = 100
Данную функцию необходимо использовать, передавая ей в качестве параметров имя
источника данных, идентификатор пользователя и пароля пользователя. Функция должна
возвращать ложь или истину.
Function rODBCConnect(strServer As String, strUID As String,
_strPassword As String) As Integer
Dim intRet As Integer
Dim strConnOut As String * 256
Dim intConnOut As Integer
Dim typOBad As ORecordSet
Dim i As Integer
On Error GoTo rODBCConnectErr
rODBCConnect = True
' Установка указателя окружения
intRet = oSQLAllocEnv(mtypODBC.lngHenv)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, SQL_NULL_HDBC, _
SQL_NULL_HSTMT)
End If
If intRet << SQL_SUCCESS Then
rODBCConnect = False
GoTo rODBCConnectExit
End If
' Установка указателя соединения
intRet = oSQLAllocConnect(ByVal mtypODBC.lngHenv, _
mtypODBC.lngHdbc)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, SQL_NULL_HSTMT)
End If
If intRet << SQL_SUCCESS Then
rODBCConnect = False
GoTo rODBCConnectExit
End If
' Соединения с указанным драйвером
intRet = oSQLConnect(ByVal mtypODBC.lngHdbc, strServer, _
Len(strServer), strUID, Len(strUID), strPassword, _
converted to PDF by HupBaH9I
Len(strPassword))
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, SQL_NULL_HSTMT)
End If
If intRet << SQL_SUCCESS Then
rODBCConnect = False
GoTo rODBCConnectExit
End If
rODBCConnectExit:
Exit Function
rODBCConnectErr:
MsgBox Err.Number & ": " & Err.Description, _
vbCritical, "rODBCConnect()"
typOBad.intArrayPos = -1
rODBCConnect = False
Resume rODBCConnectExit
End Function
После того как вы установили соединение, вам необходимо установить указатель для
утверждения, перед тем как приложение сможет выполнить SQL запрос, как показано в
следующем примере:
intRet = oSQLAllocStmt(ByVal mtypODBC.lngHdbc,_
mtypODBC.lngHstmt)
К счастью, эту функцию надо выполнять только один раз, так как возвращаемый указатель
может использоваться любым количеством соединений. Однако с некоторыми серверами, такими
как Microsoft SQL Server, вы должны завершить запрос с указателем утверждением, перед тем
как начать выполнение другого запроса. В силу этого, вы не можете разместить указатель
другого утверждения без открытия другого соединения к серверу или же вам необходимо
подождать, пока текущее выражение не завершит работу. В зависимости от драйвера вы можете
иметь возможность выполнять несколько выражений на одном соединении. Используйте функцию
SQLGetInfo() для того, чтобы определить, способен ли ваш драйвер выполнять несколько
утверждений на одном соединении.
Таким образом, мы подошли к процессу выполнения SQL выражения. Для этого мы используем
объявление следующей функции:
Declare Function oSQLExecDirect Lib "odbc32.dll" _
Alias "SQLExecDirect" (ByVal hstmt As Long, _
ByVal szSqlStr As String, ByVal cbSqlStr As Integer) As_ Integer
Теперь мы объявили все функции для открытия доступа к набору данных, хранящихся на
сервере. Эта функция может выглядеть следующим образом:
Function rODBCOpenRecordset( _strSQL As String, lngType As Long) As Boolean
' Открывает набор данных на источнике данных ODBC
' Вначале необходимо вызвать ODBCConnect для установки
' соединения
' Возвращает true при успешном завершении, false при
' любой ошибке
Dim intRet As Integer
Dim i As Integer
On Error GoTo rODBCOpenRecordsetErr
rODBCOpenRecordset = True
' Проверка наличия соединения
If mtypODBC.lngHdbc = SQL_NULL_HDBC Then
MsgBox "Нет открытых дескрипторов. Нет открытых соединений для открытия наборов
данных. " & _
"Вызовите вначале rODBCOpenRecordset", vbCritical, _
"rODBCOpenRecordset()"
rODBCOpenRecordset = False
GoTo rODBCOpenRecordsetExit
End If
converted to PDF by HupBaH9I
' Размещает SQL выражение для использования
' в других функциях
intRet = oSQLAllocStmt(ByVal mtypODBC.lngHdbc, _
mtypODBC.lngHstmt)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
If intRet << SQL_SUCCESS Then
rODBCOpenRecordset = False
GoTo rODBCOpenRecordsetExit
End If
' Устанавливает некоторые значения в глобальной
' структуре
mtypODBC.BOF = False
mtypODBC.EOF = False
mtypODBC.lngFirstRow = 0
mtypODBC.lngCurrentRow = 0
mtypODBC.lngLastRow = 0
mtypODBC.lngCursor = SQL_CURSOR_DYNAMIC
If lngType = dbOpenDynaset Then
mtypODBC.lngConcur = SQL_CONCUR_VALUES
ElseIf lngType = dbOpenSnapshot Then
mtypODBC.lngConcur = SQL_CONCUR_READ_ONLY
Else
"rODBCOpenRecordset()"
rODBCOpenRecordset = False
GoTo rODBCOpenRecordsetExit
End If
mtypODBC.lngRowSetSize = odbcRowsetSize
'Устанавливает максимальное количество записей
mtypODBC.lngMaxRows = odbcMaxRows
'Устанавливает максимальную ширину поля в этом
' выражении
mtypODBC.lngMaxWidth = odbcMaxWidth
intRet = oSQLSetStmtOption(ByVal_mtypODBC.lngHstmt, _
SQL_ROWSET_SIZE, mtypODBC.lngRowSetSize)
If intRet <<>> SQL_SUCCESS Then
Debug.Print "Сообщение: не можем установить размер набора"
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
' Устанавливает тип курсора для этого выражения
intRet = oSQLSetStmtOption(ByVal mtypODBC.lngHstmt, _
SQL_CURSOR_TYPE, mtypODBC.lngCursor)
If intRet <<>> SQL_SUCCESS Then
Debug.Print "Сообщение: не можем установить тип курсора"
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
' Устанавливает тип согласования для этого выражения
intRet = oSQLSetStmtOption(ByVal mtypODBC.lngHstmt, _
SQL_CONCURRENCY, mtypODBC.lngConcur)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
intRet = oSQLSetStmtOption(ByVal mtypODBC.lngHstmt, _
SQL_MAX_ROWS, mtypODBC.lngMaxRows)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
'Присваивает имя курсора выражения
intRet = oSQLSetCursorName(mtypODBC.lngHstmt, _
"C1", 2)
converted to PDF by HupBaH9I
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
mtypODBC.strCursorName = rODBCGetCursorName()
' Выполнение SQL выражения
intRet = oSQLExecDirect(ByVal mtypODBC.lngHstmt, _
strSQL, Len(strSQL))
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, mtypODBC.lngHstmt)
End If
If intRet <<>> SQL_SUCCESS And intRet <<>> SQL_SUCCESS_WITH_INFO Then
rODBCOpenRecordset = False
GoTo rODBCOpenRecordsetExit
End If
'Выводит информацию о колонке
intRet = rODBCGetColumnInfo()
If Not intRet Then
rODBCOpenRecordset = False
GoTo rODBCOpenRecordsetExit
End If
rODBCOpenRecordsetExit:
Exit Function
rODBCOpenRecordsetErr:
MsgBox Err.Number & ": " & Err.Description, _
vbCritical, "rODBCOpenRecordset()"
rODBCOpenRecordset = False
Resume rODBCOpenRecordsetExit
End Function
Как и большинство API, ODBC API активно использует указатели. Указатели используются для
ссылок на объекты, с которыми вы работаете. ODBC приложения работают с тремя типами
указателей: окружения, соединения и утверждения. Каждое приложение, которое использует
ODBC, начинается с размещения одного указателя окружения (устанавливаемого с помощью
SQLAllocEnv) и заканчивается освобождением этого указателя (SQLFreeEnv). Указатель
окружения - это родительский или главный указатель, с которым непосредственно связаны
другие ресурсы ODBC, размещаемые для приложения.
Для того чтобы исключить появление незавершенных результатов и освободить указатель SQL
выражения, используйте следующее выражение, предварительно объявив функцию с помощью
команды Declare:
Declare Function oSQLFreeStmt Lib "odbc32.dll" _
Alias "SQLFreeStmt" (ByVal hstmt As Long, ByVal fOption_As Integer) As Integer
rc = oSQLFreeStmt (mtypODBC.lngHstmt, SQL_CLOSE)
Следующие функции служат для освобождения указателя соединения и окружения:
Declare Function oSQLFreeConnect Lib "odbc32.dll" _
Alias "SQLFreeConnect" (ByVal hdbc As Long) As Integer
Declare Function oSQLFreeEnv Lib "odbc32.dll" _
Alias "SQLFreeEnv" (ByVal henv As Long) As Integer
Как правило, любой сеанс работы с использованием ODBC API должен заканчиваться вызовом
этих функций. Вызывая их из Access или Visual Basic, вы можете оформить это примерно таким
образом, как показано в следующем примере ниже описании функции:
Function rODBCDisconnect()
' Отсоединение от источника данных (Data Source)
Dim intRet As Integer
On Error GoTo rODBCDisconnectErr
intRet = oSQLDisconnect(ByVal mtypODBC.lngHdbc)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv,_
converted to PDF by HupBaH9I
mtypODBC.lngHdbc, SQL_NULL_HSTMT)
End If
intRet = oSQLFreeConnect(ByVal mtypODBC.lngHdbc)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
mtypODBC.lngHdbc, SQL_NULL_HSTMT)
End If
intRet = oSQLFreeEnv(ByVal mtypODBC.lngHenv)
If intRet <<>> SQL_SUCCESS Then
Call rODBCErrorInfo(mtypODBC.lngHenv, _
SQL_NULL_HDBC, SQL_NULL_HSTMT)
End If
rODBCDisconnectExit:
Exit Function
rODBCDisconnectErr:
MsgBox Err.Number & ": " & Err.Description,_ vbCritical, "rODBCDisconnect()"
rODBCDisconnect = False
Resume rODBCDisconnectExit
End Function
Как видно из вышеизложенного, функции ODBC API можно разделить на несколько типов, в
зависимости от задач, для которых они предназначены.
В табл. 8.6 перечислены базисные функции или функции ядра ODBC с пояснениями их
назначения (см. также рис. 8.12). При этом функции объединены по признаку их назначения.
Рис. 8.12.
Таблица 8.6. Базисные функции ODBC API
Назначение Функция Описание
Соединение с
источником данных
SQLAllocEnv Получает указатель окружения.
Одно окружение может служить
для создания нескольких
соединений.
^ SQLAlloc-
Connect
Получает указатель соединения.
^ SQLConnect Соединяется с указанным
драйвером, используя имя
источника данных,
идентификатор пользователя и
пароль.
Подготовка SQL
запросов
SQLAllocStmt
Размещает указатель выражения.
converted to PDF by HupBaH9I
^ SQLPrepare Подготавливает SQL выражение
для дальнейшего использования.
^ SQLGet-
CursorName
Возвращает имя, связанное с
указателем выражения.
^ SQLSet-
CursorName
Устанавливает имя курсора.
Выполнение
запросов
SQLExecute Выполняет заранее
подготовленный запрос.
^ SQLExec-
Direct
Выполняет запрос.
Выборка
результатов и
информации о
результатах
SQLRow-
Count
Возвращает количество записей,
задействованных в операциях
вставки, удаления, модификации.
^ SQLNum-
ResultCol
Возвращает количество колонок в
выбранном наборе данных.
^ SQLDescribe-
Col
Описывает колонку в выбранном
наборе данных.
^ SQLCol-
Attributes
Описывает атрибуты колонки в
выбранном наборе данных.
^ SQLBindCol Присваивает место в памяти для
колонки в выбранном наборе
данных и указывает ее тип
данных.
^ SQLFetch Возвращает несколько наборов
данных.
Окончание работы
выражения
SQLFreeStmt
Заканчивает процесс работы
выражения.
^ SQLCancel Прерывает работу выражения.
^ SQLTransact Завершает или откатывает
транзакцию.
Окончание работы
соединения
SQL-
Disconnect
Закрывает транзакцию.
^ SQLFreeEnv Удаляет указатель окружения.
^ SQLFree-
Connect
Удаляет указатель соединения.
Ниже приводится пример объявления функций ODBC API, которые вы можете применять в
своих программах, если, конечно, в качестве среды разработки используется система,
поддерживающая вызов DLL функций:
Declare Function oSQLRowCount Lib "odbc32.dll" _
Alias "SQLRowCount" (ByVal hstmt As Long, pcrow As Long)_As Integer
Declare Function oSQLBindCol Lib "odbc32.dll" _
Alias "SQLBindCol" (ByVal hstmt As Long, ByVal icol As_ Integer, _
ByVal fCType As Integer, rgbValue As Any, _
ByVal cbValueMax As Long, pcbValue As Long) As Integer
Declare Function oSQLColAttributes Lib "odbc32.dll" _
Alias "SQLColAttributes" (ByVal hstmt As Long, ByVal_ icol As Integer, _
ByVal fCType As Integer, rgbDesc As Any, ByVal cbDescMax_ As Integer, _
pcbDesc As Integer, pfDesc As Long) As Integer
Declare Function oSQLDescribeCol Lib "odbc32.dll" _
Alias "SQLDescribeCol" (ByVal hstmt As Long, _
ByVal icol As Integer, ByVal szColName As String, _
ByVal cbColNameMax As Integer, pcbColName As Integer, _
pfSQLType As Integer, pcbColDef As Long, _
pibScale As Integer, pfNullable As Integer) As Integer
Declare Function oSQLDisconnect Lib "odbc32.dll" _
Alias "SQLDisconnect" (ByVal hdbc As Long) As Integer
Declare Function oSQLDriverConnect Lib "odbc32.dll" _
Alias "SQLDriverConnect" (ByVal hdbc As Long, _
converted to PDF by HupBaH9I
ByVal Hwnd As Long, ByVal szConnStrIn As String, _
ByVal cbConnStrIn As Integer, _
ByVal szConnStrOut As String, ByVal cbConnStrOutMax As_ Integer, _
pcbConnStrOut As Integer, ByVal fDriverCompletion As Integer) As Integer
Declare Function oSQLError Lib "odbc32.dll" _
Alias "SQLError" (ByVal henv As Long, ByVal hdbc As_ Long, _
ByVal hstmt As Long, ByVal szSqlState As String, _
pfNativeError As Long, ByVal szErrorMessage As String, _
ByVal cbErrorMsgMax As Integer, pcErrorMsg As Integer)_ As Integer
Объявленная выше последняя функция служит для обработки ошибок, которые могут
возникнуть и возникают при использовании ODBC API. ODBC поддерживает стандартную модель
обработки ошибок. Каждая функция ODBC возвращает некий код, одним из которых может быть
SQL_ERROR. Чтобы получить больше информации об ошибке, приложение вызывает функцию
SQLError().
Драйвер хранит информацию об ошибке в структурах henv, hdbc и hstmt и возвращает эту
информацию приложению, когда приложение вызывает SQLError(). Каждая функция может
вызвать ноль или больше ошибок.
Приложение обычно вызывает функцию SQLError(), когда предыдущий вызов ODBC функции
возвращает SQL_ERROR или SQL_SUCCESS_WITH_INFO. Приложение может тем не менее
вызвать SQLError() после вызова любой ODBC функции.
Функция SQLError() возвращает следующую информацию:
• SQLSTATE - стандартный идентификатор ошибки.
• Native Error Code - код ошибки, свойственный данному источнику данных.
• Error Message Text - описание ошибки.
Ошибки сохраняются для текущего указателя до тех пор, пока данный указатель не будет
использован в вызове следующей функции. К примеру, ошибки на hstmt для текущей функции
очищаются, как только другая функция будет выполнена с использованием такого же указателя.
Ошибки, хранимые для данного указателя, никогда не очищаются в результате вызова функции с
использованием указателя другого, хотя и родственного типа. Например, ошибки на hdbc не
очищаются, когда вызов делается к родственной hstmt.
Функция SQLError() возвращает ошибку из структуры, связанной с самым правым ненулевым
аргументом указателя. Приложение запрашивает информацию об ошибке в следующем порядке:
• Чтобы получить ошибки, связанные с окружением, приложение передает
соответствующий henv и включает SQL_NULL_HDBC и SQL_NULL_HSTMT в hdbc и hstmt
соответственно. Драйвер возвращает статус ошибки ODBC функции, вызываемой самой
последней с тем же самым henv.
• Для вывода ошибок, связанных с соединением, приложение передает соответствующий
hdbc плюс hstmt, равный SQL_NULL_HSTMT. В таком случае драйвер игнорирует аргумент
henv. Драйвер возвращает статус ошибки функции ODBC, вызванной самой последней с
hdbc.
• Для отслеживания ошибок, связанных с выражением, приложение передает
соответствующий указатель hstmt. Если вызов SQLError() содержит правильный
указатель hstmt, драйвер игнорирует аргументы hdbc и henv. Драйвер возвращает статус
ошибки самой последней функции ODBC, вызванной с указателем hstmt.
• Для отслеживания нескольких ошибок, вызываемых функцией, приложение обращается к
SQLError() несколько раз. Для каждой ошибки драйвер возвращает SQL_SUCCESS и
удаляет эту ошибку из списка доступных ошибок.
Когда отсутствует дополнительная информация по самому правому ненулевому указателю,
функция SQLError() возвращает SQL_NO_DATA_FOUND.
Declare Function oSQLExtendedFetch Lib "odbc32.dll" _
Alias "SQLExtendedFetch" (ByVal hstmt As Long, _
ByVal fFetchType As Long, ByVal irow As Integer, _
pcrow As Long, rgfRowStatus As Integer) As Integer
Declare Function oSQLFetch Lib "odbc32.dll" _
Alias "SQLFetch" (ByVal hstmt As Long) As Integer
Declare Function oSQLGetCursorName Lib "odbc32.dll" _
Alias "SQLGetCursorName" (ByVal hstmt As Long, _
ByVal szCursor As String, ByVal cbCursorMax As Integer, _
converted to PDF by HupBaH9I