>CLEAR >local loConnDataSource >loConnDataSource = createobject('ADODB.Connection') >loConnDataSource.ConnectionString = [provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\MailDat.sdf] >loConnDataSource.Open() >lodo = CreateObject("CursorAdapter") >lodo.Alias = "Test" >lodo.DataSourceType="ADO" >lodo.DataSource = createobject('ADODB.RecordSet') >lodo.DataSource.CursorLocation = 3 && adUseClient >lodo.DataSource.LockType = 3 && adLockOptimistic >lodo.DataSource.ActiveConnection = loConnDataSource >lodo.DataSource.CursorLocation = 3 && adUseClient > >DO CASE > CASE .F. > *Microsoft Cursor Engine : Multiple-step operation generated errors. Check each status value > lodo.CursorSchema = "ID I, VAL I" > lodo.UpdatableFieldList = "ID, VAL" > lodo.UpdateNameList = "ID Test.ID, VAL Test.VAL" > lodo.Tables = "Test" > lodo.KeyFieldList ="ID" > CASE .T. > ** Cannot insert an empty row from a view or CursorAdapter into its base table(s). > lodo.InsertCmd="insert into Test (Val) Values (?Test.Val)" >ENDCASE > >lodo.SelectCmd="select * from Test" >lodo.CursorFill() > >INSERT INTO Test (Val) VALUES (2) > >? TABLEUPDATE() >=aerror(a) >LIST MEMORY LIKE a TO temp.txt > >TRY > CLOSE DATABASES ALL >CATCH > =aerror(a) > LIST MEMORY LIKE a > ? TABLEREVERT() > CLOSE DATABASES ALL >ENDTRY >