>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=]+; > FULLPATH('MyAccessDatabase.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 = "flights" > oCA.SelectCmd = "SELECT * FROM flights where (1=2)" > > 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 > > >SELECT 0 >USE serial >GO botto >luSerial = serial.serialno >USE > > Insert Into flights (serialNo) Values (?m.luSerial) > > Tableupdate(2,.T.,'flights') > Browse Normal > Endif > >Catch To oException > * Replace with exception handling code here > Messagebox(oException.Message) >Endtry >>