Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
12<br />
Set другаяБазаДанных = рабочаяОбласть.OpenDatabase _<br />
("ФирмаГодПрезидент")<br />
For Each базаДанных In рабочаяОбласть.Databases<br />
список = список & Chr (13) & базаДанных.Name<br />
Next базаДанных<br />
MsgBox список<br />
End Sub<br />
Sub СписокПолей ()<br />
Set db = CurrentDb<br />
Set tdf = db!Таблица1<br />
For Each fld In tdf.Fields<br />
строка = строка & Chr (13) & fld.Name<br />
Next fld<br />
MsgBox строка<br />
End Sub<br />
Sub Заме<strong>на</strong>Данных ()<br />
Set объект = CurrentDb.OpenRecordset ("Товары", dbOpenDynaset)<br />
критерий = "NТовара = 1"<br />
объект.FindFirst критерий<br />
Do Until объект.NoMatch<br />
With объект<br />
.Edit<br />
.NТовара = 333<br />
.Update<br />
.FindNext критерий<br />
End With<br />
Loop<br />
объект.Close<br />
Set объект = Nothing<br />
End Sub<br />
Sub ЧтениеДанных ()<br />
‘ В <strong>Access</strong> для загрузки в массив строк объекта Recordset<br />
‘ используется метод GetRows<br />
Set объект = CurrentDb.OpenRecordset("Товары")<br />
массив = объект.GetRows (объект.RecordCount)<br />
For Each элемент In массив<br />
строка = строка & элемент & chr (13)<br />
Next<br />
MsgBox строка<br />
End Sub<br />
Sub ПравкаТаблицDAO ()<br />
Set таблица = CurrentDB.OpenRecordset ("Таблица1")<br />
таблица.MoveFirst<br />
таблица.Edit<br />
таблица.Fields (Фирма) = "SCAN"<br />
таблица.Fields (Год) = 2005<br />
строкаSQL = "UPDATE Таблица1 SET NТовара = 22 " _