> >CLOSE DATABASES all >local oCursor as CursorAdapter, aErrors[1] > >SELECT 0 >use d:\projects\testdata\smts\syserrors > >SELECT 0 >use Temp >cursorsetprop("buffering", 5) > >oCursor = CREATEOBJECT("CursorAdapter") > >with oCursor > > .Alias = "errdata" > .BufferModeOverride = 5 > .DataSourceType = "Native" > .SelectCmd = "select * from syserrors" > .KeyFieldList = "recordid" > .Tables = "syserrors" > .UpdatableFieldList = "recordid, error, line" > .UpdateNameList = "recordid syserrors.recordid, error syserrors.error, line syserrors.line" > > if .CursorFill() > > .CursorAttach("Temp", .T.) > > SELECT Temp > TABLEUPDATE(1) > > else > > aerror(aErrors) > messagebox(aErrors[2]) > > endif > >endwith > >RETURN >