Текущий архив: 2003.03.13;
Скачать: 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 вся ветка
Текущий архив: 2003.03.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
