範例介紹-- Lotus Domino 與SQL Server 鏈結範例
範例介紹-- Lotus Domino 與SQL Server 鏈結範例
圖文詳細請見 lotus notes高級管理
此範例中,我們以鏈結SQL Server為範例，讓Lotus Notus能全權的對SQL資料庫作存取動作，所以此範例應有搜尋、查詢、修改、刪除…等基本操作功能。完成參考畫面如下圖所示:
操作步驟如下:
步驟1:建立SQL Server所需資料庫
首先必須在SQL Server中建立一資料庫與一資料表，名稱分別為Project15 和 people，其資料表people中的欄位如下所示:
欄位名稱 資料型態
Student_id Char 7 不能為空值
Cname Char 12 允許空值
Ename Char 20 允許空值
Address Char 50 允許空值
TEL Char 16 允許空值
步驟2:建立ODBC與SQL Server 的鏈結
開始程式集系統管理工具資料來源(ODBC)
選擇 」使用者資料來源名稱」新增選擇」SQL Server」的驅動程式完成
接下來出現」建立新的資料來源至SQL Server」,在各項填入下面資料
名稱(M): Project_U
伺服器(S): (local)
點選」以網路登入識別碼進行Windows NT認證(W)」下一步
勾選」更變預設資料庫到(D)」選擇」project15」下一步
在這各市窗直接按」完成」,如果鏈結成功則會出現下列訊息。
步驟3:套表設計
從這裡開始就要進入Lotus的設定與設計。
(1)首先我們要建立所需欄位格式如下所示:
名稱 類型
S_Name 文字/可編輯
Student_ID 文字/可編輯
Cname 文字/可編輯
Ename 文字/可編輯
Adderss 文字/可編輯
TEL 文字/可編輯
(2)再來建立所需的按鈕
參考畫面如下所示:
步驟4:初始化設定與列出所有人資料
接下來就是要設定程式碼
首先要再(Globals) 中的 (Option) 輸入
Option Public
Uselsx 「*LSXODBC」
這樣才能使用 ODBCConnection、ODBCQuery、ODBCResultSet，這三個物件。
在(Globals)中的(Declarations)中宣告基本的公用變數及Class。
然後在套表的postopen事件中輸入下列程式碼
Sub Postopen(Source As Notesuidocument)
Set con=New ODBCConnection
Set qry=New ODBCQuery
Set rs=New ODBCResultSet
Set qry.Connection = con
Set rs.Query=qry
Set ws=New notesuiworkspace
Set uidoc=ws.currentdocument
Call con.ConnectTo("project15_U","","")
qry.SQL="Select * From people"
rs.execute
If rs.IsResultSetAvailable Then
student_id=rs.GetValue("student_id")
CName=rs.GetValue("CName")
EName=rs.GetValue("EName")
Address=rs.GetValue("Address")
Tel=rs.GetValue("Tel")
Call uidoc.fieldsettext("student_id",student_id)
Call uidoc.fieldsettext("CName",CName)
Call uidoc.fieldsettext("EName",EName)
Call uidoc.fieldsettext("Address",Address)
Call uidoc.fieldsettext("Tel",Tel)
End If
End Sub
在」列出所有人資料」按鈕中的Click事件中建立同樣的程式碼，並把Sub Postopen(Source As Notesuidocument)改成Sub Click(Source As Button)即可
《解決方案》
支持~雖然看得不大明白
