讲解实现VB.NET打开Notes数据库相关详细信息

前端之家收集整理的这篇文章主要介绍了讲解实现VB.NET打开Notes数据库相关详细信息前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

VB.NET编程语言可以帮助我们轻松的实现各种数据库的操作,比如今天为大家介绍的VB.NET打开Notes数据库这一方法,就可以通过本文介绍的方法轻松的实现。下面大家就一起来看看具体操作方法

一、前言

acerun: yes"> Visual Basic是微软(中国)有限公司在中国力推的编程工具,它具有易学易用、编程简洁、程序集成化程度高等特点。Lotus Notes是Lotus公司推出的群件系统,它不仅仅是个应用软件,更是一个开发平台。

Notes数据库是文档型数据库,它使用LotusScript编写相应的代码完成设计者的需求。LotusScript语法类似于Visual Basic

的语法,两者之间有什么联系呢?如何使用 Visual Basic 应用与Notes数据之间进行交互呢?Visual Basic也能像在Notes中一样

轻松访问Notes类。本文讨论了使用Visual Basic 中访问Notes类的方法

二、设计VB.NET打开Notes数据库思路

Visual Basic中可以通过OLE功能来使用Notes.NotesUIWorkspace 和 Notes.NotesSession访问Notes类。使用CreatObject得

到NotesUIWorkspace 和NotesSession对象。下面几行Visual Basic代码得到当前计算机上一个名为“testdb.nsf”的数据库对象



Dim session As Object

Dim db As Obiect

Dim doc As Obiect

Set session = CreatObject

(“Notes.NotesSession”)

Set db = session.GetDatabase(“”,”testdb.nsf”)

要通过Visual Basic 在桌面上打开Notes 数据库,应先得到NotesUIWorkspace对象,然后通过openDatabase 函数打开相应的

数据库即可。

1. 在 Visual Basic 中不能像在LotusScript 中那样创建新的Notes对象,因此只能通过NotesUIWorkspace 和 NotesSession

这两个顶类层访问其他Notes对象。LotusScipt中的Notes类提供了一个非常完整的遍历整个层次结构的方法,我们完全可以用这个

方法得到任何需要的Notes类。

2. 在Visual Basic中所有的Notes变量都应声明为Object类型。

3. 在Visual Basic 中访问Notes类,首先Visual Basic必须与notes装在同一台计算机上。

4. 使用上面的方法打开notes数据库时,会出现无法将notes窗口移到前端的情况。调用Windows API中的ShellExecute即可解

决这个问题。 三、VB.NET打开Notes数据库的程序实现 下面这段程序打开一个Notes数据库并把它移到最前面,使用户看到这个数据库。 Public Declare Funcrion ShellExecute Lib “Shell32.dll” Alias “ShellExecuteA”_ (byval hWnd As long,byval IpOperation As String,byval IpFile As String,_ Byval IpParameters As String,byval IpDirectory As Long,_ Byval nShowCmd As Long ) As Long ‘将Notes对象声明为Object dim session as object dim uiWs as object dim dbname as string dim servername as string dim iRet as integer ‘在此填入你要打开的数据库和服务器名 dbname = “ciphercipher.nsf” servername = “rtpswgsserver” ‘创建NotesSession 对象,如果Notes已经运行,这句程序将打开Notes窗口;如果没有运行Notes,则启动它 set session = CreateObject (“Notes.NotesSession”) ‘通过调用Windows API 函数使Notes窗口在前台打开 iRet = ShellExecute(Me.hWnd,”open”,”notes.exe”,vbNullString,_ dummystring,SW_SHOWNORMAL) ‘创建NotesUIWorkspace对象 set uiWs = CreateObject (“Notes.NotesUIWorkspace”) ‘打开数据库 call OpenDatabase (servername,dbname) ‘要以特定的视图打开表单时使用 call OpenDatabase (servername,dbname,“viewname”) VB.NET打开Notes数据库的相关操作方法就为大家介绍到这里。

猜你在找的VB相关文章