× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.