Обсуждение: Re: [pgaccess] hard limit of results reached

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 DataControlVarvariable tuplescatch {unset
tuples}setwn \[focus\] ; setCursor CLOCKset res \[wpg_exec \$CurrentDB \"\$DataControlVar($base.$name,sql)\"\]pg_result
\$res-assign tuplesset fl {}foreach fd \[pg_result \$res -lAttributes\] {lappend fl \[lindex \$fd
 
0\]}set DataControlVar($base.$name,fields) \$flset DataControlVar($base.$name,recno) 0set
DataControlVar($base.$name,nrecs)\[pg_result \$res -numTuples\]setCursor NORMALpg_result \$res -clear
 
}"

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

Teo

> 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!
> 
yes, it works fine! thank you very much! 
time to release 0.98.6 :-)

bye,    Klaus

-- 
Sent through GMX FreeMail - http://www.gmx.net