attached example
#include "fivewin.ch"
function Main()
LOCAL oDlg
SET DATE ITALIAN
SET CENTURY ON
DEFINE DIALOG oDlg SIZE 320,200 PIXEL TRUEPIXEL TITLE "Bug Maria_Connect() ???"
@ 40,70 BUTTON "Show Table Customer" OF oDlg PIXEL ACTION ShowTable( ) SIZE 180,40
ACTIVATE DIALOG oDlg CENTERED
return nil
//------------------------------------//
Function ShowTable( )
LOCAL aStr := { "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", ;
"209.250.245.152,fwh,fwhuser,FiveTech@2022" }
LOCAL oCn, oRs
oCn := Maria_Connect( aStr[ 1 ] , .T.)
oRs := oCn:RowSet( "customer" )
xBrowse(oRs)
oCn:Close()
Return NIL
//------------------------------------//
#include "fivewin.ch"
static oCn
function Main()
LOCAL oDlg
LOCAL aStr := { "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", ;
"209.250.245.152,fwh,fwhuser,FiveTech@2022" }
oCn := Maria_Connect( aStr[ 1 ] , .T.)
DEFINE DIALOG oDlg SIZE 320,200 PIXEL TRUEPIXEL TITLE "Bug Maria_Connect() ???"
@ 40,70 BUTTON "Show Table Customer" OF oDlg PIXEL ACTION ShowTable( ) SIZE 180,40
ACTIVATE DIALOG oDlg CENTERED
oCn:Close()
return nil
//------------------------------------//
Function ShowTable( )
LOCAL oRs
oRs := oCn:RowSet( "customer" )
xBrowse( oRs )
oRs:Close()
Return NIL
//------------------------------------//
nageswaragunupudi wrote:Meanwhile, can you please test another minor variation?
Meanwhile, can you please test another minor variation?
#include "fivewin.ch"
static oCn, oRs
function Main()
LOCAL oDlg
LOCAL aStr := { "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", ;
"209.250.245.152,fwh,fwhuser,FiveTech@2022" }
oCn := Maria_Connect( aStr[ 1 ] , .T.)
DEFINE DIALOG oDlg SIZE 320,200 PIXEL TRUEPIXEL TITLE "Bug Maria_Connect() ???"
@ 40,70 BUTTON "Show Table Customer" OF oDlg PIXEL ACTION ShowTable( ) SIZE 180,40
ACTIVATE DIALOG oDlg CENTERED
oCn:Close()
return nil
//------------------------------------//
Function ShowTable( )
static cTable := "states"
if cTable == "states"
cTable := "customer"
else
cTable := "states"
endif
if oRs == nil
oRs := oCn:RowSet( "select * from " + cTable )
else
oRs:ReQuery( "select * from " + cTable )
endif
xBrowse( oRs )
Return NIL
//------------------------------------//
( s_pCurrBlock->pFunc )( ( void * ) ( s_pCurrBlock + 1 ) );
Enrico Maria Giordano wrote:No, sorry, only Ron can help, but he does not respond to my report in the newsgroup comp.lang.xharbour...
Anyway, I made some tests and found that the problem could be with the call to the cleanup function of a block node:
- Code: Select all Expand view RUN
( s_pCurrBlock->pFunc )( ( void * ) ( s_pCurrBlock + 1 ) );
I don't know why the fifth block (the fifth call) causes the crash. Too much for me, too many xHarbour internals are involved, sorry. I even don't know why there is that +1 in the expression.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 91 guests