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

11
tdf2.FindFirst "Кто = 'Алексеев'"
End Sub
Sub ЗаписиDAO ()
Set базаДанных = CurrentDb
строкаSQL = "SELECT * FROM Таблица1 WHERE Фирма LIKE 'I*'"
Set результатЗапроса = базаДанных.OpenRecordset (строкаSQL)
результатЗапроса.MoveFirst
MsgBox результатЗапроса.Fields (0) & " - " & результатЗапроса.Fields (2)
где = "Фирма = 'Intel'"
результатЗапроса.FindFirst где
MsgBox результатЗапроса.Fields (0) & " - " & результатЗапроса.Fields (2)
результатЗапроса.FindNext где
MsgBox результатЗапроса.Fields (0) & " - " & результатЗапроса.Fields (2)
результатЗапроса.MoveLast
MsgBox результатЗапроса.RecordCount
End Sub
Sub ОбновлениеЗаписей ()
Set rst = CurrentDb.OpenRecordset ("Таблица1")
где = "Фирма = 'Intel'"
DoCmd.RunSQL _
"UPDATE Таблица1 SET Цена = 5 WHERE NТовара=2"
DoCmd.RunSQL _
"UPDATE Таблица1 SET Фирма = 'LG' WHERE " & где
DoCmd.RunSQL _
"UPDATE Таблица1 SET Фирма = 'Zilog' WHERE " & _
"Фирма = 'LG'"
rst.Close
Set rst = Nothing
End Sub
Sub АнализЗаписей ()
Set db = CurrentDb
Set rst = db.OpenRecordset ("Таблица1", dbOpenDynaset)
где = "Фирма = 'Intel'"
rst.MoveFirst
rst.FindFirst где
If rst.NoMatch = False Then MsgBox "Фирма есть в этой таблице"
rst.FindNext где
If rst.NoMatch Then MsgBox "Фирма только одна"
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
End Sub
Sub СписокБазыДанных ()
Set текущаяБазаДанных = CurrentDb
Set рабочаяОбласть = DBEngine.Workspaces(0)
Set новаяБазаДанных = рабочаяОбласть.CreateDatabase _
("Студенты.mdb", dbLangGeneral)