>ca=NEWOBJECT('cadapter', 'cadapter.vcx') > >IF !ca.cursorfill() > MESSAGEBOX('error') > ENDIF >>
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) >
CA.BreakOnError = .T. * put error handling code into * CA.ErrorFabio