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

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

Postby Jimmy » Mon Jun 26, 2023 10:50 pm

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 )
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

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

Postby nageswaragunupudi » Tue Jun 27, 2023 8:40 am

We discussed earlier too that FWH2206 had a bug in xbrowser.prg due to which :
Code: Select all  Expand view

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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

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

Postby nageswaragunupudi » Tue Jun 27, 2023 9:44 am

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
#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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 44 guests