xBrowse, xBrowser enhansement - Rao

[Rick Lipkin]

Rao

I know I have asked Santa for this once before ... I use xBrowse() so many times as a debug tool and many times I have filters involved or Sql where .. and I never know how many records the query fetched .. be it Ado or DbfCdx.

I would be VERY grateful if you could add some code perhaps like this to be able to show how many records were in the recordset of filtered .dbf

Code: Select all  Expand view

   oLbxC:lFooter     := .t.
   oCol2             := oLbxC:aCols[ 1 ]
   oCol2:bFooter     := { || Ltrim( Str( oLbxC:KeyNo() ) ) + " / " + LTrim( Str( oLbxC:KeyCount() ) ) }
   oLbxC:bChange     := { || oCol2:RefreshFooter() }

 

Thanks
Rick Lipkin

[Marc Venken]

xbrowser(aGroepen) FASTEDIT AUTOSORT SHOW RECID Title "Downloadlijst voor de groepen"

Xbrowse

WITH OBJECT oBrw
:lEditMode := .T.
:lFooter := .t.
:bRecSelHeader := { || "" }
:bRecSelData := { |o| o:KeyNo }
:bRecSelFooter := { |o| o:nLen }
RecSelFont := oFont3 // optional
:nRecSelWidth := "99999" // required size
:lHScroll := .F.

[Rick Lipkin]

Mark

Thanks for your reply ... I am not creating an xBrowse ( listbox ) ... I am using the function xBrowse() like this ..

Code: Select all  Expand view

   cSql := "Select [InvoiceDate],[Invno],[Accno],[Parent1],[ServRend],[TotalBilled],[TotalPaid],[TotalBalDue] From Invoice "
   cSql += "Where [Accno] = '"+cAccno+"' Order by [InvoiceDate]"

   oRsInvoice := TOleAuto():New( "ADODB.Recordset" )
   oRsInvoice:CursorType     := 1        // opendkeyset
   oRsInvoice:CursorLocation := 3        // local cache
   oRsInvoice:LockType       := 3        // lockoportunistic

   TRY
      oRsInvoice:Open( cSQL,xCONNECT )
   CATCH oErr
      MsgInfo( "Error in Opening INVOICE table" )
      oRsSys:CLose()
      RETURN(.F.)
   END TRY

   xbrowse( oRsInvoice )   // <---  here


 

xBrowse() is part of the Fivwin library and is a quick way to view records either Ado ( sql ) or dbfcdx ... It would be nice to add the number of records within the fetch at the bottom of the listbox.

Thanks
Rick Lipkin

[nageswaragunupudi]

Use "SHOW SLNUM" or "SHOW RECID" clauses with XBROWSER command.

XBROWSER has already similar and a lot more capabilties. Please get acquainted with all the capabilities by studying the command translate and also the function in xbrowser.prg.

Using SHOW SLNUM clause.

Code: Select all  Expand view

function TestXBrowser()

   local oCn, oRs

   FWNumFormat( "A", .T. )

   oCn   := FW_OpenAdoConnection( "xbrtest.mdb" )
   oRs   := FW_OpenRecordSet( oCn, "select * from customer order by first" )

   XBROWSER oRs COLUMNS "FIRST","CITY","STATE", "SALARY" FASTEDIT ;
      SHOW SLNUM  // or RECID

   oRs:Close()
   oCn:Close()

return nil