Board index » delphi » Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)

Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)

Hi
When transfer estimates 20000'th record IBerror message "Out of memory"
appears. My code:

IBQuery1.Open;
   Mstable1.Open;
   Mstable1.Edit;

   Mstable1.First;
   IBQuery1.First;
   try
   while not IBQuery1.Eof do
   begin
           Mstable1.Append;
           Mstable1.FieldByName('npd').AsString :=
IBQuery1.FieldByName('npd').AsString;
           Mstable1.FieldByName('dtpd').AsDatetime :=
IBQuery1.FieldByName('dtpd').AsDatetime;
           Mstable1.FieldByName('dmfo').AsString :=
IBQuery1.FieldByName('dmfo').AsString;
           Mstable1.FieldByName('dacc').AsString :=
IBQuery1.FieldByName('dacc').AsString;
           Mstable1.FieldByName('cmfo').AsString :=
IBQuery1.FieldByName('cmfo').AsString;
           Mstable1.FieldByName('cacc').AsString :=
IBQuery1.FieldByName('cacc').AsString;
           Mstable1.FieldByName('amount').AsFloat :=
IBQuery1.FieldByName('amount').AsFloat;
           Mstable1.FieldByName('crnc').AsString :=
IBQuery1.FieldByName('codecurr').AsString;
           Mstable1.FieldByName('remark').AsString :=
IBQuery1.FieldByName('remark').AsString;

           IBQuery1.Next;
           Mstable1.Next;

    end;

   finally
   Application.MessageBox('Alert !!!','AlertMessage',0);
   end;

What can I do with it ? Or maybe anybody knows another way to transfer data
between servers ?..

 

Re:Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)


TRy putting it in unidirectional mode.  Your client machine doesn't have enough
memory to locally cache everything even though you do not need it.

Quote
Igor Tereshchenko wrote:

> Hi
> When transfer estimates 20000'th record IBerror message "Out of memory"
> appears. My code:

> IBQuery1.Open;
>    Mstable1.Open;
>    Mstable1.Edit;

>    Mstable1.First;
>    IBQuery1.First;
>    try
>    while not IBQuery1.Eof do
>    begin
>            Mstable1.Append;
>            Mstable1.FieldByName('npd').AsString :=
> IBQuery1.FieldByName('npd').AsString;
>            Mstable1.FieldByName('dtpd').AsDatetime :=
> IBQuery1.FieldByName('dtpd').AsDatetime;
>            Mstable1.FieldByName('dmfo').AsString :=
> IBQuery1.FieldByName('dmfo').AsString;
>            Mstable1.FieldByName('dacc').AsString :=
> IBQuery1.FieldByName('dacc').AsString;
>            Mstable1.FieldByName('cmfo').AsString :=
> IBQuery1.FieldByName('cmfo').AsString;
>            Mstable1.FieldByName('cacc').AsString :=
> IBQuery1.FieldByName('cacc').AsString;
>            Mstable1.FieldByName('amount').AsFloat :=
> IBQuery1.FieldByName('amount').AsFloat;
>            Mstable1.FieldByName('crnc').AsString :=
> IBQuery1.FieldByName('codecurr').AsString;
>            Mstable1.FieldByName('remark').AsString :=
> IBQuery1.FieldByName('remark').AsString;

>            IBQuery1.Next;
>            Mstable1.Next;

>     end;

>    finally
>    Application.MessageBox('Alert !!!','AlertMessage',0);
>    end;

> What can I do with it ? Or maybe anybody knows another way to transfer data
> between servers ?..

--
Jeff Overcash (TeamB)
      (Please do not email me directly unless  asked. Thank You)
If there is somebody up there could they throw me down a line.  Just a
little helping hand just a little understanding.  Just some answers to the
questions that surround me now.  If there's somebody up there could
they throw me down a line.               (Fish)

Re:Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)


"Jeff Overcash (TeamB)" <jeffoverc...@mindspring.com> ???????/???????? ?
???????? ?????????: news:3E7F11CE.1BCC0BD8@mindspring.com...

Quote
> TRy putting it in unidirectional mode.

How ???

Re:Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)


Quote
Igor Tereshchenko wrote:
> "Jeff Overcash (TeamB)" <jeffoverc...@mindspring.com>
> ???????/???????? ?  ???????? ?????????:
> news:3E7F11CE.1BCC0BD8@mindspring.com...
> > TRy putting it in unidirectional mode.
> How ???

        Set the UniDirectional property TRUE.

        -Craig

--
Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH
Delphi/InterBase Weblog : http://delphi.weblogs.com
InterBase Perf. Monitor : http://delphi.weblogs.com/IBPerformanceMonitor
InterBase PLANalyzer 1.1: http://delphi.weblogs.com/IBPLANalyzer

Re:Error when transfering data from IBTable to MSSQLTable (MSSQL Server 2000)


"Craig Stuntz [TeamB]" <cstu...@vertexsoftware.com> /
: news:3e7f1bee@newsgroups.borland.com...

Quote

> Set the UniDirectional property TRUE.

Thanks. Now works.

Other Threads