Cetin

Saw this code of yours and wondered if you could help me

I have an empty mdb database called flights with a numeric fields called serialno

I have an table called serial.dbf which contains serial nos - I find the last record on this file and I want to create a new record on the mdb file so that flights.serialno (the mdb file) =serial.serialno (from the dbf)

Can you help?

Colin


>>Hi everyone,
>>
>>I have created a program from VFP and would like the records be appended to an MS Access Table. Is there a special code to be used in order to append the records from VFP to MS Access when a button is clicked. ALl of the fields I used for VFP are the same fields used in MS Access.
>>
>>Thanks.
>
>Ed,
>Create a cursor adapter using ACE OLEDB driver. Rest is not much different than handling a buffered VFP table. ie:(mostly written using Data Explorer):
>
>

>Local loAccess As CursorAdapter,;
>  oConn As ADODB.Connection,;
>  oRS As ADODB.Recordset, ;
>  oException As Exception, ;
>  cConnString As String
>
>* Handle connections - insert connection code
>cConnString = [Provider=Microsoft.ACE.OLEDB.12.0;]+;
>  [Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\NorthWind.mdb;Persist Security Info=False]
>
>Try
>  oConn  = Createobject('ADODB.Connection')
>
>  * Ensure that you handle userid and password if not
>  * specified in connection string.
>  *   ex. oConn.Open(cConnString, userid, password)
>  oConn.Open(cConnString)
>
>  oRS = Createobject("ADODB.Recordset")
>  oRS.Datasource.CursorLocation = 3   &&adUseClient
>  oRS.Datasource.LockType = 3   &&adLockOptimistic
>  oRS.ActiveConnection = oConn
>
>  oCA=Createobject("CursorAdapter")
>  oCA.DataSourceType = "ADO"
>  oCA.Datasource = oRS
>  oCA.MapBinary = .T.
>  oCA.MapVarchar = .T.
>
>  oCA.Alias = "Customers"
>  oCA.SelectCmd = "SELECT * FROM customers"
>
>  If !oCA.CursorFill()
>    * Replace with error code here
>    Local laError
>    Dimension laError[1]
>    Aerror(laError)
>    Messagebox(laError[2])
>  Else
>    * Replace with user code here. Code below allows for
>    * you to edit and send updates to the backend.
>    Local laFlds,lcStr,lnFldCount,i
>    Dimension laFlds[1]
>    lnFldCount=Afields(laFlds)
>    lcStr=""
>    For i = 1 To lnFldCount
>      lcStr = lcStr + laFlds[m.i,1] +  ","
>    Endfor
>    oCA.UpdatableFieldList = lcStr
>    Insert Into customers (customerID,CompanyName) Values ('VFP#1','Customer added from VFP-1')
>    Insert Into customers (customerID,CompanyName) Values ('VFP#2','Customer added from VFP-2')
>    Tableupdate(2,.T.,'customers')
>    Browse Normal
>  Endif
>
>Catch To oException
>  * Replace with exception handling code here
>  Messagebox(oException.Message)
>Endtry
>

Cetin