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

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

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

Конвертация базы из dBase в Paradox [D6, dBase, FoxPro, Paradox]

leonidus © (2004-08-20 08:54:00)
Мне надо переконвертировать базу из dBase в Paradox, для этого я создаю пустую таблицу Paradox и использую такой код:
Table1 - база dBase
Table2 - база Paradox

table1.First;
table2.First;table2.Edit;
for i:=0 to table1.RecordCount-1 do
begin
for j := 0 to table1.fieldCount-1 do
begin
st:= table1.fields[j].asString;
if (st<>'') and (st<>null) then begin
table2.Edit;
table2.fields[j].asString:=st;
end;
end;
table2.post;table2.next;
table1.next;
end;

При этом осуществляется перебор всей базы Table1 но в Table2 в результате оказывается только одна запись. В чем дело?

leonidus (2004-08-20 12:45:00) [1]
>Sergey13 большое спасибо, append - то что нужно.

Соловьев (2004-08-20 10:47:00) [2]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1092652929&n=1&web=1

Sergey13 (2004-08-20 10:36:00) [3]
Вместо Next Append. И немного логику циклов переделать надо.

leonidus (2004-08-20 10:32:00) [4]
>Соловьев я хочу обойтись без SQL.
>Sergey13 не понял мысль:
>Если ты упрешься лбом в стенку и сделаешь шаг вперед, ты >продвинешься?

Подскажите как приведенный код модифицировать, плиз!

Sergey13 (2004-08-20 10:23:00) [5]
2[2] leonidus (20.08.04 10:13)
>но я же после каждой добавленной записис делаю table2.post;table2.next;
Если ты упрешься лбом в стенку и сделаешь шаг вперед, ты продвинешься?

>Мне надо переконвертировать базу из dBase в Paradox
Шило на мыло меняем?

Соловьев (2004-08-20 10:21:00) [6]
Вообще-то нужно создать 2 алиаса - один на дбфку, другой на парадокс и простым запросом
insert into :Paradox_alias:table_name
select *
from :dbase_alias:table_name
добавить записи.
или на крайняк ButchMove

RDen (2004-08-20 10:17:00) [7]
>но я же после каждой добавленной записис делаю...
>что ж еще надо...

...еще нужно добавлять

leonidus (2004-08-20 10:13:00) [8]
>Такое ощущение,что в table2 не осуществляется Append
но я же после каждой добавленной записис делаю table2.post;table2.next;
что ж еще надо для записи данных в таблицу?

RDen (2004-08-20 09:25:00) [9]
> для этого я создаю пустую таблицу Paradox
Такое ощущение,что в table2 не осуществляется Append
:)

Наверх

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