In message <200211060226_MC3-1-193B-6104@...>, Slim Roberts
<slim_at_rsengineering@...> writes

>
>Alan.
>Use a TIBSQL component Do (Delete from TableName where Value =:pValue)
>Params[0].AsWhatever := Value for deletion;
>ExecSQL;

IBSQL1.ExecSQL ? I thought that I had tried this... but you know how
it is, you try so many different things, and none of them seem to
work...

>
>Around this you must put a transaction.
>As to how to do the lot.
>Create a TStringList
>Add the Primary Key value to the list for each record to zap
>the do a for x = 0 to list count
>and run above SQL for each, and put the transaction around the lot

I couldn't do this, because there were over a million records

>
>HTH
>Slim
>
>Slim Roberts
>R S Engineering.
>UK
>www.rs-engineering.co.uk
>Member of the UK Borland User Group

--
Pete Clark