<< Click to Display Table of Contents >> Navigation:  Examples > Server > Server 1: Server on DataWindow

This sample shows how to use the AdoServer Class in combination with a DataWindow

 

METHOD Start CLASS App

 LOCAL oConn AS AdoConnection

 LOCAL oSrv        AS AdoServer

 LOCAL oDw        AS DataWindow

 oConn := OpenConnection()

 

 // Open static cursor (forwardonly would not work in a browser

 // and enable editing using Optimistic locking        

 oDw := DataWindow{SELF}

 oDw:QuitOnClose := TRUE

 oSrv := AdoServer{"Employee",oConn,AdOpenStatic, AdLockOptimistic,;                adCmdTable}

 oDw:Use(oSrv)

 oDw:ViewTable()

 oDw:Caption := oSrv:Name

 oDw:Show(SHOWCENTERED)

 SELF:Exec()