Форум: "Базы";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизКоличество записей в таблице... Найти похожие ветки
← →
Брат (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
← →
Alexandr (2002-11-18 16:31) [6]это что, типа братья по-разуму?
Слыш, брат, ты другие слова-то знаешь?
← →
Брат (2002-11-18 16:44) [7]
> это что, типа братья по-разуму?
> Слыш, брат, ты другие слова-то знаешь?
знаю, брат, а какие тебя интересуют?
← →
Alexandr (2002-11-19 05:59) [8]все. Достал.
Я этого юзера у себя блокирую.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c