NotesSQL ∼萬惡的"system error code 126"

其他的程式語言若想要存取IBM Lotus Notes的NSF檔資料
可以透過IBM自家出的NotesSQL這個工具來達成。
但你的本地端必須有安裝Note相關軟體(Client || Domino || Designer 要有其中一種)
當然還有具備足夠權限的ID檔 而且...
...
Notes.ini 的位置一定、絕對要放在C:\Lotus\Notes\ 裡面
若否，則必須自行設定系統「環境變數」給它
如圖
∼在"path"後面再加入：

;C:\Program Files\IBM\Lotus\Notes\

p.s.要以";"作為分隔。

之後就可以用一般的 Select ... 語法來存取NSF檔了！
EX：存取Names.nsf
Select FullName From People ~

FullName = 欄位名稱
People = 視界名稱

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

[Lotus script]-Word 出出出

'將Notes資料輸出並套用至Word範本檔裡面
1.首先建立一個Word的範本檔
使用「插入」、「功能變數」設定欄位作為資料儲存體

使用「插入」、「書籤」設定書籤作為插入位置

2.NOTES表單中對應匯出程式如下：

Sub WordOutOutOut( M_To As String, M_DY As String, M_DM As String, M_DD As String, M_NO As String, M_SP As String, M_SEC As String,M_AH As String,M_Sub As String,M_Body As String,M_MAIN As String,M_BEND As String)
    Dim session As New NotesSession
    Set db=session.CurrentDatabase
    Set wdoc=session.DocumentContext   
   
    DefDocPath="C:\missive_out_sample.dot" '設定路徑
   
    Set oWord = CreateObject("Word.Application")
    oWord.Application.Visible = True
    oWord.documents.Add DefDocPath, False
    Set WordDoc = oWord.activedocument
    '=======Go to bookmark=======
    WordDoc.Bookmarks("TO").Select
    Call oWord.Selection.TypeText(M_To)
    WordDoc.Bookmarks("YY").Select
    Call oWord.Selection.TypeText(M_DY)
    WordDoc.Bookmarks("MM").Select
    Call oWord.Selection.TypeText(M_DM)
    WordDoc.Bookmarks("DD").Select
    Call oWord.Selection.TypeText(M_DD)
    WordDoc.Bookmarks("NO").Select
    Call oWord.Selection.TypeText(M_NO)
    WordDoc.Bookmarks("SPEED").Select
    Call oWord.Selection.TypeText(M_SP)
    WordDoc.Bookmarks("SECURE").Select
    Call oWord.Selection.TypeText(M_SEC)
    WordDoc.Bookmarks("ATTACH").Select
    Call oWord.Selection.TypeText(M_AH)
    WordDoc.Bookmarks("SUBJECT").Select
    Call oWord.Selection.TypeText(M_Sub)
    WordDoc.Bookmarks("BODY").Select
    Call oWord.Selection.TypeText(M_BODY)
    WordDoc.Bookmarks("MAIN").Select
    Call oWord.Selection.TypeText(M_MAIN)
    WordDoc.Bookmarks("BEND").Select
    Call oWord.Selection.TypeText(M_BEND)
   
    ''==========================
    'oWord.documents(1).SaveAs "c:\Tmp\WM20101223.doc"
End Sub

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

天空藍

昨天夜裡的地震
早晨的空氣靜謐的使人煩躁
天空藍的令人心悸
彷彿又回到十年前那場浩劫一樣的場景！
吞噬多少生命的能量？

所幸一切安好

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

I'm PM ∼ 無止盡的需求變更

※既然無可避免會有的損失，就提早在專案執行前加以量化吧！

我們常常進行專案管理的時候會時常需要跟客戶拉扯
關於系統上線驗收後一些修修改改的項目、更有甚者還會有新增功能的要求出來
對於這種情況往往要耗費心力去跟客戶溝通、角力
要掌握好服務客戶跟維護自身利益的分寸常常是兩難
因此我在想是否何不當初一開始就將他量化，反而可以控制損失呢？
例如給予一定的修改時數或次數限制。



--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

平安

2010-10-03 上線

2010-10-028 小改版

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言