ca=NEWOBJECT('cadapter', 'cadapter.vcx') IF !ca.cursorfill() MESSAGEBOX('error') ENDIFcadapter.vcx cursorfill method:
lparameters tlUseCursorSchema, tlNoData, tuOptions, toSource set multilocks on lnConnHandle= sqlstringconnect( ; "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; " + ; "DBNAME=localhost:c:\mydb.fdb;") IF lnConnHandle <= 0 MESSAGEBOX('ODBC Connection Failed', 16, 'ODBC') RETURN .f. ENDIF SQLEXEC(lnConnHandle, 'drop table klient') lnGetData = SQLEXEC(lnConnHandle, 'CREATE TABLE KLIENT ( ' + ; 'KOOD CHAR(12), NIMI CHAR(70), A_A CHAR(35))' ) IF lnGetData <= 0 MESSAGEBOX('ODBC create table Failed', 16, 'ODBC') RETURN .f. ENDIF This.DataSource = lnConnHandle This.SelectCmd = [select klient.* from klient] This.KeyFieldList = [KOOD] This.UpdateNameList = "KOOD KLIENT.KOOD, NIMI KLIENT.NIMI" This.UpdatableFieldList = "KOOD, NIMI" THIS.Alias = 'klient' return dodefault(tlUseCursorSchema, tlNoData, tuOptions, toSource)