Message-ID: <390D365B.2495B03@flex.ro>
Date: Mon, 01 May 2000 10:46:35 +0300
From: Constantin Teodorescu <teo@flex.ro>
MIME-Version: 1.0
To: Klaus Herrmann <klaus.herrmann@gmx.net>
CC: pgsql-interfaces@hub.org
Subject: Re: [pgaccess] hard limit of results reached
References: <390B387C.4060008@gmx.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Klaus Herrmann wrote:
> 
>    Hi Folks!
> I have a *serious* problem with pgaccess. if i do a lot of queryies, i
> get this message "hard limit of results is reached..." and i have to
> restart pgaccess. this sucks, especially because i programmed some forms
> which have pretty complex and many queries. is there a chance to avoid
> this (maybe i'm just programming so bad? but this occures with the demo
> forms too), any programming tips, suggestions etc.?
> thanks in advance!
> regards,

That is a known bug!
The latest PgAccess 0.98.6 has solved it!

In file forms.tcl (directory /usr/local/pgaccess/lib)
at line 793 you should add :

pg_result \$res -clear

at the end of the open proc definition.
The right procedure should be defined as follows:


namespace eval ::DataControl($base.$name) "proc open {} {
 global CurrentDB DataControlVar
 variable tuples
 catch {unset tuples}
 set wn \[focus\] ; setCursor CLOCK
 set res \[wpg_exec \$CurrentDB \"\$DataControlVar($base.$name,sql)\"\]
 pg_result \$res -assign tuples
 set fl {}
 foreach fd \[pg_result \$res -lAttributes\] {lappend fl \[lindex \$fd
0\]}
 set DataControlVar($base.$name,fields) \$fl
 set DataControlVar($base.$name,recno) 0
 set DataControlVar($base.$name,nrecs) \[pg_result \$res -numTuples\]
 setCursor NORMAL
 pg_result \$res -clear
}"

Just let me know if you succeeded and everything is ok!

Teo