FiveTech Software tech support forums

... elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TDOLPHINQRY' ) ::SetDolphin( ::oMysql ) elseif ! Empty( ::oMysql ) .AND. ::oMysql:IsKindOf( 'TMSQUERY' ) ::SetEagle( ::oMysql ) elseif ! Empty ( ::oDbf ) ::SetoDbf( ::oDbf,,, Empty( ::aCols ) ) elseif ! Empty( ::cAlias ) .or. ! Empty( Alias() ...

... ) Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 ) Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg => TMSQUERY:ERROR( 148 ) Called from: ../../../tobject.prg => (b)HBOBJECT( 77 ) Called from: ../../../tobject.prg => TMSQUERY:MSGNOTFOUND( 0 ) Called ...

... x == nil, ::oMySql:FieldGet( cName ), ::oMySql:FieldPut( nCol, x ) ) }  Change this as: if ::oMySql:IsKindOf( "TMSQUERY" )   DEFAULT oCol:bEditValue := { |x| If( x == nil, ::oMySql:FieldGet( nCol ), ::oMySql:FieldPut( nCol, x ) ...

... ;      LINES CELL           oBrw:CreateFromCode()  I fixed the problem on FieldPos(). Now I get this Called from E1FIELDGET(0) Called from TMSQUERY:FIELDGET(639) in source\prg\msquery.prg Called from MXCTAALM(26) in source\Mxctaalm.prg Called from (b)CLINICA32WIN(69) in source\Clinica32win.prg ...

... )  WITH       elseif ! Empty( ::oMysql ) .AND. ( ::oMysql:IsKindOf( 'TMYSQLQUERY' ) .or. ::oMySql:IsKindOf( 'TMSQUERY' ) )  Replace Line: 17327          if uDataSrc:IsKindOf( 'TMYSQLQUERY' )  WITH          if uDataSrc:IsKindOf( 'TMYSQLQUERY' ...

... two columns      :CreateFromCode()  and let me know please. I will be glad if you patiently help me to make xbrowse fully compatible with TMSQuery Do these methods also work as expected? fieldpos(), fieldname(), fieldlen(),fieldtype(),fielddec() ? MR Rao, in this way works Ok    @ 0,0 ...

... two columns      :CreateFromCode()  and let me know please. I will be glad if you patiently help me to make xbrowse fully compatible with TMSQuery Do these methods also work as expected? fieldpos(), fieldname(), fieldlen(),fieldtype(),fielddec() ?

oTb:= TMSQuery():New( oAp:oMySql, cSql )  May I know what is the class TMSQuery? What library are you using? Please explain in detail. Just like I do not know this class, XBrowse also does not know this class ...

oTb:= TMSQuery():New( oAp:oMySql, cSql )  May I know what is the class TMSQuery? What library are you using? Please explain in detail. Just like I do not know this class, XBrowse also does not know this ...

nageswaragunupudi wrote:I am curious to know what is TMsQuery and what is the library you are using for MySql?

TMSQuery is from Eagle1 for Harbour32/BCC7

I am curious to know what is TMsQuery and what is the library you are using for MySql?

Aca el codigo function TMyMSQuery( cCls ) ; return( MyGenClass( cCls, TMSQuery() ) ) The variable __aHCls AAdd( __aHCls, { cClsName, __nClassH } ) the class and handle How free static __aHCls := {} #include "HbClass.ch" function MyGenClass( cClsName, ...

... := TMSConnect():New() oMySql:Connect( "190.43.42.177","root", "CPS" ) oMySql:SelectDb( "contable" ) objq:= TMSQuery():New( oMySql ) objq:Open("SELECT * from plan where cuenta='"+cuenta+"'") if objq:nRowCount=0 objq:ExecSQL( "INSERT ...

... _HB_CLASS xMySQLClass function xMySQLClass() local oRs,nScope,acFields:={} static s_oClass // Como puedo pasar la variable cTable oRs := TMsQuery(oConexion, "show columns from "+alltrim(cTable)) oRs:Open() if oRs:Reccount()<=0 msgstop( "!!! Error accediendo a la Base ...

... de Tipo de Cambio" Local 8: O Class: TMSCONNECT Local 9: C "GNSYS_PRUEBA" Local 10: O Class: TMSDATABASE Local 11: C "mtcambio" Local 12: O Class: TMSQUERY Local 13: U Local 14: N 0 Local 15: N 1 Local 16: N 12 Local 17: C "select * from mtcambio order by fe_tc" Local 18: C "select * from mtcambio ...