Количество записей в таблице...

← →
Брат © (2002-11-18 16:20) [0]

Люди! Пытаюсь перегнать данные из одной таблицы в другую. Не получается... В исходной таблице 594 записи, а оно мне переганяет только первые 15. В пошаговом режиме RecordCount показывает только 15. Почему? Код как-будто бы правильный...:
....
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
ibtable1.First;
ibTable2.EmptyTable;
for i:=0 to ibTable1.RecordCount-1 do
begin
ibtable2.Insert;
ibtable2.FieldByName("VCode").AsInteger:=
ibtable1.FieldByName("VCode").AsInteger;
ibtable2.FieldByName("Name").AsString:=
ibtable1.FieldByName("Name").AsString;
ibtable2.Post;
ibtable1.Next;
end;
end;
....
Может быть можно узнать количество записей другим способом?

← →
Андрей Прокофьев © (2002-11-18 16:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
ibtable1.Last;
ibtable1.First;
ibTable2.EmptyTable;
for i:=0 to ibTable1.RecordCount-1 do
begin
...

или
ibtable1.First;
ibTable2.EmptyTable;
while not ibTable1.Eof do
begin
ibTable1.Next;
end;

← →
Prooksius © (2002-11-18 16:24) [2]

Самый быстрый способ: добавить
ibtable1.FetchAll; (ну или как там в IBX...)

Можно вместо:
for i:=0 to ibTable1.RecordCount-1 do
написать
while not ibTable1.eof do

← →
Alexandr © (2002-11-18 16:26) [3]

вот именно так.
в компонентах IBX
в recordCount не общее количество записей (как в BDE)
а отфетченное, и если нужно общее количество, то надо отфетчить все (в BDE оно само отфетчится при необходимости)

← →
Брат © (2002-11-18 16:28) [4]

Спасибо братья!!! Все способы работают!!! ;-)))

← →
SaS13 © (2002-11-18 16:28) [5]

2 запроса:
delete from table2
insert into table2 (vcode, name) select vcode, name from table1

это что, типа братья по-разуму?
Слыш, брат, ты другие слова-то знаешь?

> это что, типа братья по-разуму?
> Слыш, брат, ты другие слова-то знаешь?

знаю, брат, а какие тебя интересуют?

все. Достал.
Я этого юзера у себя блокирую.

Количество записей в таблице... Найти похожие ветки