bug SQLRDD, xHarbour and BCC 5.8.2

[lucasdebeltran]

Hi Friends,

I'm trying to test SQLRDD and BCC with xHarbour and Borland 5.8.2. I have no success.

I downloaded the SQLRDD demo version from xharbour.com for BCC 5.82 and there are missing a lot of libraries: sql.lib, odbccp32.lib, etc..

I have written several emails to Patrick Mast and I did not get a reply. Actually, I'm pretty disappointed with his treatment. I intend to try a product that does not work and it costs 990 euros and spend. Is there support address?.

Anyone could run SQLRDD with xHarbour and Borland 5.82?.

If so, can you please share these libraries for xHarbour and BCC 5.8.2 -except, of course, SQLRDD.LIB itself--?.

Thank you.

Best regards,

[lucasdebeltran]

Hi,

Anyone is using SQLRDD?.

Thanks.

[Antonio Linares]

Let's push the free and open source SQLWIN RDD (in development)

http://wiki.fivetechsoft.com/doku.php?i ... evelopment

[lucasdebeltran]

Yes, it is a great idea and the SQLRDD works very fast in the operations implemented.

It is the easiest way to start using MySQL.

ALso, this is a very interesting doc about USRDD done by Massimo Belgrano:
https://docs.google.com/document/d/1HKS ... edit?pli=1

[lucasdebeltran]

Hi,

Those who plan to start working with Harbour and MySql, which solution are planning to use?.

Thanks.

[Eroni]

Hello
I use sqlrdd for xharbour and BCC55 and have no problems.
The libs I have in the lib folder sqlrdd\lib\bc5.
Currently I use the commercial version, but then I downloaded the site http://www.xharbour.com.br.
Recards.

[lucasdebeltran]

Eroni,

Thanks for reply.

Demo at xharbour.com is not complete.

The one at xharbour brasil yes, but demo it ks very old.

It is a real pitty that xHarbour.com does not care about demo and such issues, but the product is working except xBrowse.

Do you use xBrowse?.

Thanks.

[Eroni]

Lucas,I am now starting to use the xbrowse but with sql database.
Regards.

[kokookao2007]

Hi Lucas:

Xbrowse work fine for SQLRDD + Mysql .

I use SQLRDD+MYSQL Several Years. It is more easy Transfer Database .dbf file to SQL .
Not all the Database Command work for SQLRDD. (like ‘Copy to’ ,’Copy stru to’ ,' append from' )

Some Problems still not solved for me.

1. SQLRDD+MYSQL support Collation UTF, Not support Collation Big5_Chinese . So I can't Show Chinese font for Phpmyadmin .
2. SQLRDD+MYSQL Ordkeyno() always return 0 .
3. SQLRDD+MYSQL add fields Sr_Recno,Sr_Deleted to all the Table , So some problem happen . like “copy to”,"Append from" command.
4. Some Tables Append blank have Problems, Because Sr_Recno=0 . SQLRDD said it is MYSQL Bug.
5. Some of SQLRDD+MYSQL Bug , SQLRDD Not FIX IT , They Always suggest switch Mysql to postgresql which is much more stable and powerfull .
6. SQLRDD Newsgroups is Very Arrogant, not answer and solve all the Questions for Several Years. I hate it very much.

So, If you want to use SQLRDD , You have to learn Solve some problems by Yourself Which SQLRDD can’t Solve.

--
Best Regards
------------
kokoo KAO

[MGA]

Mr Kokoo,

http://forums.fivetechsupport.com/viewt ... ug#p137104


I have problems running the xbrowse click on the line. Clicking any xbrowse the line is positioned at the top. Can you help me?

I asked the Lord to help Antonio, most did not get a solution.

[lucasdebeltran]

Mr Kokoo,

Which version of xHarbour and FWH do you have?.

SQLRDD does not work with latest FWH. Navigation does not work as SQLRDD does not have Ordkeyno() function, as you said it always return 0.

So, how did you manage to get it working?.

Also, I share your experience about their news group. They do not provide support. So, why trust a company that does not provide support nor even full sources to solve the problems?.

Thank you.

[kokookao2007]

hi SGS:

The problem was ::bKeyno() got 0 For SQLRDD.

You need update FWH after ver.1208 .

look the source code xBrowse in Method SETRDD

Unmark this lines

elseif ( ::cAlias )->( RddName() ) == "SQLRDD"
DEFAULT ::bKeyNo := ::bBookMark, ;
::bKeyCount := { || ( ::cAlias )->( LastRec() ) }

[kokookao2007]

Hi Luacs :

SQLRDD ver. xHarbour Builder SQLRDD for BCC-December-2012-Build1214
FWH: After ver.1208
xHarbour: 1.23.9894

SQLRDD Not support ordkeyno() , So I do a Stupid way to save Value of field->Sr_recno to Aarray.

#DUMP my SOLUTION FOR SQLRDD ordkeyno()

#define ORDKEYNO() MY_KEYNO(RECNO())

Private nMax_count:=500 // how many recnos for Array save one Time

USE ITEM INDEX ITEM NEW SHARE

// here to save value to a array only 500 records
PRIVATE aDB_ARRAY:={}
PUT_DBARRAY()

...Define a Dialog
...Define a Xbrowse

REDEFINE COLUMN XBROWSE oBrw ID 201 OF oDlg ;
UPDATE

