Конвертация базы из dBase в Paradox

← →
leonidus (2004-08-20 08:54) [0]

Мне надо переконвертировать базу из 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 в результате оказывается только одна запись. В чем дело?

← →
RDen (2004-08-20 09:25) [1]

> для этого я создаю пустую таблицу Paradox
Такое ощущение,что в table2 не осуществляется Append
:)

← →
leonidus (2004-08-20 10:13) [2]

>Такое ощущение,что в table2 не осуществляется Append
но я же после каждой добавленной записис делаю table2.post;table2.next;
что ж еще надо для записи данных в таблицу?

← →
RDen (2004-08-20 10:17) [3]

>но я же после каждой добавленной записис делаю...
>что ж еще надо...

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

← →
Соловьев © (2004-08-20 10:21) [4]

Вообще-то нужно создать 2 алиаса - один на дбфку, другой на парадокс и простым запросом
insert into :Paradox_alias:table_name
select *
from :dbase_alias:table_name
добавить записи.
или на крайняк ButchMove

← →
Sergey13 © (2004-08-20 10:23) [5]

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

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

← →
leonidus (2004-08-20 10:32) [6]

>Соловьев я хочу обойтись без SQL.
>Sergey13 не понял мысль:
>Если ты упрешься лбом в стенку и сделаешь шаг вперед, ты >продвинешься?

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

Вместо Next Append. И немного логику циклов переделать надо.

http://delphimaster.net/view/3-1092652929/&web=1

← →
leonidus (2004-08-20 12:45) [9]

>Sergey13 большое спасибо, append - то что нужно.

Конвертация базы из dBase в Paradox Найти похожие ветки