AdoDbServer Class

<< Click to Display Table of Contents >>

Navigation:  The Vo2Ado RDD > RDD Support Library >

AdoDbServer Class

Previous pageReturn to chapter overviewNext page

The sample AdoDbServer class shows how you can use a server class as Tabe callback class.

The class has both Callback methods and methods/accesses/assigns to get/set the advanced workarea properties


CLASS AdoDbServer INHERIT DbServer

   PROTECT sColumnList         AS USUAL

   PROTECT nCursorType         AS USUAL

   PROTECT nLockType    AS USUAL

   PROTECT nMaxRecords        AS USUAL

   PROTECT sOrderBy                AS USUAL

   PROTECT sStatement        AS USUAL

   PROTECT sCOlumn                AS USUAL

   PROTECT sWhere                        AS USUAL


METHOD ClearRecordset()                         CLASS AdoDbServer



METHOD ColumnList(sTable, sDefault)                         CLASS AdoDbServer

   RETURN iif(IsString(sColumnList), sCOlumnList, sDefault)


ACCESS ColumnList CLASS AdoDbServer

 RETURN sColumnList


ASSIGN ColumnList(sNew) CLASS AdoDbServer

 sColumnList := sNew



ACCESS Connection()                             CLASS AdoDbServer



ACCESS ConnectionString()                       CLASS AdoDbServer



METHOD CursorType(sTable, nDefault)                         CLASS AdoDbServer

   RETURN iif(IsNumeric(nCursorType), nCursorType, nDefault)


ACCESS CursorType CLASS AdoDbServer

 RETURN nCursorType


ASSIGN CursorType(nNew) CLASS AdoDbServer

 nCursorType := nNew



ACCESS HasTransaction()                         CLASS AdoDbServer



METHOD Init(oFile, lShareMode, lROMode, xDriver, aRdd) CLASS AdoDbServer

 IF IsString(oFile)

         AdoDbSetTableCallBack(oFile, SELF)

 ELSEIF IsInstanceOfUsual(oFile, #FileSpec)

         AdoDbSetTableCallBack(oFile:FileName, SELF)


         // What else ?


 SUPER:Init(oFile, lShareMode, lROMode, xDriver, aRdd)



METHOD LockType(sTable, nDefault)                           CLASS AdoDbServer

   RETURN iif(IsNumeric(nLockType), nLockType, nDefault)


ACCESS LockType CLASS AdoDbServer

 RETURN nLockType


ASSIGN LockType(nNew) CLASS AdoDbServer

 nLockType := nNew



METHOD MaxRecords(sTable, nDefault)                         CLASS AdoDbServer

   RETURN iif(IsNumeric(nMaxRecords), nMaxRecords, nDefault)


ACCESS MaxRecords CLASS AdoDbServer

 RETURN nMaxRecords


ASSIGN MaxRecords(nNew) CLASS AdoDbServer

 nMaxRecords := nNew



METHOD OrderByClause(sTable, sDefault)                      CLASS AdoDbServer

   RETURN iif(IsString(sOrderBy), sOrderBy, sDefault)


ACCESS OrderByClause CLASS AdoDbServer

 RETURN sOrderBy


ASSIGN OrderByClause(sNew) CLASS AdoDbServer

 sOrderBy := sNew



METHOD PreExecute(sTable, sDefault)                         CLASS AdoDbServer

   RETURN sDefault


METHOD RecnoColumn(sTable, sDefault)                        CLASS AdoDbServer

   RETURN iif(IsString(sColumn), sColumn, sDefault)


ACCESS RecnoColumn CLASS AdoDbServer

 RETURN sColumn


ASSIGN RecnoColumn(sNew) CLASS AdoDbServer

 sColumn := sNew



ACCESS RecordSet()                                   CLASS AdoDbServer



METHOD SaveConnection(cFileName )               CLASS AdoDbServer



METHOD SaveProvider(cFileName )               CLASS AdoDbServer



METHOD SaveTableDef(cFileName)                  CLASS AdoDbServer



METHOD Seek(uSearchExpr, lSoftSeek, lLast) CLASS AdoDbServer


 lOk := SUPER:Seek(uSearchExpr, lSoftSeek, lLast)




ACCESS ServerFilter()                           CLASS AdoDbServer



ASSIGN ServerFilter(cFilter )                   CLASS AdoDbServer



ACCESS SQLString()                              CLASS AdoDbServer



METHOD TransactionBegin()                       CLASS AdoDbServer



METHOD TransactionCommit()                      CLASS AdoDbServer



METHOD TransactionRollBack()                    CLASS AdoDbServer



METHOD WarningMessage(sTable, sMessage)                   CLASS AdoDbServer

   RETURN sMessage


METHOD WhereClause(sTable, sDefault)                           CLASS AdoDbServer

   RETURN iif(IsString(sWhere), sWhere, sDefault)


ACCESS WhereClause CLASS AdoDbServer

 RETURN sWhere


ASSIGN WhereClause(sNew) CLASS AdoDbServer

 sWhere := sNew