偷偷摘套内射激情视频,久久精品99国产国产精,中文字幕无线乱码人妻,中文在线中文a,性爽19p

簡單實現(xiàn)VB.NET打開Notes數(shù)據(jù)庫

開發(fā) 后端
VB.NET打開Notes數(shù)據(jù)庫的實現(xiàn),在程序開發(fā)中是一個比較重要的操作步驟。那么初學者們就應該在學習的過程中對數(shù)據(jù)庫的操作加強注意。

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

一、前言

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

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

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

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

 

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

 

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

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

2. 在Visual Basic中所有的Notes變量都應聲明為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ù)庫的程序實現(xiàn)

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

 

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

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

責任編輯:曹凱 來源: zdnet.com.cn
相關推薦

2010-01-12 10:40:58

VB.NET數(shù)據(jù)庫壓縮

2009-10-14 13:15:09

VB.NET數(shù)據(jù)綁定

2009-10-14 13:56:05

VB.NET數(shù)據(jù)窗體

2010-01-08 10:37:50

VB.NET數(shù)據(jù)庫

2009-10-13 17:31:50

VB.NET Acce

2009-10-28 17:08:57

VB.NET數(shù)據(jù)庫開發(fā)

2009-10-28 17:00:30

VB.NET數(shù)據(jù)庫

2009-10-16 13:26:53

VB.NET Exce

2009-10-09 15:20:26

VB.NET連接數(shù)據(jù)庫

2010-01-15 19:24:42

2009-10-28 16:47:26

VB.NET訪問數(shù)據(jù)庫

2009-10-13 09:33:49

VB.NET Web

2009-10-13 14:42:30

VB.NET靜態(tài)成員

2009-10-28 10:51:32

VB.NET默認屬性

2009-10-15 11:11:08

VB.NET Text

2009-11-04 09:32:12

VB.NET Auto

2009-10-15 16:39:00

VB.NET讀取INI

2009-10-30 11:20:54

VB.NET Proc

2009-10-12 13:19:14

VB.NET線程同步

2009-10-12 13:11:48

VB.NET使用線程
點贊
收藏

51CTO技術棧公眾號