Hi All,

I must insert VFP Tables records (tPlcursor ) IN EMPTY PARADOX 7 Tables.

oCA=NEWOBJECT("cursorAdapter")
  oCA.DATASOURCETYPE="ADO"
  oCA.ADDPROPERTY("oConnection",CREATEOBJECT("adodb.connection"))
  * oCA.oConnection.OPEN("Microsoft.Jet.OLEDB.4.0;Data Source=C:\Bobtest\BO\Link;Extended Properties=Paradox 7.x")
  oCA.oConnection.OPEN("Provider=MSDASQL.1;Persist Security Info=False;Data Source=Paradox amline;")
  oCA.DATASOURCE=CREATEOBJECT("adodb.recordset")
  oCA.DATASOURCE.ActiveConnection = oCA.oConnection
  oCA.DATASOURCE.CursorLocation= 3 && adUseClient
  oCA.DATASOURCE.LockType= 3 && adLockOptimistic

  oCA.ALIAS = "boaccoun"
  oCA.SELECTCMD="select boaccoun.AID, boaccoun.HEADING1 from boaccoun"
  * oCA.updateFieldList = "boaccoun.AID"
  IF NOT oCA.CURSORFILL(,.T.) && sans lire les données existantes
    ERROR MESSAGE()

  ENDIF

  USE C:\CDBK70\amline\data1\Plan IN 0
  SELECT DISTINCT Plan.numplan, Plan.denomplan FROM amline!Plan;
    ORDER BY Plan.numplan WHERE numplan BETW  "7" AND "799999" AND;
    lputinpopsy = .T. INTO CURSOR tPl


  SELECT tPl
  SCAN ALL
    *-- I want here insert records in Paradox Table...
    *-- How Can i do it ?
  ENDSCAN

How Can I do it ?

Thank in advance

bernhart