Скачать: CL | DM;

Конвертация базы из 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 не понял мысль:
>Если ты упрешься лбом в стенку и сделаешь шаг вперед, ты >продвинешься?

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

---

← →
Sergey13 ©   (2004-08-20 10:36) [7]

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

---

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c