SQLRDD SR_SQLCodeGen() with Browse Order - xharbour

On 28 out, 07:06, "kokoo...@gmail.com" <kokoo...@gmail.com> wrote:
> hi :
>
> Anyone know how Browse order work in SQLRDD with SR_SQLCodeGen() ?
>
> // IN RDD "DBFSIX"
>
> USE MAN NEW EXCL
> INDEX ON MAN->MNO TO MAN
> INDEX ON MAN->MNO TO MAN1 ADDI
>
> SET FILTER TO MAN->MNO>"1000"
> GO TOP
>
> REDEFINE COLUMN BROWSE oBrw ID 201 OF oDlg
>
> ADD COLUMN TO BROWSE oBrw DATA MAN->MNO ;
> HEADER "MNO" SIZE 50 ;
> ORDER "MAN"
>
> ADD COLUMN TO BROWSE oBrw DATA MAN->NAME;
> HEADER "NAME" SIZE 65 ;
> ORDER "MAN1"
>
> // IN RDD "SQLRDD"
>
> cComm := "SELECT * " +;
> "FROM MAN " +;
> "WHERE MNO > ? " +;
> "ORDER BY MAN "
>
> oSql := SR_GetConnection()
> apCode := SR_SQLParse( cComm, @nErr, @nPos )
>
> cComm := SR_SQLCodeGen( apCode, { '1000' }, SYSTEMID_MYSQL )
>
> dbUseArea(.t., "SQLRDD", cComm, 'MAN_SHOW', .f., .t.)
>
> REDEFINE COLUMN BROWSE oBrw ID 201 OF oDlg
>
> ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->MNO ;
> HEADER "MNO" SIZE 50 ;
> ORDER "MAN" // HOW TO DO IN SQLRDD "
>
> ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->NAME;
> HEADER "NAME" SIZE 65 ;
> ORDER "MAN1" // HOW TO DO IN SQLRDD ?
>
> --
> Best Regards
> --------------------------------------------------------------
> kokoo KAO


Hi

query is wrong
should be
cComm := "SELECT * " +;
"FROM MAN " +;
"WHERE MNO > ? " +;
"ORDER BY any field name in man table "


Regards
Luiz

hi cul :

I Correct it , did you know how to Browse 2 orders ?

cComm := "SELECT * " +;
"FROM MAN " +;
"WHERE MNO > ? " +;
"ORDER BY MNO "


Best Regards
--------------------------------------------------------------
 kokoo KAO

On 29 out, 01:59, "kokoo...@gmail.com" <kokoo...@gmail.com> wrote:
> hi cul :
>
> I Correct it , did you know how to Browse 2 orders ?
>
> cComm := "SELECT * " +;
> "FROM MAN " +;
> "WHERE MNO > ? " +;
> "ORDER BY MNO "
>
> Best Regards
> --------------------------------------------------------------
> kokoo KAO


simple as
ccomm := "select * from man where mno >? order by
mno,field2,...,fieldn"

Regards
Luiz

hi cul :

cComm := "SELECT * " +;
"FROM MAN " +;
"WHERE MNO > ? " +;
"ORDER BY MNO,NAME "

oSql := SR_GetConnection()
apCode := SR_SQLParse( cComm, @nErr, @nPos )

cComm := SR_SQLCodeGen( apCode, { '1000' }, SYSTEMID_MYSQL )

dbUseArea(.t., "SQLRDD", cComm, 'MAN_SHOW', .f., .t.)

ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->MNO ;
HEADER "MNO" SIZE 50 ;
ORDER "MAN" // HOW TO DO IN SQLRDD "

ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->NAME;
HEADER "NAME" SIZE 65 ;
ORDER "MAN1" // HOW TO DO IN SQLRDD ?

In Tcbrowse Order need AINDEX FILE .
How can SQLRDD SR_..function ..makeit without Index file or Other
Solution ?



Best Regards
--------------------------------------------------------------
 kokoo KAO

hi cul :

Woluld you tell me how to "Set order in Tcbrows with Sqlrdd
+SR_SQLCodeGen() ?

I TRY :

cComm := "SELECT * " +;
"FROM MAN " +;
"WHERE MNO > ? " +;
"ORDER BY MNO" +;
"ORDER BY NAME "

oSql := SR_GetConnection()
apCode := SR_SQLParse( cComm, @nErr, @nPos )

cComm := SR_SQLCodeGen( apCode, { '1000' }, SYSTEMID_MYSQL )

dbUseArea(.t., "SQLRDD", cComm, 'MAN_SHOW', .f., .t.)

ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->MNO ;
HEADER "MNO" SIZE 50 ;
ORDER "MAN" // HOW TO SET ORDER IN SQLRDD , not work
here , need a index file

ADD COLUMN TO BROWSE oBrw DATA MAN_SHOW->NAME;
HEADER "NAME" SIZE 65 ;
ORDER "MAN1" // HOW TO SET ORDER IN SQLRDD , not work
here , need a index file


Best Regards
--------------------------------------------------------------
kokoo KAO