gostaria de saber como usar xbrowse com hbpgsql
"I would like to know how to use xbrowse hbpgsql"
HARBOUR CVS....
hbpgsql/harbour + xbrowse
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: 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:
Code: Select all
? XBrowsableObj( oQry ).
Code: Select all
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
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: hbpgsql/harbour + xbrowse
return .F.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:
If the result is .T., then xbrowse can browse the object without much effort from your side. In such a case, next step is:Code: Select all
? XBrowsableObj( oQry ).
Depending on the results, I can guide you next.Code: Select all
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
Re: hbpgsql/harbour + xbrowse
hello ;
G. N. Rao. Hyderabad, India
know what can I do?
saberia oque posso fazer ?
G. N. Rao. Hyderabad, India
know what can I do?
saberia oque posso fazer ?
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: hbpgsql/harbour + xbrowse
Please try adopting the following code to your query.
Please test and post the results.
Code: Select all
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 nSkipped
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: hbpgsql/harbour + xbrowse
I did the test shows only one record ...
and the bank has 10 000 records
and the bank has 10 000 records
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: hbpgsql/harbour + xbrowse
I am sorry, there was a small mistake in the code I posted originally. I corrected the above code in PgSkipper() function.luiz53 wrote:I did the test shows only one record ...
and the bank has 10 000 records
Please use the revised code above
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India