Re: Domino DB access in a High Availability environment.

Oh,
Easy

If Not Con.ConnectTo ("SYSTEMA", "UserID", "Password") Then Con.ConnectTo
("SYSTEMB", "UserID", "Password")

Walter Scanlan
Senior Software Engineer
Certified L3 Senior IT Specialist
WPLC & Cloud Computing
Office: 1 720 342 5837
Cell: 507-990-4539




From: rob@xxxxxxxxx
To: Lotus Domino on the iSeries / AS400 <domino400@xxxxxxxxxxxx>
Date: 12/18/2012 10:20 AM
Subject: Re: Domino DB access in a High Availability environment.
Sent by: domino400-bounces@xxxxxxxxxxxx



We do not replicate any Domino data via Mimix. Repeat, we omit all Domino

directories from the IFS from Mimix replication. There is no Domino data
on SystemB. Domino is not even loaded on SystemB.
All Domino data is replicated using Domino clustering only. Domino
servers on SystemA are clustered with Domino servers on mail2 and with
Domino servers on mail3.

What I am trying to solve is, let's say you have a Domino database. Let's

call it MfgPortal.nsf. And in that database you have some code like the
following (see SYSTEMA below):


Option Public
Option Declare

UseLSX "*LSXODBC"

Sub Initialize
Dim Con As New ODBCConnection
Dim Query As New Odbcquery
Dim rs As New Odbcresultset

Con.SilentMode = True

If Not Con.ConnectTo ("SYSTEMA", "UserID", "Password") Then Exit
sub

Set query.Connection = Con

query.SQL = "Select iprod, idesc from erplxf.iiml01"

Set rs.Query = query

rs.cacheLimit = 200
rs.FetchBatchSize = 100

If Not rs.Execute Then Exit Sub

If rs.Isendofdata() Then Exit Sub

rs.Nextrow
Print rs.Getvalue("iprod")+" - "+rs.Getvalue("idesc")

rs.Close(DB_CLOSE)
Con.Disconnect


End Sub


Rob Berendt