Курсор-адаптер в Microsoft Visual FoxPro

Класс

CursorAdapter

поддерживает обработку курсоров VFP, а также ODBC, ADO и XML.

Курсор, открываемый CursorAdapter, – это всегда буферизованный курсор. По умолчанию выбирается оптимистическая буферизация записи.

Пример. Создается курсор типа "Native" и устанавливаются значения его свойств. При выполнении метода CursorFill выполняется команда, хранимая свойством SelectCmd.

public oCursor

close databases all

open database d:\HomeLibrary\HomeLibrary

use Authors in 0

&& Установка необходима при работе с буферизованными таблицами

set multilocks on

&&

oCursor = NewObject('CursorAdapter')

oCursor.DataSourceType = 'Native'

oCursor.CursorSchema = 'Author C(50), AuthorId I, InputDate D, Information M'

&& Источник данных

oCursor.Tables = 'Authors'

&& Команда, выполняемая при вызове метода CursorFill

oCursor.SelectCmd = 'select * from Authors'

oCursor.KeyFieldList = 'AuthorId'

&& Обновляемые поля и их имена

oCursor.UpdatableFieldList = 'Author, AuthorId, InputDate, Information '

oCursor.UpdateNameList = 'Author Authors.Author, AuthorId Authors.AuthorId, ;

InputDate Authors.InputDate, Information Authors.Information'

&& Курсор будет открыт с псевдонимом AuSelect

oCursor.Alias = 'AuSelect'

&& Заполняем курсор

oCursor.CursorFill

&& Зпрещаем добавление записей в созданный курсор

oCursor.AllowInsert = .F.

Освободит объект курсор-адаптер oCursor и закроет курсор AuSelect команда

release oCursor

Функция

GETCURSORADAPTER([cAlias])

возвращает ссылку на объект CursorAdapter, ассоциированный с курсором, открытым в текущей рабочей области, или с курсором под именем cAlias.

Об объекте CursorAdapter см. в справке тему CursorAdapter class.