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

Перекачка даных с одной базе на другой в рантайм   Найти похожие ветки 

← →
NDeu ©   (2003-02-20 15:51) [0]

У меня эст MyBaseSource.gdb и MyBaseTarget.gdb. Обо они SQLDialect 3.
У каждая эст тейбл MyTable
Я делаю примерно так:
IBDataSet_Source.SelectSQL.Text:="select Field1,...,Fieldn from MyTable";
IBSQL_Target.SQL.Text:="insert into MyTable (Field1,...,Fieldn) values (:Field1,...,:Fieldn)";
IBDataSet_Source.Open;
while not IBDataSet_Source.EOF
do begin
For i:=0 to IBDataSet_Source.FieldCount-1 do
IBSQL_Target.Params[i].Value:=IBDataSet_Source.Fields[i].Value;
IBSQL_Target.ExecQuery;
IBDataSet_Source.Next;
end;

Проблема: Когда Type Field-а Numeric(10,0) и больше 10 в MyBaseTarget эти филды имеют value=null!!!

Вопрос: 1.Как с этим боротся?
2.Можно ли сделат перекачки не тоская вес набор на клиенте?

Спасиба на отклик!

---

← →
AlexSerp ©   (2003-02-20 17:01) [1]

IBSQL_Target.DataSource :=IBDataSet_Source.DataSource
И в цикле это все сделай.
Перед циклом IBSQL_Target.Prepare, после IBSQL_Target.UnPrepare
И не надо будет параметры подпихивать.

Саня

---

← →
AlexSerp ©   (2003-02-20 17:03) [2]

Немножко ошибся.
IBSQL_Target.DataSource :=DataSource, который связан с IBDataSet_Source.

Саня

---

← →
NDeu ©   (2003-02-20 17:52) [3]

AlexSerp © (20.02.03 17:03)
Когда Type Field-а Numeric(10,0) и больше 10 дает Unsupported feature :(
Беда кажется, в том, что Delphi5 не поддерживает этот Type

---

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

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



Память: 0.45 MB
Время: 0.01 c