日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
簡單實現(xiàn)VB.NET打開Notes數(shù)據(jù)庫

VB.NET編程語言可以幫助我們輕松的實現(xiàn)各種數(shù)據(jù)庫的操作，比如今天為大家介紹的VB.NET打開Notes數(shù)據(jù)庫這一方法，就可以通過本文介紹的方法輕松的實現(xiàn)。下面大家就一起來看看具體操作方法。#t#

一、前言

acerun： yes"> Visual Basic是微軟（中國）有限公司在中國力推的編程工具，它具有易學(xué)易用、編程簡潔、程序集成化程度高等特點。Lotus Notes是Lotus公司推出的群件系統(tǒng)，它不僅僅是個應(yīng)用軟件，更是一個開發(fā)平臺。

Notes數(shù)據(jù)庫是文檔型數(shù)據(jù)庫，它使用LotusScript編寫相應(yīng)的代碼完成設(shè)計者的需求。LotusScript語法類似于Visual Basic的語法，兩者之間有什么聯(lián)系呢？如何使用 Visual Basic 應(yīng)用與Notes數(shù)據(jù)之間進(jìn)行交互呢？Visual Basic也能像在Notes中一樣輕松訪問Notes類。本文討論了使用Visual Basic 中訪問Notes類的方法。

二、設(shè)計VB.NET打開Notes數(shù)據(jù)庫思路

Visual Basic中可以通過OLE功能來使用Notes.NotesUIWorkspace 和 Notes.NotesSession訪問Notes類。使用CreatObject得到NotesUIWorkspace 和NotesSession對象。下面幾行Visual Basic代碼得到當(dāng)前計算機上一個名為“testdb.nsf”的數(shù)據(jù)庫對象。

 
 
 
    
  
  
  
  1. Dim session As Object  
    2.   
  
  
  2. Dim db As Obiect  
    3.   
  
  
  3. Dim doc As Obiect  
    4.   
  
  
  4. Set session = CreatObject
     (“Notes.NotesSession”)  
    5.   
  
  
  5. Set db = session.Get
    Database(“”,”testdb.nsf”) 
    6.

要通過Visual Basic 在桌面上打開Notes 數(shù)據(jù)庫，應(yīng)先得到NotesUIWorkspace對象，然后通過openDatabase 函數(shù)打開相應(yīng)的數(shù)據(jù)庫即可。

1. 在 Visual Basic 中不能像在LotusScript 中那樣創(chuàng)建新的Notes對象，因此只能通過NotesUIWorkspace 和 NotesSession 這兩個頂類層訪問其他Notes對象。LotusScipt中的Notes類提供了一個非常完整的遍歷整個層次結(jié)構(gòu)的方法，我們完全可以用這個方法得到任何需要的Notes類。

2. 在Visual Basic中所有的Notes變量都應(yīng)聲明為Object類型。

3. 在Visual Basic 中訪問Notes類，首先Visual Basic必須與notes裝在同一臺計算機上。

4. 使用上面的方法打開notes數(shù)據(jù)庫時，會出現(xiàn)無法將notes窗口移到前端的情況。調(diào)用Windows API中的ShellExecute即可解決這個問題。

三、VB.NET打開Notes數(shù)據(jù)庫的程序?qū)崿F(xiàn)

下面這段程序打開一個Notes數(shù)據(jù)庫并把它移到最前面，使用戶看到這個數(shù)據(jù)庫。

 
 
 
    
  
  
  
  1. Public Declare Funcrion Shell
    Execute Lib “Shell32.dll” Alias
     “ShellExecuteA”_  
    2.   
  
  
  2. (byval hWnd As long, byval 
    IpOperation As String , byval 
    IpFile As String,_  
    3.   
  
  
  3. Byval IpParameters As String, 
    byval IpDirectory As Long,_  
    4.   
  
  
  4. Byval nShowCmd As Long ) As Long  
    5.   
  
  
  5. ‘將Notes對象聲明為Object  
    6.   
  
  
  6. dim session as object  
    7.   
  
  
  7. dim uiWs as object  
    8.   
  
  
  8. dim dbname as string  
    9.   
  
  
  9. dim servername as string  
    10.   
  
  
  10. dim iRet as integer  
    11.   
  
  
  11. ‘在此填入你要打開的數(shù)據(jù)庫和服務(wù)器名  
    12.   
  
  
  12. dbname = “ciphercipher.nsf”  
    13.   
  
  
  13. servername = “rtpswgsserver”  
    14.   
  
  
  14. ‘創(chuàng)建NotesSession 對象，如果Notes
    已經(jīng)運行，這句程序?qū)⒋蜷_Notes窗口；
    如果沒有運行Notes，則啟動它  
    15.   
  
  
  15. set session = CreateObject 
    (“Notes.NotesSession”)  
    16.   
  
  
  16. ‘通過調(diào)用Windows API 函數(shù)使Notes
    窗口在前臺打開  
    17.   
  
  
  17. iRet = ShellExecute(Me.hWnd,
    ”open”,”notes.exe”,vbNullString ,_  
    18.   
  
  
  18. dummystring , SW_SHOWNORMAL)  
    19.   
  
  
  19. ‘創(chuàng)建NotesUIWorkspace對象  
    20.   
  
  
  20. set uiWs = CreateObject 
    (“Notes.NotesUIWorkspace”)  
    21.   
  
  
  21. ‘打開數(shù)據(jù)庫  
    22.   
  
  
  22. call OpenDatabase (servername , dbname)  
    23.   
  
  
  23. ‘要以特定的視圖打開表單時使用  
    24.   
  
  
  24. call OpenDatabase (servername , 
    dbname , “viewname”) 
    25.

VB.NET打開Notes數(shù)據(jù)庫的相關(guān)操作方法就為大家介紹到這里。


本文標(biāo)題：簡單實現(xiàn)VB.NET打開Notes數(shù)據(jù)庫
分享地址：http://m.5511xx.com/article/djjhjcp.html