Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  newsreader  groups  login

Message-ID:  

Ahead warp factor one, Mr. Sulu.

devel / comp.lang.xharbour / Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000

SubjectAuthor
* Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETOleon ravel
`* Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0)Anderson Cardoso
 `- Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0)leon ravel

1
Re: Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000

<9e4a74dd-11f1-43e5-bf5d-dd0c8fb5bbc9n@googlegroups.com>

  copy mid

https://www.novabbs.com/devel/article-flat.php?id=10048&group=comp.lang.xharbour#10048

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a05:622a:1307:b0:403:cecf:8c12 with SMTP id v7-20020a05622a130700b00403cecf8c12mr21332qtk.5.1692362332097;
Fri, 18 Aug 2023 05:38:52 -0700 (PDT)
X-Received: by 2002:a05:6a00:992:b0:67d:41a8:3e19 with SMTP id
u18-20020a056a00099200b0067d41a83e19mr1346012pfg.3.1692362331679; Fri, 18 Aug
2023 05:38:51 -0700 (PDT)
Path: i2pn2.org!i2pn.org!news.1d4.us!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Fri, 18 Aug 2023 05:38:51 -0700 (PDT)
In-Reply-To: <d1007e4c-e54f-4a41-892d-e8b3743328e7n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=2001:861:2081:2700:3d18:3ff2:8172:4db1;
posting-account=BucP6AoAAADwZS2GzTFzmbxX7QtkBPkl
NNTP-Posting-Host: 2001:861:2081:2700:3d18:3ff2:8172:4db1
References: <031324cb-f191-4815-9a1e-030818f5fd00n@googlegroups.com> <d1007e4c-e54f-4a41-892d-e8b3743328e7n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9e4a74dd-11f1-43e5-bf5d-dd0c8fb5bbc9n@googlegroups.com>
Subject: Re: Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0)
LETO error = 21: EG_OPEN No 1000
From: ravel.li...@gmail.com (leon ravel)
Injection-Date: Fri, 18 Aug 2023 12:38:52 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 4635
 by: leon ravel - Fri, 18 Aug 2023 12:38 UTC

Le mardi 8 août 2023 à 01:09:36 UTC+2, Anderson Cardoso a écrit :
> Em sexta-feira, 21 de julho de 2023 às 07:12:40 UTC-3, leon ravel escreveu:
> > Hi,
> > using harbour lastest version and Letodbf lastest version, with the use of a filter, dbUsearea generates an error before opening the file again witout using dbclearfilter() before dbclosearea().
> > Best regards,
> > Edmond
> >
> > private Mydbf:="//127.0.0.1:2812/\Testdbf.dbf"
> > private cfilter:='FIELD1="ABC"'
> > dbCreate( Mydbf , { {"FIELD1","C",3,0} } , "LETO" )
> > dbUsearea( .F. , "LETO" , Mydbf , NIL , .T. , .F. )
> > dbSetfilter( &( "{|| "+cfilter+" }" ) , cfilter ) // or dbSetfilter( {|| &cfilter } , cfilter )
> > // bug without dbclearfilter()
> > dbclosearea()
> >
> > // -> error += DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000
> > // letodbf.log -> ERROR leto_ParseCommand()
> Hi,
>
> Didn´t work for me too but I made some changes for you and this code below works:
>
> // servidor LETODBf
> #include "rddleto.ch" // defines do RDD
> #include "dbinfo.ch" // Header file for the RDD API Index OrderInfo and DBInfo support
> #include "leto_std.ch" // traduz os comandos para o LETO
> #define __LETO_TRANSLATE_FILE_ALL
> #include "letofile.ch" // traduz todas as funções para o LETO
> REQUEST RDDLETO
> REQUEST RDDInfo
>
> FUNCTION MAIN()
> private Mydbf:="//127.0.0.1:2812/"
> private cfilter:='FIELD1="ABC"'
> setmode(25,80)
> *****************************************************
> *** DEFINIR TIPO DE BANCO DE DADOS PADRÃO: DBFCDX ***
> *****************************************************
> ANNOUNCE RDDSYS
> REQUEST DBFCDX
> ANNOUNCE FPTCDX
> REQUEST DBFFPT
> Request ordfor
> **********************************
> *** CODEPAGE E CHARSET
> **********************************
> REQUEST HB_LANG_PT
> REQUEST HB_CODEPAGE_PT850
>
> ***************************************************
> *** CONFIGURAÇÃO DO BANCO DE DADOS PADRÃO *********
> ***************************************************
> RDDSETDEFAULT("DBFCDX")
> RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL
> SET AUTOPEN OFF
> SET OPTIMIZE ON
> SET HARDCOMMIT OFF
> SET DELETED ON
> RDDSETDEFAULT( "LETO" )
>
> IF leto_Connect( Mydbf ) == -1
> ALERT("Nenhum LetoDBF Server encontrado - Erro: " + leto_Connect_Err( .T. ) )
> QUIT
> ELSE
> ? "LETODBF DATABASE MANAGER running"
> ENDIF
>
> ? "Press ALT+D and read line by line with debug to see it working. Type F6 to see opened DBFs."
> INKEY(0)
>
> dbCreate( "mydbf" , { {"FIELD1","C",3,0} } )
> dbUsearea( .F. ,, "mydbf" ,,, .T. , .F. )
>
> dbSetfilter( {|| &(cfilter) } , cfilter ) // or dbSetfilter( &( "{|| "+cfilter+" }" ) , cfilter )
>
> dbclosearea()

