歡迎您光臨本站 註冊首頁

範例介紹-- Lotus Domino 與SQL Server 鏈結範例

←手機掃碼閱讀     火星人 @ 2014-03-04 , reply:0

範例介紹-- 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)即可
《解決方案》

支持~雖然看得不大明白

[火星人 ] 範例介紹-- Lotus Domino 與SQL Server 鏈結範例已經有707次圍觀

http://coctec.com/docs/service/show-post-33200.html