Received: from www7.gmx.net (www.gmx.net [194.221.183.47])
	by hub.org (8.9.3/8.9.3) with SMTP id FAA20982
	for <pgsql-interfaces@hub.org>; Mon, 1 May 2000 05:34:12 -0400 (EDT)
	(envelope-from Klaus.Herrmann@gmx.net)
Received: (qmail 28942 invoked by uid 0); 1 May 2000 09:34:11 -0000
Date: Mon, 1 May 2000 11:34:11 +0200 (MEST)
To: Constantin Teodorescu <teo@flex.ro>
Cc: pgsql-interfaces@hub.org
Cc: pgsql-interfaces@hub.org
Subject: Re: [pgaccess] hard limit of results reached
References: <390D365B.2495B03@flex.ro>
Message-ID: <28915.957173651@www7.gmx.net>
From: Klaus Herrmann <Klaus.Herrmann@gmx.net>
MIME-Version: 1.0
X-Authenticated-Sender: #0000374109@gmx.net
X-Authenticated-IP: [149.228.232.177]
X-Mailer: WWW-Mail 1.5 (Global Message Exchange)
X-Flags: 0001
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Archive-Number: 200005/2


> 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