I have recently made an Lotus Notes Database, where i needed to get some information from DB2.
\nI this case i also had the issue that only the server could connect to the DB2.<\/p>\n
I made an agent that call another agent with the runOnServer method.
\nThen you can select a document, start a agent that calls a agent on a server, connect to db2, and update the selected document.<\/p>\n
Here is an example on how to call db2 in a agent.<\/p>\n
Option Public
\nOption Explicit
\nUselsx “NLSXLC”<\/p>\n
Sub Initialize
\n\tDim session As New NotesSession
\n\tDim db As NotesDatabase
\n\tDim agent As NotesAgent
\n\tSet db = session.CurrentDatabase
\n\tSet agent = session.CurrentAgent
\n\tDim doc As NotesDocument
\n\tDim LC_S As New LCSession
\n\tDim LC_Conn As New LCConnection( “DB2”)
\n\tDim LC_FldLst As New LCFieldList(1)
\n\tDim LC_Field As New LCField( LCTYPE_TEXT, 1)
\n\tDim strLCMsg As String
\n\tDim strLCErrorTxt As String
\n\tDim lLCMsgCode As Long
\n\tDim nStatus As Integer
\n\tDim lCount As Long
\n\tDim strSelectStatement As String
\n\tDim strKundenr As String
\n\tDim lTotal As Long
\n\tDim ngl As String
\n\tDim x As string<\/p>\n
\t‘Get doc
\n\tSet doc = db.GetDocumentByID(agent.ParameterDocID)<\/p>\n
\tLC_Conn.Userid = “SETUP_ALIAS_USER”
\n\tLC_Conn.Password = “SETUP_ALIAS_PASSWORD”
\n\tLC_Conn.Database = “SETUP_ALIAS_DB2”
\n\tLC_Conn.Disconnect
\n\tLC_S.ClearStatus
\n\tLC_Conn.Connect
\n\tPrint “Connect called”<\/p>\n
\tstrSelectStatement = “SELECT * FROM DB.Table”
\n\tlCount = LC_Conn.Execute( strSelectStatement, LC_FldLst)
\n\tPrint “Execute Select Statment called”<\/p>\n
\tIf lCount <> 0 Then
\n\t\tlCount = LC_Conn.Fetch( LC_FldLst, 1, 1)
\n\t\t‘Select what you want to get from the select
\n\t\tSet LC_Field = LC_FldLst.GetField( 1)
\n\t\tWhile ( lCount > 0 ) And ( LC_S.Status = LCSUCCESS )
\n\t\t\tx = x + LC_Field.text( 0)
\n\t\t\tlCount = LC_Conn.Fetch( LC_FldLst, 1, 1)
\n\t\t\tlTotal = lTotal + 1<\/p>\n
\t\tWend
\n\tEnd If
\n\tLC_Conn.Disconnect
\n\tLC_S.ClearStatus
\n\t‘ex: write to doc
\n\tCall doc.Replaceitemvalue(“field”,x)
\n\tCall doc.save(True, False)
\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
I have recently made an Lotus Notes Database, where i needed to get some information from DB2. I this case i also had the issue that only the server could connect to the DB2. I made an agent that call … Continue reading