Hi boris,

there are no error . The records are may be deleted but not packed...
How pack a record ?


>>Hi all,
>>
>>

>>
>>sqlH = SQLCONNECT('AmlineBobConnection')
>>
>>IF sqlH < 0
>>  =ErrorMsg(" Impossible de se connecter à PARADOX ! ")
>>  RETURN .F.
>>ENDIF
>>
>>*--- Compan
>>IF SQLEXEC(sqlH,"DELETE FROM XYCOMPAN where 1=1") < 1
>>  =ErrorMsg(" Impossible de vider la table 'XYCompan' ")
>>  RETURN .F.
>>ENDIF
>>
>>

>>
>>The table XyCOMPAN is not empty ?
>>Please see attachmen...
>>
>>Thank in advance for help
>
>Did you get error message?
>If so why not use AERROR() to get more info?