xBrowse effoe FW 2206 - Rao

[Rick Lipkin]

Rao .. I have a recordset that I am looking to view the table xBrowse( oRsParks ) .. The Function Parameters are correct in in the correct order ... and I get this error :

Code: Select all  Expand view

Func _Parkslct( cMode, cFrom, oParkName,cParkName, oButt1,oButt2,cPark,oUPDATEDBY )

>
>
>
>

oRsParks := TOleAuto():New( "ADODB.Recordset" )
oRsParks:CursorType     := 1        // opendkeyset
oRsParks:CursorLocation := 3        // local cache
oRsParks:LockType       := 3        // lockoportunistic

cSql := "Select [ParkName],[ParkEid] from [Parks] "
cSql += "Order by [ParkName]"

TRY
   oRsParks:Open( cSQL,xCONNECT )
CATCH oErr
   MsgInfo( "Error in Opening Parks table" )
   RETURN(.F.)
END TRY

Try
  oRsParks:MoveFirst()
Catch
  oRsParks:Close
  Return(.f.)
End Try

oRsParks:Find( "ParkName Like '"+alltrim(cParkName)+"%'" )


xBrowse( oRsParks )   //  <-------------------  ERRORS HERE

 

Thanks
Rick Lipkin

Code: Select all  Expand view

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
   FiveWin  version: FWH 22.06
   C compiler version: Borland/Embarcadero C++ 7.4 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 6 secs
   Error occurred at: 06/19/2023, 16:33:01
   Error description: Error ADODB.Recordset/6  DISP_E_UNKNOWNNAME: ISKINDOF
   Args:
     [   1] = C   TLINKLIST

Stack Calls
===========
   Called from:  => TOLEAUTO:ISKINDOF( 0 )
   Called from: .\source\function\XBROWSER.PRG => XBROWSE( 101 )
   Called from: PARKSLCT.PRG => _PARKSLCT( 75 )
   Called from: PARKVIEW.PRG => (b)_PARKVIEW( 368 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:CREATEBUTTON( 1074 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 181 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1811 )
   Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 261 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\WINDOW.PRG => TGET:COMMAND( 1166 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 1282 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: PARKVIEW.PRG => _PARKVIEW( 454 )
   Called from: PARKBROW.PRG => (b)_PARKSEARCH( 236 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 792 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1114 )
   Called from: MAIN.PRG => MAIN( 420 )
 

[nageswaragunupudi]

This is due to a bug in FWH2206.
All previous versions and later versions work well.

Code: Select all  Expand view

XBROWSER oRecordSet // or any OLE object

fails with a runtime error.

This is the fix:

Open fwh\source\function\xbrowser.prg and locate this line: (line no.101)

Code: Select all  Expand view

  if ValType( uData ) == "H" .or. ( ValType( uData ) == "O" .and. uData:IsKindOf( "TLINKLIST" ) ) 

Replace with:

Code: Select all  Expand view

  if ValType( uData ) == "H" .or. ( ValType( uData ) == "O" .and. ;
      __ObjHasMethod( uData, "ISKINDOF" ) .and. uData:IsKindOf( "TLINKLIST" ) ) 

We regret the inconvenience.

[Rick Lipkin]

Rao

Thanks ... appreciate your help .