Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Количество записей в таблице... [D6, IB6.x]

Брат © (2002-11-18 16:20:00)
Люди! Пытаюсь перегнать данные из одной таблицы в другую. Не получается... В исходной таблице 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;
....
Может быть можно узнать количество записей другим способом?

Alexandr (2002-11-19 05:59:00) [1]
все. Достал.
Я этого юзера у себя блокирую.

Брат (2002-11-18 16:44:00) [2]

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

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

Alexandr (2002-11-18 16:31:00) [3]
это что, типа братья по-разуму?
Слыш, брат, ты другие слова-то знаешь?

Брат (2002-11-18 16:28:00) [4]
Спасибо братья!!! Все способы работают!!! ;-)))

SaS13 (2002-11-18 16:28:00) [5]
2 запроса:
delete from table2
insert into table2 (vcode, name) select vcode, name from table1

Alexandr (2002-11-18 16:26:00) [6]
вот именно так.
в компонентах IBX
в recordCount не общее количество записей (как в BDE)
а отфетченное, и если нужно общее количество, то надо отфетчить все (в BDE оно само отфетчится при необходимости)

Prooksius (2002-11-18 16:24:00) [7]
Самый быстрый способ: добавить
ibtable1.FetchAll;(ну или как там в IBX...)

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

Андрей Прокофьев (2002-11-18 16:23:00) [8]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »