Use command error DbUseArea()?

[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

[Antonio Linares]

Dutch,

What FWPPC sample are you testing ?

Please notice that you have to specify the CurDir():

USE ( CurDir() + "\Customer" ) VIA "DBFCDX"

[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

[dutch]

Dear Antonio,

I'm missing a database file in emulator path. Sorry, It works fine now.

Best regards,
Dutch

[Antonio Linares]

Dutch,

Glad to know its working fine