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