当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2009年1月5日月曜日

データベースの検索5

新年あけましておめでとうございます。
2009年ですね。まぁ、別になんにもないんですが・・・

今年もゆる~いサンプルをお届けして参りますので、よろしくお願いします。

さて、一発目は、まだ紹介していなかったのがあったのか!?というデータベース検索です。
NoteIDによる検索です。
GetDocumentByIDというメソッドです。
このNoteIDというのは、また厄介なもので、同じレプリカIDのDBでも、違うIDになるのです。
なので、このメソッドを使って検索する場合、レプリカには対応できないと言うことを注意してください。

サンプルは、自文書のNoteIDを使って、NotesDBを検索して、そこから文書のタイトルをプロンプト表示するものです。
自分自身を検索するので、あまり良いサンプルとは言い難いですが、そこは応用を利かせてみてください。

---------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim uid As String

Dim db As NotesDatabase
Dim doc2 As NotesDocument

'現在の文書の文書IDを取得する
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
uid = doc.NoteID

'自DBで、文書IDを元に文書を検索する
Set db = session.CurrentDatabase
Set doc2 = db.GetDocumentByID( uid )

Messagebox "文書のタイトルは、『" + doc2.Subject(0) + "』です。", 0, "データベースの検索"
End Sub

Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: