<< Click to Display Table of Contents >> Navigation:  Examples > Server > Server 5: Relation Window

This sample shows the results of using 2 related servers on a DataWindow

It shows a subclass of AdoRelationServer that has an embedded child server

 

GLOBAL goConn AS AdoConnection

CLASS PubServer INHERIT AdoRelationServer

 EXPORT oTitles AS AdoRelationServer

 

METHOD Init() CLASS PubServer

 // Create a connection with the MsDataShape provider to the Pubs database

 IF goCOnn == NULL_OBJECT

 goConn   := AdoConnection{}

 goConn:Open ( "Provider=SQLOLEDB;" + ;

 "Server=(local);uid=sa;pwd=;database=pubs",NIL,NIL,NIL)

 // Set the, so Vo2Ado can use the connection to get information

 // about the last errors that occurred

 AdoSetConnection(goConn)

 ENDIF

 // Create two related servers

 SUPER:init ( "select * from publishers",goConn,adOpenStatic,adLockReadonly,NIL)

 SELF:oTitles := AdoRelationServer{"select * from titles",;

 goConn,adOpenStatic,adLockReadonly,NIL}

 SELF:SetRelation(SELF:oTitles, #Pub_id)

 SELF:oTitles:GoTop()

 

The result is used on a Window