HMGforum.com

Hi All

I have an issue of SKIP/DBSKIP(1) not respected in a DO WHILE LOOP of a MySQL Table as follows :-

#include "adordd.ch"
#include 'Minigui.ch'

SELECT 0
USE (cDataBase) VIA "ADORDD" alias "FARDAT" TABLE "FARDAT" MYSQL ;
FROM cServer USER cUser PASSWORD cPass

// Properly connected to MySQL Table and value of lastrec() obtained

CalcdepamCounter() // problem function

function CalcdepamCounter()

LOCAL nRecNo
local nCounter:=0
dbgotop()
//
WHILE ! fardat->(eof())
DO EVENTS
nCounter++
msginfo(fardat->fa_no)

nComplete := INT((nCounter/LASTREC()) * 100)
cComplete := LTRIM(STR(nComplete))

MainForm.Progress_1.Value := nComplete
MainForm.Label_001.Value := "Calculating "+ str(nCounter)+'/'+ltrim(str(lastrec()))+CHR(13)+ "Percentage completed "+cComplete + "%"

SKIP // not respected , fardat->(dbskip(1)) and dbskip(1) also not resoected
ENDDO
RETURN nil

Any assistance will be appreciated .


CCH
http://cch4clipper.blogspot.com

Hi Kathinagiri, Sudip, Marek, Esgici

Are you able to repeat the issue reported via a simple do while loop ?

CCH
http://cch4clipper.blogspot.com

Sorry CCH,

I don't use adordd.

I always retrieve the table as an array.

May be, others would help you.

Hi Rathinagiri

Is ADORDD a HMG feature or Harbour feature ?


CCH
http://cch4clipper.blogspot.com

It is a Harbour library. You can find out the list of Harbour libraries which are linked through HMG in 'C:\hmg\HARBOUR\lib'

MingW libraries can be found in 'c:\hmg\MINGW\lib'.

HI, sorry that I can't help you. I didn't work with mysql anytime.
Maybe I will try, but about wednesday I will find some free time....
Marek

Hi Marek

I await the results of your testing

CCH
http://cch4clipper.blogspot.com