| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Базы данных и репортинг > База данных в dbf формате |
| Автор: viktor2000 9.12.2004, 15:38 |
| Задача в следующем: Нужно создать 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. |
| Автор: Guest 9.12.2004, 15:38 |
| Задача в следующем: Нужно создать 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. |