Hi Anderson,
dbSetfilter( {|| &(cfilter) } , cfilter ) didn´t work for me

dbSetfilter() works without the 2nd parameter and the exe does not bug when opening the file again.
dbSetfilter( {|| &cfilter } ) // ok

Best regards
Edmond

Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000

<031324cb-f191-4815-9a1e-030818f5fd00n@googlegroups.com>

  copy mid

https://www.novabbs.com/devel/article-flat.php?id=10939&group=comp.lang.xharbour#10939

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a37:87c4:0:b0:762:5081:31a9 with SMTP id j187-20020a3787c4000000b00762508131a9mr8109qkd.0.1689934359592;
Fri, 21 Jul 2023 03:12:39 -0700 (PDT)
X-Received: by 2002:a05:6870:c7b3:b0:1b3:f155:5dd3 with SMTP id
dy51-20020a056870c7b300b001b3f1555dd3mr2476160oab.7.1689934359312; Fri, 21
Jul 2023 03:12:39 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Fri, 21 Jul 2023 03:12:39 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2001:861:2081:2700:3d18:3ff2:8172:4db1;
posting-account=BucP6AoAAADwZS2GzTFzmbxX7QtkBPkl
NNTP-Posting-Host: 2001:861:2081:2700:3d18:3ff2:8172:4db1
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <031324cb-f191-4815-9a1e-030818f5fd00n@googlegroups.com>
Subject: Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETO
error = 21: EG_OPEN No 1000
From: ravel.li...@gmail.com (leon ravel)
Injection-Date: Fri, 21 Jul 2023 10:12:39 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1783
 by: leon ravel - Fri, 21 Jul 2023 10:12 UTC

Hi,
using harbour lastest version and Letodbf lastest version, with the use of a filter, dbUsearea generates an error before opening the file again witout using dbclearfilter() before dbclosearea().
Best regards,
Edmond

private Mydbf:="//127.0.0.1:2812/\Testdbf.dbf"
private cfilter:='FIELD1="ABC"'
dbCreate( Mydbf , { {"FIELD1","C",3,0} } , "LETO" )
dbUsearea( .F. , "LETO" , Mydbf , NIL , .T. , .F. )
dbSetfilter( &( "{|| "+cfilter+" }" ) , cfilter ) // or dbSetfilter( {|| &cfilter } , cfilter )
// bug without dbclearfilter()
dbclosearea()

// -> error += DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000
// letodbf.log -> ERROR leto_ParseCommand()

Re: Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000

<d1007e4c-e54f-4a41-892d-e8b3743328e7n@googlegroups.com>

  copy mid

