VPF::База данных в dbf формате - Форум программистов

viktor2000

Дата 9.12.2004, 15:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Задача в следующем: Нужно создать dbf файл с такими параметрами
L_scet Numeric 14,0 Summa numeric 14,2 Character 12

после этого нужно сделать выборку из другого dbf файла и вписать данные в файл с такими параметрами L_scet Numeric 14,0 Summa numeric 14,2 Character 12

Как решалась эта задача через адо я читаю дбф - далее пытаюсь внести данные в таблицу с параметрами( L_scet Numeric 14,0 Summa numeric 14,2 Character 12)- таблица заранее создана в фоксе. Ругается делфи -Table ia busy.

вот код а чем проблема?

Код

 begin
table1.Active:=False;
table1.EmptyTable;
while not Query1.Eof
do
begin

table1.insert;
Table1.Fields[0]:=Query1.Fields[0];
Table1.FieldByName('L_schet').Asinteger:=Strtoint(Query1.FieldByName('Prim').AsString);
Table1.Fields[2]:=Query1.Fields[2];
Query1.next;
end;
end;

end.

Это сообщение отредактировал(а) Vit - 9.12.2004, 16:32

Vit

Дата 9.12.2004, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Как минимум Post нужен:

Код


table1.insert;
Table1.Fields[0]:=Query1.Fields[0];
Table1.FieldByName('L_schet').Asinteger:=Strtoint(Query1.FieldByName('Prim').AsString);
Table1.Fields[2]:=Query1.Fields[2];
Table1.Post;
Query1.next;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Akella

Дата 18.12.2004, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

а зачем после insert вызывать next вообще? smile

Bes

Дата 20.12.2004, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

Ммм... вообще наверное лучше решать через квери по-моему, не будет проблем с постами и пр.

Akella

Дата 20.12.2004, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

и еще, попробуй запускать программу без среды программирования, т.е. закрываешь Delphi, выводишь ярлык на раб.стол и запускаешь программу.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »