Demo c:\fwh\samples\access.prg crash

[Jimmy]

hi,

i try to run Sample c:\fwh\samples\access.prg

it start and show "Catalog" but when click on CUSTOMER (or other) it crash

Path and name: C:\fwh\samples\access.exe (32 bits)
Size: 4,832,256 bytes
Compiler version: Harbour 3.2.0dev (r1801051438)
FiveWin version: FWH 22.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 1 secs
Error occurred at: 06/27/23, 00:47:09
Error description: (DOS Error -2147352570) WINOLE/1009 No exported method: ISKINDOF
Args:
[ 1] = C TLINKLIST

Stack Calls
===========
Called from: => TOLEAUTO:ISKINDOF( 0 )
Called from: .\source\function\XBROWSER.PRG => XBROWSE( 101 )
Called from: access.prg => MAIN( 43 )

[nageswaragunupudi]

We discussed earlier too that FWH2206 had a bug in xbrowser.prg due to which :

Code: Select all  Expand view  RUN

XBROWSER oRecordSet
// or
XBrowse( oRs )
 

fails with runtime error.
We also suggested a fix here.

viewtopic.php?f=3&t=43275&p=260596&hilit=xbrowser.prg&sid=dc63e669aa241840b5bb63c9b93efe4d#p260596

viewtopic.php?f=3&t=43349&p=260952&hilit=xbrowser.prg&sid=dc63e669aa241840b5bb63c9b93efe4d#p260952

If you want to use FWH2206 only please apply the fix.
Better you use any later version, preferably FWH2304.

[nageswaragunupudi]

Next.
This is a very old program and we need to simplify it.

The revised program looks like this. This program does all what the earlier access.prg does.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oCn

   oCn   := FW_OpenAdoConnection( "xbrtest.mdb" )
   XBROWSER FW_AdoTables( oCn ) SETUP ( ;
      oBrw:aCols[ 1 ]:bLDClickData := ;
      {|r,c,f,o,oRs| XBrowse( oRs := FW_OpenTRecSet( oCn, o:Value ) ), ;
         oRs:Close() } )

   oCn:Close()

return nil

Please try this. Works even on FWH2206.
This program does what the earlier access.prg does.
Double-click on any table to browse it.