Request For TDataRow Example for MariDB

[shrifw]

Dear Rao Sir ,

I would request you to provide TDatarow Examples of Maridb to understand Tdatarow. I have tried existing examples which are not working for me.

Please provide the same. Thanks in advance..!

Thanks
Shridhar

[nageswaragunupudi]

Syntax

Code: Select all  Expand view  RUN

oRec := TDataRow():New( uSource, [cFieldList], [lAppend] )

uSource can be alias(), ado recordset, oRowSet, or any other datasource.

You can:

Code: Select all  Expand view  RUN

oRs := oCn:RowSet( cTable )
oRec := TDataRow():New( oRs )
oRec:Edit()

OR simply

Code: Select all  Expand view  RUN

oRs:Record():Edit()

OR even much simpler

Code: Select all  Expand view  RUN

oRs := oCn:RowSet( cTable )
oRs:Edit()

All three alternative codes above do exactly the same thing.

The reason why you do not find many examples directly using TDataRow is because you do not need to deal with it explicitly.
XBrowse and classes like RowSet, TRecSet, TDatabase. etc implicity internally use this class to provide Edit()

[shrifw]

Dear Sir ,

Not able to access value by using FieldGet Method as given below.

Code: Select all  Expand view  RUN

    oRec := TDataRow():New( oRsList )
 
    ALERT(" acgrp_name ==> "+oRec:FieldGet("ACGRP_NAME") )

 

Thanks
Shridhar

[nageswaragunupudi]

Code: Select all  Expand view  RUN

? oRec:fieldname
// or
@ r,c GET oRec:fieldname SIZE w,h PIXEL OF oDlg

Finally,

Code: Select all  Expand view  RUN

oRec:Save()

[shrifw]

Dear Rao Sir ,

Many Thanks ! Its working as expected.

Thanks
Shridhar