Подсчет строк в БД

[nowmax]

Доброе утро всем
в принципе тема схожа с
http://www.programmersforum.ru/showthread.php?t=42791


так вот... имеется несколько вопросов...
пытался сделать подсчет записей в таблице с помощью счетчика... не получилось из-за описанной выше по ссылке проблеме... Ладно... отказался сразу от этого...
PS база данных MS Access


но возникли другие вопросы:
1) каким образом можно произвести подсчет записей в таблице???

далее после подсчета записей я генерирую массив n=<записей в таблице
n- массив из уникальных (несовпадающих) чисел

далее след вопрос:
2) могу ли я перемещаться по записям не последовательно... т.е. именно по записям которые сгенерированы в массиве...

например массив [1,4,6,45]
при нажатии на кнопку "далее" программа переходит на 1, потом 4, потом 6, потом 45 запись

заранее спасибо за ответы

[Антон Ю.Б.]

nowmax, а Help и Google совсем бессильны оказались перед Вашими запросами?

а) свойство RecordCount или select count(*) from ...
б) метод Locate

[Vova20years]

я решил проблему с того поста!!http://www.programmersforum.ru/showthread.php?t=42791

procedure TForm1.Button2Click(Sender: TObject);
var i,n: integer;
begin
i:=1;
adobase.delete;
adobase.first;
while not adobase.Eof do  begin
adobase.edit;
adobase.fields[0].asinteger := i;
i := i+1;
adobase.post;
adobase.Next;
end;

[Антон Ю.Б.]

Vova20years, это простенькое решение может быть еще короче - я Вам описывал это в пунктах 1-2 ответа в предыдущей ветке. Но у этого решения есть один недостаток, ради которого и нужен пункт 3) или альтернативные решения - само значение счетчика не изменится. Если вы после удаления из таблицы с 10 записями сделаете то, что описали, то при вставке новой записи она получит все равно номер 11, а не ожидаемый 10. Можно, конечно, попробовать и это обработать, но тогда не оч понятно - зачем Вам вообще поле типа счетчик? Используйте обычное целое. На BeforeInsert выставляйте в глобальную переменную значение RrcordCount, а при вставке определяйте им+1 это самое целочисленное поле вставляемой записи.

[nowmax]

var
s1: integer;
begin
    s1:= datamodule5.ADOTable1.RecordCount;
    Memo2.Lines.Add(inttostr(s1));
    end;

все норм работает... Антон Ю.Б. прав был)))

а вот с методом Locate разбираюсь еще...

Если захотите разобраться поглубже, просто сделайте поиск по форуму со словом "Locate".

[SERG1980]

На счёт второго вопроса можно посмотреть метод MoveBy()

Пример Adotable1.MoveBy(45); переход к записи №45

[Stilet]

переход к записи №45

Только в том случае если ты стоиш вначале.
Если же нет то нужна корректировка ибо этот метод переходит на N записей относительно текущей записи - это следует учесть.