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 24, 2015 04:18 PM

Lucas,

Ok Great :D I miss understood it

Can you now try it with your app?

It would be great to have your comments.

Im going to try it myself tomorrow.

Regards

Antonio H Ferreira
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Sun May 24, 2015 04:23 PM

Antonio,

I am already testing with my App.

So that麓s how I discovered most bugs and the one at dbseek().

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: Sun May 24, 2015 05:39 PM

New version adordd https://github.com/AHFERREIRA/adordd.git

Regards

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

Antonio,

DbFilter() does not return the filter expresi贸n.

Also, OrdSetFocus() when there is an active filter fails.

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.
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Sun May 24, 2015 08:41 PM
Antonio,

As you change position to HBRECNO at ADO_CREATE(), this fix is required to handle the array:

Code (fw): Select all Collapse
   /*
   fix to add HBRECNO if it麓s not present  // Lucas De Beltran 23.05.2015
   cannot be first otherwise copy to changes all fields order and values ahf 23.5.2015

   Transposes the array to have only first row  // Lucas de Beltran 24.05.2015
   */
   IF ASCAN( ArrTranspose(  aWAData[ WA_SQLSTRUCT ]  )[1], ADO_GET_FIELD_RECNO(  aWAData[ WA_TABLENAME ] ) ) == 0
      AADD( aWAData[ WA_SQLSTRUCT ], {  ADO_GET_FIELD_RECNO(  aWAData[ WA_TABLENAME ] ), '+', 10, 0 } )
   ENDIF
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: Mon May 25, 2015 08:22 AM
Lucas,


DbFilter() does not return the filter expresi贸n.


Corrected!

Also, OrdSetFocus() when there is an active filter fails.


Here seems to be working ok. Can you post an example?
This is happening on version posted yesterday?
Regards

Antonio H Ferreira
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Mon May 25, 2015 08:25 AM
Lucas,

lucasdebeltran wrote:Antonio,

As you change position to HBRECNO at ADO_CREATE(), this fix is required to handle the array:

Code (fw): Select all Collapse
聽 聽/*
聽 聽fix to add HBRECNO if it麓s not present 聽// Lucas De Beltran 23.05.2015
聽 聽cannot be first otherwise copy to changes all fields order and values ahf 23.5.2015

聽 聽Transposes the array to have only first row 聽// Lucas de Beltran 24.05.2015
聽 聽*/
聽 聽IF ASCAN( ArrTranspose( 聽aWAData[ WA_SQLSTRUCT ] 聽)[1], ADO_GET_FIELD_RECNO( 聽aWAData[ WA_TABLENAME ] ) ) == 0
聽 聽 聽 AADD( aWAData[ WA_SQLSTRUCT ], { 聽ADO_GET_FIELD_RECNO( 聽aWAData[ WA_TABLENAME ] ), '+', 10, 0 } )
聽 聽ENDIF


I dont have arr_transpose.
Regards

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

Antonio,

To debug OrdSetFocus(), I need the fix for dbfilter() please, to trace the problem.

It my be related when appending of replacing records, the filter is cleared?.

I don麓t know if it happened before.

About ArrayTranspose(), its aviable here:

https://bitbucket.org/fivetech/fiveweb/ ... ?at=master

Also, at adordd.prg, can you please move all Fivewin functions to the bottom of the code?.

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: Mon May 25, 2015 10:29 AM

Lucas,

Check you email.

Regards

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

Lucas,

Ordsetfocus() with filters seems to be working ok here. (MySql)

Regards

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

Antonio,

And when the INDEX TAG has a condition?.

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: Mon May 25, 2015 11:39 AM

Lucas,

I didnt try it.
As soon as I have some time we ll try it.

Regards

Antonio H Ferreira
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: ADO RDD xHarbour
Posted: Mon May 25, 2015 02:18 PM

Antonio,

Set filter is not working fine.

aBookMarks is always is righ.

However, sometimes I get only one record, when I should get three records.

Even, at Browse I see three of them, but I i click on the browse, the cursor only shows one.

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: Mon May 25, 2015 02:31 PM

Lucas,

Please try:

1st without indexes. Is it working ?

2nd indexes without condition. Is it working ?

3rd indexes with condition. Is it working ?

Here with browse() 1st and 2nd working. (MYSQL)

I suspect that has something to do with ado_reccount()

Regards

Antonio H Ferreira
AHF
Posts: 838
Joined: Fri Feb 10, 2006 12:14 PM
Re: ADO RDD xHarbour
Posted: Mon May 25, 2015 02:46 PM
Lucas,

Use this in adordd (i dont know if your version has already ADO_FILTERTEXT

if not place this in ADORDD_GETFUNCTABLE
aADOFunc[ UR_FILTERTEXT ] := (@ADO_FILTERTEXT())

and replace with this

Code (fw): Select all Collapse
STATIC FUNCTION ADO_FILTERTEXT(nWa,cFilterExp)
 LOCAL aWAData := USRRDD_AREADATA( nWA )
 
 cFilterExp := aWAData[WA_CFILTERACTIVE]
 
   RETURN HB_SUCCESS


dbfilter() and dbinfo() return cfilter expression.
Regards

Antonio H Ferreira
Static archive 路 New replies & topics via GitHub Discussions