CREATE DATABASE DATA1
OPEN DATABASE DATA1
CREATE TABLE Table1 (Id Int AUTOINC NEXTVALUE 1, Name C(50))
CLOSE DATABASES ALL

oCa = NEWOBJECT([oCa])
oCA.CursorFill()
CURSORSETPROP("Buffering",5,oCA.Alias)
FOR asd = 1 TO 50
    INSERT INTO (oCA.Alias) (Name) VALUES ([77777])
NEXT
IF NOT TABLEUPDATE(1, .t., oCA.Alias)
   AERROR(aaa)
   Messagebox(aaa[1,2])
ENDIF
BROWSE 
FOR asd = 1 TO 50
    INSERT INTO (oCA.Alias) (Name) VALUES ([77777])
NEXT
BROWSE 
TABLEREVERT(.t.,oCa.Alias)
BROWSE 
SELECT Table1
BROWSE 




**************************************************
*-- Class:        oca (d:\catest\testme.vcx)
*-- ParentClass:  cursoradapter
*-- BaseClass:    cursoradapter
*-- Time Stamp:   02/02/07 03:40:10 PM
*
#INCLUDE "d:\all_zapl\include\aladin.h"
*
DEFINE CLASS oca AS cursoradapter


    Height = 22
    Width = 23
    SelectCmd = "select ID, NAME from TABLE1"
    CursorSchema = "ID I, NAME C(50)"
    Alias = "cursor1"
    DataSourceType = "Native"
    Flags = 0
    FetchSize = -1
    WhereType = 1
    KeyFieldList = "ID"
    Tables = "TABLE1"
    UpdatableFieldList = "NAME"
    UpdateNameList = "ID TABLE1.ID, NAME TABLE1.NAME"
    InsertCmdRefreshFieldList = "ID"
    InsertCmdRefreshKeyFieldList = ""
    InsertCmdRefreshCmd = "SELECT Id FROM Table1 WHERE Id = GETAUTOINCVALUE(0)"
    RefreshIgnoreFieldList = ""
    Name = "oca"


    PROCEDURE Init
        *** Setup code: DO NOT REMOVE
        set multilocks on
        llReturn = dodefault()
        *** End of Setup code: DO NOT REMOVE
        *** Select connection code: DO NOT REMOVE

        local lcDBC
        lcDBC = 'DATA1.DBC'
        if dbused(lcDBC)
            set database to (lcDBC)
        else
            open database (lcDBC)
        endif
        *** End of Select connection code: DO NOT REMOVE

        *** Setup code: DO NOT REMOVE
        return llReturn
        *** End of Setup code: DO NOT REMOVE
    ENDPROC

ENDDEFINE
*
*-- EndDefine: oca
**************************************************