Dim dbs As DataBAse, qdfChangeTitles As QueryDef

End If

Else

RstOrders. MoveFirst

If rstOrders. NoMatch Then

End If

Else

RstOrders. MoveFirst

If rstOrders. NoMatch Then

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

Dim dbs As Database, rstNew As RecordSet, Qdf As QueryDef

Dim strQuerySQL As String

Dim dbs As Database, Rst As RecordSet

Создание переменной RecordSet

Для создания переменной RecordSet используется метод OpenRecordSet.

Set rstNew = dbs. OpenRecordSet (“Customers”, dbOpenDynaset),

где rstNew – объектная переменная - ссылка на объект – таблицу Customers, возвращаемый методом OpenRecordSet.

Этот метод доступен не толко для объекта Database, но и для объектов Connection, TableDef, QueryDef и существующих наборов RecordSet.

Например, создается объект RecordSet из сохраненного в текущей БД запроса.

Set dbs= OpenDatabase (“Nwind. mdb”)

Set rst = dbs. OpenRecordSet (“Сохраненный_Запрос”)

Или из нового запроса:

Set dbs=OpenDatabase (“Nwind.mdb”)

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

Set rst=dbs. OpenRecordSet (strQuerySQL)

или с помощью объекта QueryDef:

Set dbs= OpenDatabase (“Nwind.mdb”)

Set Qdf = dbs. CreateQueryDef (“”)

Qdf. Sql = “ Select * from Orders”

Set rstNew = Qdf. OpenRecordSet()

Для перемещения по набору записей используются методы MoveFirst, MoveLast, MoveNext, MovePrevious, Move [n].

MoveFirst - перемещает указатель записи на первую запись.

MoveLast - перемещает указатель на последнюю запись.

MoveNext - перемещает указатель на следующую запись.

MovePrevious - перемещает указатель на предыдущую запись.

Move [n] - перемещает указатель на запись с заданным номером.

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

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

Например: Найти в наборе rstOrders типа dynaset первую запись, для которой значение поля Name совпадает со строкой, введенной в текстовом поле txtDisplay

…..

rstOrders. FindFirst “Name = ‘ ” & txtDisplay1. Text & “ ’ “

MsgBox “ Нет такой записи”

TxtDisplay2. Text = rstOrders! Phone

……

Для набора типа Table поиск записи будет выглядеть следующим образом:

…

rstOrders. Index=“ Name”

strSeek = txtDisplay1. Text

rstOrders. Seek “ = “, strSeek

MsgBox “ Нет такой записи”

TxtDisplay2. Text = rstOrders! Phone

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

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

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

Например:

Set dbs = Open Database (“ Nwind.mdb”)

Set qdfChangeTitles=dbs. CreateQueryDef (“ “)

qdf ChangeTitles. SQL=“Update Employers Where Title = ‘Бухг’ ”

Дата добавления: 2014-12-10