| Author | Topic: Foxpro and Xbase | |
|---|---|---|
 | Alain R | Foxpro and Xbase on Wed, 22 Apr 2015 17:08:53 +0200 |
| Andreas Gehrs-Pahl | Re: Foxpro and Xbase on Thu, 23 Apr 2015 12:02:39 -0400 |
| Alain R | Re: Foxpro and Xbase on Fri, 24 Apr 2015 10:17:40 +0200 Bonjour Andreas
Thanks to your answer.
I join a pdf with the structure of the FOX DBF
The fields to indexed is "Clenunik_1"
It's a Character Fieldtype BUT now, a modification on the structure appears
with "Field NULL" = True !!!!!!!
Before it was False
Evidently,I can't modified the Structure !
It's possible to use this DBF wtih Xbase ?
Thanks a lot
I use this dbesys :
//////////////////////////////////////////////////////////////////////
DBESYS.PRG
Copyright:
Alaska Software, (c) 1998-2006. All rights reserved.
Contents:
Xbase++ DatabaseEngine startup/preloader
Syntax:
DbeSys() is called automatically at program start before the
function MAIN.
//////////////////////////////////////////////////////////////////////
#define MSG_DBE_NOT_LOADED " database engine not loaded"
#define MSG_DBE_NOT_CREATED " database engine could not be created"
*******************************************************************************
* DbeSys() is always executed at program startup
*******************************************************************************
PROCEDURE dbeSys()
/*
* The lHidden parameter is set to .T. for all database engines
* which will be combined to a new abstract database engine.
*/
LOCAL aDbes := { { "DBFDBE", .T.},;
{ "NTXDBE", .T.},;
{ "DELDBE", .F.},;
{ "SDFDBE", .F.} }
LOCAL aBuild :={ { "DBFNTX", 1, 2 } }
LOCAL i
/*
* Set the sorting order and the date format
*/
SET COLLATION TO FRENCH
SET DATE TO FRENCH
SET CENTURY ON
/*
* load all database engines
*/
FOR i:= 1 TO len(aDbes)
IF ! DbeLoad( aDbes[i][1], aDbes[i][2])
Alert( aDbes[i][1] + MSG_DBE_NOT_LOADED , {"OK"} )
ENDIF
NEXT i
/*
* create database engines
*/
FOR i:= 1 TO len(aBuild)
IF ! DbeBuild( aBuild[i][1], aDbes[aBuild[i][2]][1],
aDbes[aBuild[i][3]][1])
Alert( aBuild[i][1] + MSG_DBE_NOT_CREATED , {"OK"} )
ENDIF
NEXT i
RETURN
EOF Struct Fox.pdf |
| Alain R | Re: Foxpro and Xbase on Sat, 25 Apr 2015 13:09:00 +0200 Hello I modified my Subprogram dbesys.prg as in the attached file. Now, The indexations works correctly excepted for "clenunik_1" declared in foxpro as field character with Activated NULL!! At the moment, I stopped this indexation but I wait for your ideas Thanks a lot Alain "Alain R" <excalibur-66@orange.fr> a écrit dans le message de groupe de discussion : 6ca3eb0d$6bedccaa$4522e@news.alaska-software.com... > Bonjour Andreas > > Thanks to your answer. > > I join a pdf with the structure of the FOX DBF > The fields to indexed is "Clenunik_1" > It's a Character Fieldtype BUT now, a modification on the structure > appears > with "Field NULL" = True !!!!!!! > Before it was False > Evidently,I can't modified the Structure ! > It's possible to use this DBF wtih Xbase ? > > Thanks a lot > > I use this dbesys : > ////////////////////////////////////////////////////////////////////// > > DBESYS.PRG > > Copyright: > Alaska Software, (c) 1998-2006. All rights reserved. > > Contents: > Xbase++ DatabaseEngine startup/preloader > > Syntax: > DbeSys() is called automatically at program start before the > function MAIN. > > ////////////////////////////////////////////////////////////////////// > > > #define MSG_DBE_NOT_LOADED " database engine not loaded" > #define MSG_DBE_NOT_CREATED " database engine could not be created" > > ******************************************************************************* > * DbeSys() is always executed at program startup > ******************************************************************************* > PROCEDURE dbeSys() > /* > * The lHidden parameter is set to .T. for all database engines > * which will be combined to a new abstract database engine. > */ > LOCAL aDbes := { { "DBFDBE", .T.},; > { "NTXDBE", .T.},; > { "DELDBE", .F.},; > { "SDFDBE", .F.} } > LOCAL aBuild :={ { "DBFNTX", 1, 2 } } > LOCAL i > > /* > * Set the sorting order and the date format > */ > SET COLLATION TO FRENCH > SET DATE TO FRENCH > SET CENTURY ON > > /* > * load all database engines > */ > FOR i:= 1 TO len(aDbes) > IF ! DbeLoad( aDbes[i][1], aDbes[i][2]) > Alert( aDbes[i][1] + MSG_DBE_NOT_LOADED , {"OK"} ) > ENDIF > NEXT i > > /* > * create database engines > */ > FOR i:= 1 TO len(aBuild) > IF ! DbeBuild( aBuild[i][1], aDbes[aBuild[i][2]][1], > aDbes[aBuild[i][3]][1]) > Alert( aBuild[i][1] + MSG_DBE_NOT_CREATED , {"OK"} ) > ENDIF > NEXT i > > RETURN > > > EOF > > DBESYSJC.pdf |
| Andreas Gehrs-Pahl | Re: Foxpro and Xbase on Sat, 25 Apr 2015 13:12:32 -0400 Alain, Posting PDF files instead of text/program files is a bad idea, as it unnecessarily increases the length of the post, and makes it much more complicated to extract any of the information from those files. To answer your main question -- as Peter Alderliesten already did in the GUI newsgroup -- just add the following command to your code, before you open the database: "Set NullValue Off". You can place that line into the DbeSys() procedure if you want, as you probably want this to be the default behavior for all your databases. I have attached a small demo program, based on your two PDF files that shows that this will work. Just remark out the "NullValue" line in the DbeSys() procedure, and you will get the same error(s) as you reported. Hope that helps, Andreas Andreas Gehrs-Pahl Absolute Software, LLC phone: (989) 723-9927 email: Andreas.GP@Charter.net web: http://www.Aerospace-History.net Fox_Null.zip |
| Alain R | Re: Foxpro and Xbase on Thu, 30 Apr 2015 11:43:49 +0200 |