Page 7 of 70
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 10:30 amby Antonio Linares
Antonio,
Your code looks fine. What is missing ?
If you don't mind I am going to share your version so other users may try it too, thanks
https://bitbucket.org/fivetech/fivewin-contributions/downloads/adordd.prg
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 10:33 amby AHF
Antonio,
Dbrocklist() returns zero
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 10:57 amby Antonio Linares
Antonio,
Please place a MsgInfo() in function ADO_ORDINFO() and check if it is shown when you call to Dbrlocklist()
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 11:19 amby AHF
Antonio,
I did that already.
Dbrlocklist doesnt call ado_ordinfo.
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 11:41 amby AHF
Antonio,
Dbrlocklist is a area/table related information and not index.
I think drblocklist is calling dbinfo with the corresponding #define.
When we open a recorset we load to UR_SUPER_OPEN( nWA, aOpenInfo ) all openinfo.
Can we do something of the kind with locks and unlocks to keep locklist always updated?
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 11:43 amby Antonio Linares
Antonio,
Yes, you are right, it is DbInfo()
What we are not going to lock any records, so what do you need that for ?
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 12:00 pmby AHF
AHF wrote: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.
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 3:23 pmby Antonio Linares
Antonio,
So the array that you have to return is aWdata[ WA_LOCKLIST ]
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 3:55 pmby AHF
Antonio,
Yes thats the array I created for that porpose and its already updated by ado_lock and ado_unlock.
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 5:40 pmby Antonio Linares
Can't you return it from DbInfo() ?
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 6:31 pmby AHF
Antonio,
No. The problem is that I must pass somewhere the locklist array that I build but dont know where and how.
I dont have any other rdd.prg source to check it out.
Re: ADO RDD xHarbour
Posted:
Sun Mar 22, 2015 9:53 pmby Antonio Linares
See the source code for dbinfo():
- Code: Select all Expand view
HB_FUNC( DBINFO )
{
AREAP pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
if( pArea )
{
PHB_ITEM pIndex;
pIndex = hb_param( 1, HB_IT_NUMERIC );
if( pIndex )
{
PHB_ITEM pInfo = hb_itemNew( hb_param( 2, HB_IT_ANY ) );
SELF_INFO( pArea, ( HB_USHORT ) hb_itemGetNI( pIndex ), pInfo );
hb_itemReturnRelease( pInfo );
}
else
hb_errRT_DBCMD( EG_ARG, EDBCMD_DBINFOBADPARAMETER, NULL, HB_ERR_FUNCNAME );
}
else
hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, HB_ERR_FUNCNAME );
}
Re: ADO RDD xHarbour
Posted:
Mon Mar 23, 2015 8:41 amby AHF
Antonio,
I dont understand it.
As I said before I dont know nothing about rdd specs and the way of working.
I define #define WA_LOCKLIST 22
Cant we do with dbrlocklist something like
aADOFunc[ UR_LOCK ] := (@ADO_LOCK())
Then I would have acess to my locklist array.
Re: ADO RDD xHarbour
Posted:
Mon Mar 23, 2015 8:46 amby AHF
Antonio,
What this needed for:
- Code: Select all Expand view
STATIC FUNCTION ADO_RAWLOCK( nWA, nAction, nRecNo )
// LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]
/* TODO */
HB_SYMBOL_UNUSED( nRecNo )
HB_SYMBOL_UNUSED( nWA )
HB_SYMBOL_UNUSED( nAction )
RETURN HB_SUCCESS
Re: ADO RDD xHarbour
Posted:
Mon Mar 23, 2015 10:06 amby AHF
Antonio,
FieldLen and FieldSize return nil
I've tested in the adorrd before UR_SUPER_ADDFIELD( nWA, aField ) and the values are correct.
What can we do?