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

18
cnn.Open "DBQ=D:\;Driver={Microsoft dBase Driver (*.dbf)}"
With rst
.Open "Сотрудники", cnn
For i = 0 To .Fields.Count - 1
temp = temp & .Fields (i).Name & " "
Next
temp = temp & vbCr
Do While Not .EOF
For i = 0 To .Fields.Count - 1
temp = temp & rst.Fields (i) & " "
Next
temp = temp & vbCr
.MoveNext
Loop
MsgBox "Всего в " & .Source & " полей: " & .Fields.Count & _
vbCr & "Всего записей: " & .RecordCount & vbCr & temp
End Sub
Sub ПозиционированиеADO ()
Dim rst As New ADODB.Recordset
rst.Open "Сотрудники", CurrentProject.Connection, adOpenStatic
Do While Not rst.EOF
строка = rst!Кто & " " & rst.AbsolutePosition & _
" из " & rst.RecordCount
If MsgBox (строка, vbOKCancel) = vbCancel Then Exit Do
rst.MoveNext
Loop
End Sub
Sub ОбъектCommand ()
Dim rst As ADODB.Recordset, cmd As ADODB.Command
Dim строка As String, счетчик As Integer
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = _
"SELECT Кто, Сколько FROM Сотрудники WHERE Сколько>1100"
rst.CursorLocation = adUseClient
Set rst = cmd.Execute ()
Do While Not rst.EOF
счетчик = счетчик + 1
строка = строка & Str (счетчик) & " " & rst!Кто & " " & rst!Сколько & vbCr
rst.MoveNext
Loop
MsgBox строка & "Всего: " & счетчик
rst.Close
Set cmd = Nothing
End Sub
Для изменения данных следует сначала сделать запись текущей. В
модели ADO изменения данных программируются проще, чем в DAO, так