Как извлечь номер текущей записи из Recordset

[AHTOXA]

Проблема такая:
1) нужно узнать номер текущей записи (в recordset не нашел ни метода, ни свойства, которое бы за это отвечало)?
2) как добавить запись в, чтобы она помещалась не в конец recordset, а на определенную позицию?

[skiperski]

1) нужно узнать номер текущей записи (в recordset не нашел ни метода, ни свойства, которое бы за это отвечало)?

rs.AbsolutePosition

2) как добавить запись в, чтобы она помещалась не в конец recordset, а на определенную позицию?

По-моему, так не сделать. Но можно попробовать после добавления записи вызывать метод Requery.

[RayShade]

1. RecordSet.AbsolutePosition

2. RecordSet.AbsolutePosition = номер записи после которой надо что то вставить

Recordset.AddNew

[AHTOXA]

Спасибо за ответ

[AHTOXA]

recordset.AbsolutePosition = adPosUnknown и че с этим делать. Да и recordset.RecordCount = -1, может когда открываешь RecordSet надо какие-то параметры указать (у меня открывается так:

rs.Open "select * from MeterReadings Order By DateReg, TimeReg", SQLCON, adOpenDynamic, adLockOptimistic

)?

[alibek]

Открывай, как Dynaset
Да, и если юзаешь SQL-сервер, то вначале установи курсор CursorLocation=adUseClient
У меня работает такой код:

Код: Выделить всё

rs.CursorLocation = adUseClient
rs.Open SQL, cnn, adOpenStatic, adLockReadOnly

[AHTOXA]

А если надо вставить запись перед 1 записью?

[alibek]

Это ведь не грид, а база данных.
Копируешь таблицу в буфер, очищаешь таблицу, вставляешь первую строку, вставляешь остальные строки из буфера.
А зачем? В БД никогда не стоит ссылаться на позицию записи в таблице. Если тебе надо использовать ссылку на строку, используй ключи.

[AHTOXA]

Мне это нужно для организации бинарного поиска по Таблице.

[AHTOXA]

так не пашет, вылетает с ошибкой "Object required":

RecordSet.AbsolutePosition = номер записи после которой надо что то вставить
Recordset.AddNew

[RayShade]

Ответь мне честно, ты вообще понимаешь ЧТО ты пишешь? Ну то есть в плане как бы это сказать, давно ли ты программируешь?

Потому что странно как то мне кажется, что ты не можешь понять что означает данная ошибка, это раз.



А два - надо понимать что под recordset имелось в виду поставленное для примера имя объекта. Его надо было заменить именем твоего рекордсета. То есть тем, который ты реально используешь.

[AHTOXA]

Отвечаю:
На бейсике программирую 2 недели, а так 2 года.
(Ответь мне честно, ты вообще понимаешь ЧТО ты пишешь? Ну то есть в плане как бы это сказать, давно ли ты программируешь?)

Ну облажался, с кем не бывает, но это чисто по невнимательности
из буфера вставил RecordSet.AbsolutePosition вместо того чтобы ручками написать - rs.AbsolutePosition
(А два - надо понимать что под recordset имелось в виду поставленное для примера имя объекта. Его надо было заменить именем твоего рекордсета. То есть тем, который ты реально используешь.)

А после вызова метода rs.AddNew, курсор автоматом перемещается на последнюю позицию.

[AHTOXA]

Разобрался как сделать, надо после открытия recordset написать
recordset.Sort = "....", и тогда запись будет добавлятся в соответсвии с сортировкой.

[alibek]

Ну не врубаюсь я... Ты делаешь бинарный поиск? Во-первых, тебе совершенно не нужно AbsolutePosition, достаточно RecordCount, делаешь .MoveFirst и .MoveNext RecordCount/2.
А во-вторых, ЗАЧЕМ?! Создаешь индекс и метод Seek найдет данных гораздо быстрее, чем твой самопальный бинарный поиск, поскольку: (1) он реализован в движке и (2) написан грамотно и без ошибок.

Разобрался как сделать, надо после открытия recordset написать recordset.Sort = "....", и тогда запись будет добавлятся в соответсвии с сортировкой.

Чушь. Запись всегда добавляется в конец таблицы. Просто после .Sort набор данных будет отсортирован.

[AHTOXA]

Да, я сделал бинарный поиск. И если бы можно было вставлять запись на любую позицию, то его скорость была бы на уровне встроенного поиска (по индексу он ведь тоже ищет с помощью бинарного поиска).
Да и написан он у меня грамотно и без ошибок.
В цикле я использовал .Move pos, а .AbsolutePosition мне нужен был для того чтобы вставлять запись куда угодно, но как я уже понял добавление возможно только в конец таблицы, так что я не использую .AbsolutePosition.

А если индекса нет и не предполагается чтобы он был?

А с тем что после добавления новой записи список будет отсортирован, полностью с тобой согласен(в общем-то я это и имел в виду - "в соответствии с сортировкой").

Метод Seek я так понял применяется для поиска данных в файле, причем тут поиск по базе данных?

[alibek]

Метод Seek используется для поиска по индексированным полям, пример его использования: rs.Seek "=", Value1, Value2