http://studyhallweb.com/
プログラム学習室
[Home][Lotus Notes]ODBC

AS/400のデータベースにアクセスするサンプル

(※Lotus Notes のマクロ言語、ノーツスクリプトに関するメモです。R4.5で動作確認しています。)

ODBCを利用してNotesよりAS400のデータベースにアクセスするサンプルです。
SQLを発行し、その結果をメッセージボックスで表示します。
Sub Click(Source As Button)

    'ODBC関連オブジェクトの宣言
    Dim objCon As New ODBCConnection
    Dim objQry As New ODBCQuery
    Dim objResult As New ODBCResultSet

    'Notesオブジェクトの宣言とセット
    Dim objWs As New NotesUIWorkSpace
    Dim objUidoc As NotesUIDocument
    Dim objdoc As NotesDocument
    Set objUidoc = objWs.CurrentDocument
    Set objDoc = objUidoc.Document

    If objCon.ConnectTo("AS400 system name") Then

        Set objQry.Connection = objCon	'AS/400との接続をセット

        'SQLのセット
            'DBLIBライブラリーのDBFILEファイルより
            '会員番号(MEMNO)がA123の氏名(NAME)を抽出する
        objQry.SQL = "SELECT NAME FROM DBLIB.DBFILE WHERE MEMN0 = 'A123'"

        Set objResult.Query = objQry	'結果の格納先

        If objResult.Execute() Then        'SQLの実行
            '結果の表示(1つ目の値のみ)
            Messagebox(objResult.GetValue(1))
        Else
            Messagebox("該当なし")
        End If

        '接続を切る
        objCon.Disconnect
    Else
        'AS/400との接続失敗時
        Messagebox("Could not connect to server")
    End If
End Sub
◆AS/400のSQLに関するメモはこちら
[Home][Lotus Notes]ODBC