FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour ADO RDD xHarbour
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Sun May 10, 2015 09:41 AM

Lucas,

Ok I see it. Im using xHarbour Set 2008.

How can we call it correctly?

Regards

Antonio H Ferreira
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Sun May 10, 2015 09:47 AM
Done!

Code (fw): Select all Collapse
oRecordSet:Fields( aWAData[WA_FIELDRECNO] ):Properties():Item("Optimize"):Value := 1
Regards

Antonio H Ferreira
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Sun May 10, 2015 11:13 AM

Antonio,

Dbcreate() should take the database from SET ADO DEFAULT DATABASE TO command, so only needs to indicate table name, as current dbcreate() from DBFCDX.

So, I would plan dbcreate() as follows.

To keep compatibility with DBFCDX, fist parameter should be table name.

Also, if you want, you can indicate separated by ; the rest of the parameters:

STATIC FUNCTION ADO_CREATE( nWA, aOpenInfo )

LOCAL aWAData := USRRDD_AREADATA( nWA )
LOCAL cTable := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 1, ";" )
LOCAL cDataBase := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 2, ";" )
LOCAL cDbEngine := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 3, ";" )
LOCAL cServer := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 4, ";" )
LOCAL cUserName := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 5, ";" )
LOCAL cPassword := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 6, ";" )

I discovered a new bug: creating an empty Access database and table, I can´t add records. I get MsgAlert() ADO ERROR UNKNOWN at function ADO_APPEND().

If I edit the Access and I add with Access a new record, I can APPEND new records with ADORDD.

Thank you.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ADO RDD xHarbour
Posted: Sun May 10, 2015 02:01 PM
Antonio,

AHF wrote:Im using xHarbour Set 2008.


A version 7 years old! Time to update! :-)

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Mon May 11, 2015 07:35 AM
lucasdebeltran wrote:Antonio,

Dbcreate() should take the database from SET ADO DEFAULT DATABASE TO command, so only needs to indicate table name, as current dbcreate() from DBFCDX.

So, I would plan dbcreate() as follows.

To keep compatibility with DBFCDX, fist parameter should be table name.

Also, if you want, you can indicate separated by ; the rest of the parameters:

STATIC FUNCTION ADO_CREATE( nWA, aOpenInfo )

LOCAL aWAData := USRRDD_AREADATA( nWA )
LOCAL cTable := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 1, ";" )
LOCAL cDataBase := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 2, ";" )
LOCAL cDbEngine := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 3, ";" )
LOCAL cServer := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 4, ";" )
LOCAL cUserName := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 5, ";" )
LOCAL cPassword := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 6, ";" )


I agree. Changes will be made in the next post.


I discovered a new bug: creating an empty Access database and table, I can´t add records. I get MsgAlert() ADO ERROR UNKNOWN at function ADO_APPEND().

If I edit the Access and I add with Access a new record, I can APPEND new records with ADORDD.


Sorry I know that's due to our trials in ADO_LOCK because of concurrent access control.
We must be sure that we have the recordset with most recent table information (new and deleted records included).

Thanks for your support
Regards

Antonio H Ferreira
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 07:32 AM
Antonio,

First trials on real world went very well.
Trials will continue during this week.
Still didn't change one line of code in the app. :-)

The only problem found its concerning performance of DBEVAL that translates to ADO_EVALBLOCK.
It takes an "eternity" to run. Something is wrong.

Code (fw): Select all Collapse
STATIC FUNCTION ADO_EVALBLOCK( nArea, bBlock, uResult )

   LOCAL nCurrArea

   
   nCurrArea := Select()
   IF nCurrArea != nArea
      dbSelectArea( nArea )
   ELSE
      nCurrArea := 0
   ENDIF
   
   IF PROCNAME(1) <> "ADO_RELEVAL"
      // DONT KNOW WHY BUT DBEVAL ONLY WORK LIKE THIS
     //uResult := Eval( bBlock )
     
      UR_SUPER_EVALBLOCK( nArea, bBlock, uResult )
   ELSE   
      uResult := Eval( bBlock )
   ENDIF
   
   IF nCurrArea > 0
      dbSelectArea( nCurrArea )
   ENDIF
   
   
   RETURN HB_SUCCESS


I m passing to UR_SUPER_EVALBLOCK otherwise I loose bBlock value.
How can I get the rest of the parameters of this function ?

[<bForCondition>] , ;
[<bWhileCondition>], ;
[<nNextRecords>] , ;
[<nRecord>] , ;
[<lRest>]

There must be a function call by UR_SUPER_EVALBLOCK where all parameters are saved.
Regards

Antonio H Ferreira
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 08:53 AM
Antonio,

AHF wrote:First trials on real world went very well.
Trials will continue during this week.
Still didn't change one line of code in the app. :-)


Can we use something like this?

Code (fw): Select all Collapse
INDEX ON MYFUNC1( myparams ) TO MYINDEX FOR MYFUNC2( myparams )


EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 09:18 AM
Enrico Maria Giordano wrote:Antonio,

AHF wrote:First trials on real world went very well.
Trials will continue during this week.
Still didn't change one line of code in the app. :-)


Can we use something like this?

Code (fw): Select all Collapse
INDEX ON MYFUNC1( myparams ) TO MYINDEX FOR MYFUNC2( myparams )


EMG


Enrico,

As long as its evaluated before send it to adordd I would say yes.

Ex.
Code (fw): Select all Collapse
     cexpress1 := "field1 <> space(10)"
     cexpress2 := "field2+field3 ='"+ (wcod)+"'"
     index on field2+field3+str(val(field4),4,0) to (temporario);
            while &(cexpress2) for &(cexpress1);


Please note that this is the only exception where you need to change code.
Check readme at github.
Fortunately the app we are adapting was working already with ADS thus this has already been done in the past.
Regards

Antonio H Ferreira
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 09:22 AM
Antonio,

AHF wrote:As long as its evaluated before send it to adordd I would say yes.


No, they can't be evaluated in advance. So ADORDD is of no use for me. :-)

EMG
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 10:06 AM

Enrico,

I regret :(

Cant you work also with ADS?

Cant you somehow translated to a SQL SELECT ?

Regards

Antonio H Ferreira
Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 10:18 AM

Antonio,

No, to all your questions. :-(

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 10:58 AM

Antonio,

Have you been able to fix the APPEND bug?.

Thank you.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 11:01 AM

Lucas,

Yes.

Ill try to post new version during today.

Regards

Antonio H Ferreira
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 11:38 AM
Enrico Maria Giordano wrote:Antonio,

No, to all your questions. :-)

EMG


Enrico,

Can it work like this?

index on &( MyFunc( myparams ) ) TO TEMP1 FOR &( MyFunc2( myparams ) )
Regards

Antonio H Ferreira
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Tue May 12, 2015 11:43 AM
Antonio,

Thank you. Please ensure it works fine by deleting previously the database, and next create the database and its tables.

Also, I guess LOCATE FOR now works as DBFCDX:

Code (fw): Select all Collapse
LOCATE FOR FIELD->NAME == "Lucas"


In addition, SET ADO LOCK CONTROL SHAREPATH TO should asume by default HB_DIRBASE(). If the programmer does want to change the path, so it should call this command.

About the indexes, are SET ADO TABLES INDEX LIST TO and SET ADODBF TABLES INDEX LIST TO are both required?.

Thank you.
Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Static archive · New replies & topics via GitHub Discussions