<< Click to Display Table of Contents >> Navigation:  Examples > Server > Server  3: Filters

This sample shows how to use filters for the AdoServer object

 

FUNCTION Start

 // this sample shows how to use filters for the AdoServer object

 LOCAL oConn AS AdoCOnnection

 LOCAL oSrv AS AdoServer

 LOCAL strCnn AS STRING

 LOCAL aBm        AS ARRAY

 LOCAL i AS DWORD

 strCnn := "Provider=sqloledb;" + ;

 "Data Source=(local);Initial Catalog=pubs;User Id=sa;Password=; "

 oConn := AdoConnection{}

 // Set the default connection for better error reports

 

 AdoSetConnection(oConn)

 oConn:CursorLocation := adUseClient

 oConn:Open(strCnn,NIL,NIL,NIL)

 oSrv := AdoServer{"employee",oConn,adOpenKeySet,NIL,adCmdTable}

 aBm := {}

 ? oSrv:FIELDNAME(1), oSrv:FIELDNAME(2)

 ? oSrv:RecCount, "Rows before applying a filter"

 FOR i := 1 TO 5

 oSrv:Goto(i)

 AADD(aBm, oSrv:BookMark)

 NEXT

 ? "Set filter on bookmark of 1st 5 rows"

 oSrv:SetFilter(aBm)

 oSrv:Gotop()

 ? oSrv:RecCount, "Rows after the bookmarks filter"

 DO WHILE ! oSrv:EOF

 ? oSrv:FIELDGET(1), oSrv:FIELDGET(2)

 oSrv:Skip(1)

 ENDDO

 oSrv:SetFilter("fname like 'p%'")

 oSrv:Gotop()

 ? "Set filter to firstname starting with 'P'"

 ? oSrv:RecCount, "Rows after the String filter"

 DO WHILE ! oSrv:EOF

 ? oSrv:FIELDGET(1), oSrv:FIELDGET(2)

 oSrv:Skip(1)

 ENDDO

 oSrv:SetFilter("")

 ? oSrv:RecCount, "Rows after clearing the filter"

 

 oSrv:Close()

 Wait