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

20
.Open "Сотрудники", CurrentProject.Connection, _
adOpenDynamic, adLockPessimistic
.Find "Кто = 'Гуринов'"
.Fields ("Зачем") = "Отпуск"
.AddNew
.Fields ("Кто") = "Архипов"
.Update
.Close
End With
End Sub
Sub УдалениеADO ()
Dim rst As New ADODB.Recordset
rst.Open "Сотрудники", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
rst.Find "Кто = 'Гуринов'"
rst.Delete adAffectCurrent
rst.Update
rst.Close
End Sub
Public Sub УдалениеЗаписиADO()
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM Сотрудники " & _
"WHERE Сколько < 200", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
строка = rst.RecordCount & vbCr
Do While Not rst.EOF
строка = строка & rst!Кто & vbCr
rst.MoveNext
Loop
MsgBox строка
строка = UCase (InputBox ("Кого удалить"))
rst.Filter = "Кто = '" & строка & "'"
rst.Delete
rst.UpdateBatch
rst.Filter = adFilterNone
rst.Requery
строка = "После удаления осталось " & rst.RecordCount & vbCr
Do While Not rst.EOF
строка = строка & rst!Кто & vbCr
rst.MoveNext
Loop
MsgBox строка
rst.Close
End Sub
Sub ЗапросыADO ()
Dim набор As New ADODB.Recordset
набор.Open "Сотр", CurrentProject.Connection, adOpenStatic, adLockOptimistic
где = "Сколько < 200"
DoCmd.RunSQL _