FiveTech Support Forums

*-----------------------------------*
FUNCTION connect()
*-----------------------------------*
Local SQL,oBrw
Local oCon := CreateObject('ADODB.Connection') 
Local oRecSet := CreateObject( "ADODB.RecordSet" ) 

oCon:ConnectionString:= "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.170;Port=3306;Database=MyDataBase;User=MyUser;Password=MyPassword;Option=3;"
TRY
   oCon:Open()
   msgInfo("Connected to Database")  
CATCH oError
   MsgInfo("Connection Failed")
   RETURN(.F.)
END 

oRecSet:CursorLocation := adUseClient
oRecSet:LockType := adLockOptimistic
oRecSet:CursorType := adOpenDynamic
oRecSet:Source := "SELECT * FROM ISSUE_TRA WHERE FIN_YEAR=2004"
oRecSet:ActiveConnection(oCon) 
oRecSet:Open()

if oRecSet:BOF .AND. oRecSet:EOF
	Msginfo("No Records")
	Return .F.
Endif

oRecSet:MoveFirst()

@0,0 XBROWSE oBrw ;
     OF oWnd ;          
     OBJECT oRecSet;
     LINES CELL
 
oCol:=oBrw:AddCol()
oCol:cHeader:="No #"
oCol:bStrdata:={ || oBrw:nArrayAt }   // Problem is here

oBrw:CreateFromCode()

RETURN .T.

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }

function GenProgressNumber( oBrw )
return {|| str(oBrw:nArrayAt) }

oCol:bStrData:={ || oBrw:nArrayAt  }

oCol:bStrData:={ || str(  RecNo() )   } // I am doubtful here what happens if the DBF is indexed

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") } 
                OR
oCol:bStrdata:={ || str(oRecSet:AbsolutePosition() ) }