Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Dim dbs As Database, Rst As RecordSet

Set dbs=OpenDatabase (“Nwind.mdb”

[ Set rst = dbs.OpenRecordSet (“Сохраняет_Запрос”)] или если сохранение запроса не существует

Dim strQuerySQL As String

Set dbs=OpenDatabase (...

StrQuerySQL=“Select * From Products”_ & “Order by ProductName”

Set rst=dbs.OpenRecordSet (strQuerySQL)

Перемещение по набору записей

Методы MoveFirst, MoveLast, MoveNext, MovePrevious - перемещает указатель.

Move [n]

Переделы набора записей определяется свойствами BOF и EOF, количество записей свойством - RecordCount.

Найти определенную запись в наборе можно с помощью метода Seek (для
Table) и Find (dynaset, snapshop): FindFirst, FindLast, FindNext,
FindPrevious.

Например rstOrderDetails.Find “Order ID= ” & rstOrders.[Order ID] - для первой записи в Orders найти .... запись в OrderDetails

rst Suppliers.Index=“CompanyName” rst Suppliers.Seek “=” str CompanyNAme

If rst Suppliers. NoMatch Then ...

(используется текущий индекс таблицы, определенной свойством Index).
Свойство NoMatch используется для проверки найденной записи, критерий поиска.

После создания объекта RecordSet типа table или dynaset в переменной можно удавлять или добавлять, модифицировать новые записи (Update, Delete,
AddNew).

.... модификации намного эффективнее с помощью запросов SQL.

Dim dbs As DataBAse, qdfChangeTitles As QueryDef

Set dbs = Open Database (‘ Nwind.mbb)

Set qdfChangeTitles=dbs.Create QueryDef (“ “) qdf ChangeTitles.SQL=“Update Employers” & “Where Title = ‘Бухг’”

После извлечения записи можно обращаться к ее отдельным полям через коллекцию Fields объекта RecordSet по его свойству Name (имя столбца в таблицк) rst Employers.Fields (“LastName”) или rstEm.LastName или rstEm.Fields(0) - индексом в коллеции

Типы данных объекта Field: dbChar, bdByte, dbDouble, dbInteger, dbSingle, dbLong, dbText.

При работе с данными Field используется его свойство Value.

Sub Change Title( ) rstEmployces.LastName.Value=strName

Рекомендуем скачать другие рефераты по теме: бесплатные рефераты без регистрации, доклад по истории на тему.



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки