Problem to open a database

[Silvio.Falconi]

I cannot open a dbf
the dbf is on the root of the test




the error

Code: Select all

Application
===========
   Path and name: C:\Work\Errori\plan_tdata\sample03.Exe (32 bits)
   Size: 3,492,864 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 06/20/2019, 13:19:55
   Error description: Error BASE/1002  Alias inesistente: ROOMS

Stack Calls
===========
   Called from:  => DBUSEAREA( 0 )
   Called from: .\source\classes\DATABASE.PRG => (b)TDATABASE_USE( 424 )
   Called from: .\source\classes\DATABASE.PRG => TDATABASE:TD_EXECLOOP( 2085 )
   Called from: .\source\classes\DATABASE.PRG => TDATABASE:USE( 424 )
   Called from: .\source\classes\DATABASE.PRG => TDATABASE:OPEN( 352 )
   Called from: sample03.prg => SAMPLEPLAN:OPENDATA( 685 )
   Called from: sample03.prg => SAMPLEPLAN:NEW( 86 )
   Called from: sample03.prg => MAIN( 32 )

openData method

Code: Select all

METHOD OpenData() CLASS SamplePlan

   oRooms:= TDatabase():Open( nil, "Rooms", "DBFCDX", .t. )
   oRooms:setorder(1)
   oRooms:gotop()

   oReserva:=TDatabase():Open( nil, "Reserva", "DBFCDX", .T. )
   oReserva:setorder(1)
   oReserva:gotop()

 return nil

where is the error ?

[nageswaragunupudi]

Using Tdatabase, you can not get this error.

Please post a sample using any dbf in samples folder for us to reproduce the problem.

[Silvio.Falconi]

I post a sample03 at this topic http://forums.fivetechsupport.com/viewt ... =3&t=37337

[nageswaragunupudi]

Please see my reply here

http://forums.fivetechsupport.com/viewt ... =3&t=37337