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

16
cnn.Properties ("DataBase") = "базаДанных"
cnn.Properties ("UserId") = "Пользователь"
cnn.Properties ("Password") = "Пароль"
cnn.Open
MsgBox cnn.ConnectionString
If cnn.State = adStateClosed Then
MsgBox "Нет подключения"
Else
MsgBox "Подключение есть"
End If
cnn.Close
End Sub
Sub ДоступКПолямADO ()
Dim rst As New ADODB.Recordset
rst.Open "Сотрудники", CurrentProject.Connection
For i = 0 To rst.Fields.Count - 1
temp = temp & rst.Fields(i).Name & vbCr
Next
MsgBox "Всего полей: " & Str(rst.Fields.Count) & vbCr & temp
End Sub
Sub СвойстваADO ()
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties ("Data Source") = "D:\ Кадры.mdb"
cnn.Open
rst.CursorType = adOpenStatic
rst.Open “Сотрудники”, cnn
' вот как можно узнать все свойства класса
For i = 0 To cnn.Properties.Count - 1
Debug.Print cnn.Properties (i).Name
Next
End Sub
Public cnnXLS As New ADODB.Connection, _
cnnMDB As New ADODB.Connection, _
cnnDBF As New ADODB.Connection
Public rstXLS As New ADODB.Recordset, _
rstMDB As New ADODB.Recordset, _
rstDBF As New ADODB.Recordset
Sub Соединения ()
Отключение
cnnXLS.Open "DBQ=D:\ Сотрудники.xls;Driver={Microsoft Excel Driver (*.xls)}"
RSTOpen "Сотрудники", cnnXLS, rstXLS
cnnDBF.Open "DBQ=D:\;Driver={Microsoft dBase Driver (*.dbf)}"
RSTOpen "T", cnnDBF, rstDBF