by HI Malcolm,
I will use it as I will have time. Thank you very much for help.
Armand Pirvu - CA-Ingres Senior DBA
Tel: +40-(0)1-302-1790
GSM: +40-(0)92-294-656
> Sent: Friday, October 23, 1998 1:00 AM
> To: Armand Pirvu
> Subject: Re: openroad-users Contingency plan in OpenROAD
> > Hi chaps,
> > I am facing a situation where I am my back on the wall.
> > I have two servers, server1 and server2.
> > >From server1 I am replicating to server2.
> > I also have an application written in OpenROAD on Win95.
> > First I connect to server1 and I work there.
> > Suppose that server1 goes down.
> > I will have all data on server2.
> > Now, the question is: Is there any way so that my application switches
> > automatically to server2? Or, can do this replicator?
> > If it is in the application, how should I implement it and which should
> be
> > the code that I will write?
> > Any ideeas are welcome.
> > Thank you very much
> > Armand Pirvu - CA-Ingres Senior DBA
> > Tel: +40-(0)1-302-1790
> > GSM: +40-(0)92-294-656
> Take a look at CurFrame.DBSession. You can inquire on its
> state to detect if the session is no longer connected and then
> connect to another server...
> IF CurFrame.DBSession.State = DS_DISCONNECTED THEN
> /** connect to backup server **/
> g_status = session_2.Connect(Database = 'dbname', Flags = 'your
> connect
> flags');
> IF g_status != ER_OK THEN
> MESSAGE 'Unable to establish a session with dbname';
> EXIT;
> ENDIF;
> CurFrame.DBSession = session_2;
> ENDIF;
> You could put this code into a user event in a ghost frame
> which could either be raised on a periodic basis or when opening
> a new frame, or just prior to making a call to the server (i.e. issuing
> some SQL statement). Note however that you need to manage
> your DB sessions from a ghost frame which is at the top of the
> calling tree because any frames subsequently opened will inherit
> that calling frames DBSession.
> Hope this helps.
> --
> -------------------------------------------------------------
> Malcolm Thatcher
> Managing Director, Thentec Group (http://www.thentec.com.au)
> Thentec Group of Companies
> Mezzanine Level, 185 Moggill Road,
> Taringa Qld 4068, AUSTRALIA
> Phone: +61 7 3371 6611 Fax: +61 7 3371 6633
> Thentec - "Partnering with our clients to enhance the way they do
> business"