In this scenario, where it goes slow, is there only ONE program open. No
network ?

Thanks

At 08:34 05/12/2003 +0200, you wrote:

>function getvalue(recordid : integer) : string;
>var
> ReturnValue : String;
>begin
> ReturnValue := 'NONE';
> try
> try
> with adataset do
> begin
> if active then close;
> if not transaction.intransaction then
> transaction.starttransaction;
> //fill the input parameters and open the dataset
> end;
> ReturnValue := adataset.fieldbyname('value').AsString;
> except
> begin
> //exception handling code here
> end;
> end;
> finally
> begin
> adataset.transaction.commit;
> adataset.close;
> end;
> end;
> result := ReturnValue;
>end;

----------


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.547 / Virus Database: 340 - Release Date: 02/12/2003


[Non-text portions of this message have been removed]