Hi all,

I try to delete rows in a cursorAdapter

oconnection = CREATEOBJECT( "adodb.connection" )
  
THIS.cConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ ;
THIS.gboblinkdir + ";Extended Properties=Paradox 7.x"
oconnection.ConnectionString = THIS.cConnectString && good string.


local loRS as ADODB.Recordset
loRS = createobject('ADODB.RecordSet')
loRS.CursorLocation = 3  && adUseClient
loRS.LockType       = 3  && adLockOptimistic


TRY
  oconnection.OPEN()
CATCH TO loException
  =ErrorMsg(" La connection " + THIS.gboblinkdir + m.cFich + " a échoué ..!" )
ENDTRY

IF VARTYPE( loException ) = "O"
  RETURN lnretval
ENDIF
*------------------------------------
oCA = NEWOBJECT( "sfCursorAdapterAdo") && cursorAdapter

WITH oCA
 .ADOCODEPAGE = 850
.DataSource.ActiveConnection = oconnection
.DataSource = loRS
.ALIAS 	= "Alias" + m.cFich && "boaccoun"
.TABLES	= THIS.cDossierJn + UPPER( m.cFich ) && "boaccoun"
 .SELECTCMD=	"select AID, HEADING1 from " + .TABLES
 .KEYFIELDLIST	=	"AID"
  .UPDATENAMELIST = 	"AID , HEADING1"
 .UPDATABLEFIELDLIST = "AID,HEADING1"

IF .CURSORFILL( .F. , .F. ) && lire les données existantes
  AERROR( laErrors )
   MESSAGEBOX(  laErrors[2] )
ENDIF

      SELECT (  .ALIAS )
      oconnection.execute( "delete from " + .TABLES )

SUSPEND
**- Browse and NO Rows deleted ( =Tableupdate( .T. ) give nothing....


      INSERT INTO ( .ALIAS )  ;
        SELECT DISTINCT P.numplan AS AID , P.denomplan AS HEADING1;
        FROM amline!Plan P WHERE ;
        P.numplan BETW "7" AND "799999" AND P.lputinpopsy = .T.
ENDWITH

what is Bad in my code ?
i's possible to have a sample with DeleteCmdDataSourceType , DeleteCmdDataSource ,CursorAdapter.DeleteCmd ?

Thank in advance

bernhart