// show ordkeyno() for xbrowse
ADD COLUMN TO xBROWSE oBrw DATA {|| ITEM->(ORDKEYNO())} ;
HEADER "ID" SIZE 20


// you also need to add a Button for reget the value for Array when browse over nMax_count(500)
REDEFINE SBUTTON ID 30 OF oDlg ;
RESOURCE "B_REFRESH" ;
LOOK W97 ;
TEXT POSITION ON_RIGHT ;
TOOLTIP "Reget ordkeyno() for SQLRDD" ;
ACTION ( GET_REFRESH() ,oBrw:REFRESH(),oDlg:UPDATE())

**************************
FUNCTION PUT_DBARRAY(aARRAY,nMAX_COUNT,nNOW_POSITION,lSTART_AT_BOTTOM,lSPECIAL,nOLD_LAST)

MEMVAR aDB_ARRAY

LOCAL I:=0,lDEFAULT_ARRAY:=.T.,J,nPOSI,nLEN

IF ! aARRAY=NIL
lDEFAULT_ARRAY:=.F.
ENDIF


DEFAULT aARRAY:={},nMAX_COUNT:=DEF_SQL_LIMIT_RECORD_COUNT,nNOW_POSITION:=0,lSTART_AT_BOTTOM:=.F.,lSPECIAL:=.F.,nOLD_LAST:=0

IF EMPTY(aARRAY)
aARRAY:={}
ENDIF



DO CASE
CASE nNOW_POSITION#0 .AND. (ASCAN(aARRAY, {|XX| XX[1]=nNOW_POSITION}))=0

CURSORWAIT()


lDEFAULT_ARRAY:=.T.


IF nOLD_LAST=ORDKEYCOUNT() .OR. ORDKEYCOUNT()-nNOW_POSITION<nMAX_COUNT // on bottom

J:=ORDKEYCOUNT()
GO BOTTOM
IF (ASCAN(aARRAY, {|XX| XX[1]=RECNO() }))=0
DO WHILE ! BOF()
AADD(aARRAY , { RECNO() , J-- } )
SKIP -1
IF ++I=nMAX_COUNT
EXIT
ENDIF
ENDDO
ENDIF

ELSE

I:=0
GO TOP
aARRAY:={}

DO WHILE ! EOF() .and. RECNO()#nNOW_POSITION
AADD(aARRAY , { RECNO() , ++I } )
SKIP
ENDDO
nMAX_COUNT:=I+200



DO WHILE ! EOF()
AADD(aARRAY , { RECNO() , ++I } )
SKIP
IF I=nMAX_COUNT
EXIT
ENDIF
ENDDO
ENDIF

CASE lSTART_AT_BOTTOM

J:=ORDKEYCOUNT()
GO BOTTOM
IF (ASCAN(aARRAY, {|XX| XX[1]=RECNO() }))=0
DO WHILE ! BOF()
AADD(aARRAY , { RECNO() , J-- } )
SKIP -1
IF ++I=nMAX_COUNT
EXIT
ENDIF
ENDDO
ENDIF

OTHER

IF (ASCAN(aARRAY, {|XX| XX[1]=RECNO() }))=0
GO TOP

DO WHILE ! EOF()
AADD(aARRAY , { RECNO() , ++I } )
SKIP
IF I=nMAX_COUNT
EXIT
ENDIF
ENDDO
ENDIF

ENDCASE


IF lDEFAULT_ARRAY
aDB_ARRAY:=aARRAY
ENDIF

IF nNOW_POSITION#0
GOTO nNOW_POSITION
ELSE
GO TOP
ENDIF

RETURN NIL

*************************************************************
FUNCTION GET_REFRESH()

STATIC nCNTS:=0

MEMVAR aDB_ARRAY

LOCAL nRECNO:=RECNO()
LOCAL nOLD_LAST:=0

nCNTS++

IF LEN(aDB_ARRAY)>0
nOLD_LAST:=aDB_ARRAY[LEN(aDB_ARRAY)][2]
ENDIF

aDB_ARRAY:={}

MsgRun("Wait","RECNO RECOUNT ", {|| PUT_DBARRAY(@aDB_ARRAY,,nRECNO,.F.,,nOLD_LAST) } )

DBGOTO(nRECNO)

RETURN NIL

The Stupid way Work for me since 2009.07.

Any other good Idea ?

[MGA]

Mr Kokoo,

thanks!!!!

[kokookao2007]

#DUMP MY_KEYNO()

**************************
FUNCTION MY_KEYNO(nRECNO , aARRAY , lSPECIAL)

MEMVAR aDB_ARRAY

LOCAL I

DEFAULT aARRAY:=NIL,nRECNO:=0, lSPECIAL:=.F.


IF aARRAY=NIL

IF lSPECIAL
? LEN(aDB_ARRAY)
ENDIF

IF EMPTY(aDB_ARRAY) .OR. nRECNO=0
RETURN 0
ENDIF

IF (I:=ASCAN(aDB_ARRAY , { |XX| XX[1]=nRECNO }))#0
RETURN aDB_ARRAY[2]
ENDIF

ELSE
IF EMPTY(aARRAY) .OR. nRECNO=0
RETURN 0
ENDIF

IF (I:=ASCAN(aARRAY , { |XX| XX[1]=nRECNO }))#0
RETURN aARRAY[2]
ENDIF
ENDIF


RETURN 0