Use command error DbUseArea()?

Use command error DbUseArea()?

Postby dutch » Thu Aug 24, 2006 3:20 am

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
User avatar
dutch
 
Posts: 1553
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Postby Antonio Linares » Thu Aug 24, 2006 7:06 am

Dutch,

What FWPPC sample are you testing ?

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

USE ( CurDir() + "\Customer" ) VIA "DBFCDX"
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

My example

Postby dutch » Thu Aug 24, 2006 8:52 am

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
User avatar
dutch
 
Posts: 1553
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

I've got it.

Postby dutch » Thu Aug 24, 2006 10:03 am

Dear Antonio,

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

Best regards,
Dutch
User avatar
dutch
 
Posts: 1553
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Postby Antonio Linares » Thu Aug 24, 2006 10:15 am

Dutch,

Glad to know its working fine :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Pocket PC

Who is online

Users browsing this forum: No registered users and 9 guests

cron