gostaria de saber como usar xbrowse com hbpgsql
"I would like to know how to use xbrowse hbpgsql"
HARBOUR CVS....
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour hbpgsql/harbour + xbrowse
Hope you will be able to open a table object with a query.
If the class of the object has some minimum methods like goto, gotop, recno, etc.xbrowse may be able to browse the object.
Please help me to try testing this:
First open the table / query in your own way. Let us call the object oQry. Then test whether xbrowse can automatically browse the object by:
If the result is .T., then xbrowse can browse the object without much effort from your side. In such a case, next step is:
Depending on the results, I can guide you next.
If the class of the object has some minimum methods like goto, gotop, recno, etc.xbrowse may be able to browse the object.
Please help me to try testing this:
First open the table / query in your own way. Let us call the object oQry. Then test whether xbrowse can automatically browse the object by:
? XBrowsableObj( oQry ).If the result is .T., then xbrowse can browse the object without much effort from your side. In such a case, next step is:
DEFINE WINDOW oWnd
@ 0,0 XBROWSE oBrw OF oWnd DATASOURCE oQry FIELDS oQry:FieldGet(1) // or whatever way you access the fields.
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWndDepending on the results, I can guide you next.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
nageswaragunupudi wrote:Hope you will be able to open a table object with a query.
If the class of the object has some minimum methods like goto, gotop, recno, etc.xbrowse may be able to browse the object.
Please help me to try testing this:
First open the table / query in your own way. Let us call the object oQry. Then test whether xbrowse can automatically browse the object by:
? XBrowsableObj( oQry ).
If the result is .T., then xbrowse can browse the object without much effort from your side. In such a case, next step is:
DEFINE WINDOW oWnd @ 0,0 XBROWSE oBrw OF oWnd DATASOURCE oQry FIELDS oQry:FieldGet(1) // or whatever way you access the fields. oBrw:CreateFromCode() oWnd:oClient := oBrw ACTIVATE WINDOW oWnd
Depending on the results, I can guide you next.
return .F.
hello ;
G. N. Rao. Hyderabad, India
know what can I do?
saberia oque posso fazer ?
Please try adopting the following code to your query.
Please test and post the results.
function PgQryBrowse( oQry )
DEFINE WINDOW oWnd
@ 0,0 XBROWSE oBrw OF oWnd ;
FIELDS oQry:FieldGet( 1 ), oQry:FieldGet( 2 ) ;
HEADERS oQry:FieldName( 1 ), oQry:FieldName( 2 ) ;
CELL LINES
WITH OBJECT oBrw
:nDataType := DATATYPE_USER
:bGoTop := { || oQry:GoTo( 1 ) }
:bGoBottom := { || oQry:GoTo( oQry:LastRec() ) }
:bKeyCount := { || oQry:LastRec() }
:bKeyNo := ;
:bBookMark := { |n| If( n == nil, oQry:RecNo(), ( oQry:GoTo( Max( n, oQry:LastRec() ) ), oQry:RecNo() ) ) }
:bBof := { || oQry:Bof() }
:bEof := { || oQry:Eof() }
:bSkip := { |n| PgSkipper( oQry, n ) }
END
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd
return nil
function PgSkipper( oQry, nToSkip )
local nSkipped := 0
local nRecNo := oQry:RecNo()
DEFAULT nToSkip := 1
if oQry:LastRec() > 0
oQry:GoTo( Max( 1, Min( nRecNo + nToSkip, oQry:LastRec() ) ) )
nSkipped := oQry:RecNo() - nRecNo
endif
return nSkippedPlease test and post the results.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
I did the test shows only one record ...
and the bank has 10 000 records
luiz53 wrote:I did the test shows only one record ...
and the bank has 10 000 records
I am sorry, there was a small mistake in the code I posted originally. I corrected the above code in PgSkipper() function.
Please use the revised code above
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India