https://www.novabbs.com/devel/article-flat.php?id=10951&group=comp.lang.xharbour#10951

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a05:622a:181c:b0:40f:df11:8c07 with SMTP id t28-20020a05622a181c00b0040fdf118c07mr38102qtc.1.1691449775349;
Mon, 07 Aug 2023 16:09:35 -0700 (PDT)
X-Received: by 2002:a9d:740d:0:b0:6b7:4ec4:cbb1 with SMTP id
n13-20020a9d740d000000b006b74ec4cbb1mr12469002otk.7.1691449774845; Mon, 07
Aug 2023 16:09:34 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Mon, 7 Aug 2023 16:09:34 -0700 (PDT)
In-Reply-To: <031324cb-f191-4815-9a1e-030818f5fd00n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=206.42.32.40; posting-account=vXb10QoAAACtql4X4XBjGCZA6sGzs_sw
NNTP-Posting-Host: 206.42.32.40
References: <031324cb-f191-4815-9a1e-030818f5fd00n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d1007e4c-e54f-4a41-892d-e8b3743328e7n@googlegroups.com>
Subject: Re: Letodbf error with dbSetfilter and dbclosearea : DBUSEAREA(0)
LETO error = 21: EG_OPEN No 1000
From: acardoso...@gmail.com (Anderson Cardoso)
Injection-Date: Mon, 07 Aug 2023 23:09:35 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 3907
 by: Anderson Cardoso - Mon, 7 Aug 2023 23:09 UTC

Em sexta-feira, 21 de julho de 2023 às 07:12:40 UTC-3, leon ravel escreveu:
> Hi,
> using harbour lastest version and Letodbf lastest version, with the use of a filter, dbUsearea generates an error before opening the file again witout using dbclearfilter() before dbclosearea().
> Best regards,
> Edmond
>
> private Mydbf:="//127.0.0.1:2812/\Testdbf.dbf"
> private cfilter:='FIELD1="ABC"'
> dbCreate( Mydbf , { {"FIELD1","C",3,0} } , "LETO" )
> dbUsearea( .F. , "LETO" , Mydbf , NIL , .T. , .F. )
> dbSetfilter( &( "{|| "+cfilter+" }" ) , cfilter ) // or dbSetfilter( {|| &cfilter } , cfilter )
> // bug without dbclearfilter()
> dbclosearea()
>
> // -> error += DBUSEAREA(0) LETO error = 21: EG_OPEN No 1000
> // letodbf.log -> ERROR leto_ParseCommand()

Hi,

Didn´t work for me too but I made some changes for you and this code below works:

// servidor LETODBf
#include "rddleto.ch" // defines do RDD
#include "dbinfo.ch" // Header file for the RDD API Index OrderInfo and DBInfo support
#include "leto_std.ch" // traduz os comandos para o LETO
#define __LETO_TRANSLATE_FILE_ALL
#include "letofile.ch" // traduz todas as funções para o LETO
REQUEST RDDLETO
REQUEST RDDInfo

FUNCTION MAIN()
private Mydbf:="//127.0.0.1:2812/"
private cfilter:='FIELD1="ABC"'

setmode(25,80)
*****************************************************
*** DEFINIR TIPO DE BANCO DE DADOS PADRÃO: DBFCDX ***
*****************************************************
ANNOUNCE RDDSYS
REQUEST DBFCDX
ANNOUNCE FPTCDX
REQUEST DBFFPT
Request ordfor
**********************************
*** CODEPAGE E CHARSET
**********************************
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

***************************************************
*** CONFIGURAÇÃO DO BANCO DE DADOS PADRÃO *********
***************************************************
RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL
SET AUTOPEN OFF
SET OPTIMIZE ON
SET HARDCOMMIT OFF
SET DELETED ON
RDDSETDEFAULT( "LETO" )

IF leto_Connect( Mydbf ) == -1
ALERT("Nenhum LetoDBF Server encontrado - Erro: " + leto_Connect_Err( .T. ) )
QUIT
ELSE
? "LETODBF DATABASE MANAGER running"
ENDIF

? "Press ALT+D and read line by line with debug to see it working. Type F6 to see opened DBFs."
INKEY(0)

dbCreate( "mydbf" , { {"FIELD1","C",3,0} } )
dbUsearea( .F. ,, "mydbf" ,,, .T. , .F. )

dbSetfilter( {|| &(cfilter) } , cfilter ) // or dbSetfilter( &( "{|| "+cfilter+" }" ) , cfilter )

dbclosearea()

1
server_pubkey.txt

rocksolid light 0.9.81
clearnet tor