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. ENDWITHwhat is Bad in my code ?