Error with MariaDB and DataRow

[Maurizio]

Hello Rao,
I use MariaDB and DataRow and I get an error when I add a record in filtered recordsource
CUSTID (in the example) is incorrect.
Maybe I use the commands incorrectly but with ADO it works correctly.

Code: Select all | Expand

#include "fivewin.ch"

static aStr := { "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", ;
                 "209.250.245.152,fwh,fwhuser,FiveTech@2022" }

static oCn

//----------------------------------------------------------------------------//

function Main()

   local oRs, cSql,oRec

   FWSetLanguage( 1 )
   FW_SetUnicode( .t. )

   if ( oCn := maria_Connect( aStr[ 1 ], .t. ) ) != nil

      TEXT INTO cSql
         SELECT C.ID AS CustID, C.FIRST AS CustName, C.AGE AS AG, C.STATE AS ST, S.NAME AS StateName
         FROM customer C
         LEFT OUTER JOIN states S ON C.STATE = S.CODE
         ORDER BY CUSTID
      ENDTEXT

      oRs   := oCn:RowSet( cSql )

     // xbrowse(oRs)  
      
      oRec  := TDataRow():New( oRs, nil, .t.)
      oRec:CUSTNAME := 'PIPPO'
      oRec:Save()
      ? 'Last CUSTID :'  + str(oRec:CUSTID ) + '* OK *' + ' Name:' + oRec:CUSTNAME
      
      
      oRs:Filter = "CUSTNAME = 'Tom'" 
      xbrowse(oRs) 
       
      oRec  := TDataRow():New( oRs, nil, .t.)
      oRec:CUSTNAME := 'Frank'
      oRec:Save()
      ? 'Last CUSTID :'  + str(oRec:CUSTID ) + '* ERROR  *' + ' Name:' + oRec:CUSTNAME
        
      
      
      
      
      
     /*
      XBROWSER oRs FASTEDIT AUTOSORT AUTOFIT SHOW RECID ;
         TITLE "Compare Editability Vs Other Libs" ;
         SETUP ( oBrw:lFastEdit := .f., oBrw:aCols[ 4 ]:cEditPicture := "@!" )
     */
      oCn:Close()

   endif

return nil

Regards Maurizio
www.nipeservice.com

[Maurizio]

Hello RAO
could you see this post?
Maurizio

[Eroni]

Maurizio, I do not use tDataRow(), but it works for me:

Code: Select all | Expand

oRec := oRs:Record( .F. ) // or .T. to insert 

Wouldn't that be missing?

Regards.

[nageswaragunupudi]

Code: Select all | Expand

oRec := oRs:Record( .F. ) // or .T. to insert

and

Code: Select all | Expand

oRec  := TDataRow():New( oRs, nil, .t.)// .t. or .f.

are same.

[nageswaragunupudi]

We will test and get back

[shri_fwh]

Dear All ,

Is this resolved ?

Thanks
Shridhar

[vilian]

Hi,
aren't fw mysql servers working?

[shri_fwh]

Hi ,

I want to use DataRow class to save multiple records in batch mode. However, I'm not sure if DataRow actually supports batch operations.

I came across this topic and wanted to check if there are any known issues or limitations with using DataRow in this context.

Appreciate any insights you can share.

Thanks
Shridhar

[Antonio Linares]

viewtopic.php?p=281315#p281315