Page 1 of 1
Use command error DbUseArea()?
Posted: Thu Aug 24, 2006 3:20 am
by dutch
Dear All,
I just bought FWPPC and try an example but the USE command to open database file (DBFCDX) doesn't work. What is my mistake? The error message is "Open error; Stack Call; DbUseArea(0)"
Best regards
Dutch
Posted: Thu Aug 24, 2006 7:06 am
by Antonio Linares
Dutch,
What FWPPC sample are you testing ?
Please notice that you have to specify the CurDir():
USE ( CurDir() + "\Customer" ) VIA "DBFCDX"
My example
Posted: Thu Aug 24, 2006 8:52 am
by dutch
Dear Antonio,
This is my first test prg.
#include "Fwce.ch"
*--------------*
FUNCTION MAIN()
LOCAL oWnd, oBmp
LOCAL cVar1 := SPACE( 20 )
LOCAL cVar2 := SPACE( 20 )
// HB_LANGSELECT( "ESWIN" )
SET DELETED ON
SET DATE TO BRITISH
SET SOFTSEEK ON
SET CENTURY ON
SET EPOCH TO 2000
Request DbfCdx
Request DbfFpt
RddSetDefault ('DbfCdx')
Use (CURDIR()+"\CCRTBL") VIA "DBFCDX" NEW
DEFINE WINDOW oWnd
@ 1, 1 SAY "Table No. :";
SIZE 70, 20
@ 1, 10 GET cVar1;
SIZE 70, 20
@ 80,15 BTNBMP FILENAME CURDIR() + "\Open.bmp" ; // 'Open' ;
SIZE 60, 40 ;
ACTION MsgInfo('Open Table : '+rtrim(cVar1) )
@ 80,90 BTNBMP FILENAME CURDIR() + "\Exit.bmp" ; // 'Open' ;
SIZE 60, 40 ;
ACTION if(MsgYesNo('Exit Program','Select Options'), oWnd:End(), )
ACTIVATE WINDOW oWnd
DbCloseAll()
RETURN NIL
Best regards,
Dutch
I've got it.
Posted: Thu Aug 24, 2006 10:03 am
by dutch
Dear Antonio,
I'm missing a database file in emulator path. Sorry, It works fine now.
Best regards,
Dutch
Posted: Thu Aug 24, 2006 10:15 am
by Antonio Linares
Dutch,
Glad to know its working fine
