FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ADO RDD xHarbour
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Fri Mar 20, 2015 03:46 PM

Antonio,

What func calls the ADO_ORDDESTROY ?

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Fri Mar 20, 2015 04:18 PM

Antonio,

Place an error in ADO_ORDDESTROY() and you will see the calls stack list

in example, write:
x++

it will error and you will see what function calls it

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Fri Mar 20, 2015 06:44 PM

Antonio,

Where is information about the controling index in ADO RDD ?

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Fri Mar 20, 2015 09:39 PM

The controlling index is set in the ADO recordset:

oRecordSet:Index := aOrderInfo[ UR_ORI_BAG ]

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sat Mar 21, 2015 12:47 PM

Antonio,

I needed an VAR to save the controling index.
All indexes are "virtual" they really dont exist as files in ADORDD.
The indexes are SELECTs
Its solved. :D

Now I need to know RDD function to DBRLOCKLIST()

What is aLockInfo[ UR_LI_METHOD ] := DBLM_MULTIPLE ?

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Sat Mar 21, 2015 09:20 PM
Antonio,

Very good, you are progressing :-)

have a look at this:
http://www.ousob.com/ng/53tecref/ng42f2a.php
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sat Mar 21, 2015 10:45 PM

Antonio,

Ok got it!

How can I have DBRLOCKLIST() to work?

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 07:13 AM
Antonio,

See how it is implemented in Harbour:

Code (fw): Select all Collapse
HB_FUNC( DBRLOCKLIST )
{
   AREAP pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();

   if( pArea )
   {
      PHB_ITEM pList = hb_itemArrayNew( 0 );
      SELF_INFO( pArea, DBI_GETLOCKARRAY, pList );
      hb_itemReturnRelease( pList );
   }
   else
      hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, HB_ERR_FUNCNAME );

}
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 07:55 AM

Antonio,

Sorry didnt catch it.

I'm not familiar with harbour C ext.

Where can I keep the locklist array updated in adordd everytime ADO_LOCK and ADO_UNLOCK are called?

Locks dont really exist in the files its only for record position information.

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 08:12 AM

Antonio,

In that C code an array is created and filled with an array (DBI_GETLOCKARRAY)

The question here is: Does it have sense to talk about this in ADO ? Do we just return an empty array ?

Are we going to need those locks positions ? I guess no

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 08:34 AM

Antonio,

Its absolutly necessary to keep the locklist array.

In transactions we lock and append all necessary records and then we loop trough the locklist with dbgoto to make all replaces. If a lock fails the transaction fails.

Altough with ADO never fails as real locks dont matter we still need to have it filled with bookmarks to return to each record later.

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 08:47 AM

Antonio,

ok, you can save them using bookmarks, yes

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 08:53 AM

Antonio,

I need your support here because I still dont know how to do it.

Regards

Antonio H Ferreira
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 09:19 AM

Antonio,

Please post your most recent adordd.prg file and I review it, thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM

Re: ADO RDD xHarbour

Posted: Sun Mar 22, 2015 09:40 AM

Antonio,

Sent to your email.

Regards

Antonio H Ferreira