Управление базами данных Access на VBA - eDrive

15
adLockPessimistic — пессимистическая блокировка, adLockOptimistic —
оптимистическая блокировка, adLockBatchOptimistic — с кэшированием
изменений в наборе; Options — характеристика Source: adCmdText —
инструкция SQL, adCmdTable — SQL-запрос ко всем записям таблицы,
adCmdTableDirect — таблица или запрос, adCmdUnknown — без указания
параметра, adCmdFile — файл с набором записей.
Объект Command служит для выполнения запросов. В качестве
источника данных запроса может задаваться таблица или SQL-инструкция,
серверное представление или хранимая процедура. Его свойство
CommandType при этом принимает одно из значений: adCmdUnknown —
неизвестный, по умолчанию, adCmdText — запрос или хранимая процедура,
adCmdTable — таблица для запроса, adCmdTableDirect — непосредственно
открываемая таблица, adCmdStoredProc — хранимая процедура на сервере,
adCmdFile — файл с набором записей.
Примеры
Sub ТекущееСоединениеADO ()
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
MsgBox cnn.ConnectionString
If cnn.State = adStateClosed Then
MsgBox "Нет подключения"
Else
MsgBox "Подключение есть"
End If
Set cnn = Nothing
End Sub
Sub Соединение1ADO ()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open _
"Provider=SQLOLEDB; Data Source=srv; Initial Catalog=pubs;" & _
"DataBase=базаДанных; User Id=sa; Password=;"
MsgBox cnn.ConnectionString
If cnn.State = adStateClosed Then
MsgBox "Нет подключения"
Else
MsgBox "Подключение есть"
End If
cnn.Close
End Sub
Sub Соединение2ADO ()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Provider = "SQLOLEDB"
cnn.Properties ("DataSource") = "Источник"