DAO - AbsolutePosition ошибка!!!

[~Виктор~]

Пишу примерно так:

....
Public Транспорт As Recordset

PathProgram = App.Path

dbname = PathProgram & "\База.mdb"

tabname1 = "Транспорт"

Set crb = CreateWorkspace("", "admin", "", dbUseJet)
Set db = crb.OpenDatabase(dbname)
Set Транспорт = db.OpenRecordset(tabname1, dbOpenTable)

...

Транспорт.AbsolutePosition = 1


Вот на .AbsolutePosition и начинаются проблемы.
Программа сообщает об ошибке:
Операция не поддерживается для объектов этого типа

А мне пазарез нужно устоновливать текущую запись в БД в Абсолютную позицию.
Как с этим бороца?

[Viper]

Значит Транспорт не ест Recordset. Возможно проблема в отсутствии OPtion Explicit

[~Виктор~]

Попадробней пожалуйсто, OPtion Explicit что это и как осуществить его присудствие?

Транспорт есть Recordset я это обьявил в самом начале проге так:

Public Транспорт As Recordset

[GSerg]

~Виктор~, если русский язык для тебя не родной, укажи в профиле, откуда ты.
А рекордсет dbTable и не должен позиционироваться. Кури маны.

You can use the AbsolutePosition property to position the current record pointer to a specific record based on its ordinal position in a dynaset- or snapshot-type Recordset object.

[~Виктор~]

GSerg

Справка, которую надо читать, писал(а):
Вы можете использовать собственность AbsolutePosition, чтобы спозиционировать текущий указатель записи на специфической записи базировавшейся на своей порядковой позиции в dynaset- или кадре-типе Recordset объекта

И что? здесь сказано что в Recordset она должна работать.
У меня как раз Recordset'ы и используются...
Эта справка которую надо читать, никакой ясности не внесла.

Может как то по другому нужно открывать базу?
Объясните пожалуста как.

[alibek]

Ты открываешь рекордсет, как dbOpenTable. К нему AbsolutePosition неприменим (странно правда, почему). Открывай как dpOpenDynaset или dbOpenSnapshot. Если уж ты перевел, мог бы прочитать внимательнее.
Кроме того, советую указывать библиотеку при декларации объектных переменных, т.е. пиши Public Транспорт As DAO.Recordset.

[~Виктор~]

alibek

Спасибо за разъяснение, но после того как я загружаю базу

Set Транспорт = db.OpenRecordset(tabname1, dbOpenDynaset)

либо

Set Транспорт = db.OpenRecordset(tabname1, dbOpenSnapshot)

загружается только первая запись, т.е. в Транспорт получается только одна запись, а не вся база.

Как загрузить всю базу?

Я делаю так:

Set crb = CreateWorkspace("", "admin", "", dbUseJet)
Set db = crb.OpenDatabase(dbname)
Set Транспорт = db.OpenRecordset(tabname1, dbOpenSnapshot)

может что то в самом начале неверно у меня, типа не CreateWorkspace нужно использовать. Тогда что?

Помогите!

[alibek]

Этого не может быть.
Как ты определяешь, что загружается только первая запись?

[~Виктор~]

alibek Определял я следующим оброзом

Транспорт.RecordCount

у меня он равнялсо 1

Но я понял свою ошибку: перед использованием .RecordCount необходимо устоновить указатель в конец базы т.е.

Транспорт.MoveLast

а уж затем юзать

Транспорт.RecordCount

После этого фсё палучилос. Агромное тебе программисткое спасибо!!!