vb & lotus 在VB中实现对Lotus Notes数据库的存取

cooool

在R5.03以后，Lotus提供了一个后台的COM类NotesSession。NotesSession是一个功能强大的对象模型，它提供了其他Notes对象的接口，即只有通过它才能访问Notes中的数据库对象NotesDatabase、NotesView等对象。   

由于COM与OLE的兼容性，因此，用VB等程序操作Domino就变得相当容易，在VB中引用的方法非常简单，新建一个工程，在菜单“工程”下选择“引用”，则会出现下列对话框：   


图1 新建工程时加入对Domino库的引用  

同时在Form上放一个FlexGrid控件，产生一个如图2所示的窗体。 在窗体事件Load 中键入下列代码：   


图2 窗口界面  

Private Sub Form_Load()   

Dim Session As New Domino.NotesSession   

Dim PublicNotesDb As New Domino   

.NotesDatabase   

Dim View As NotesView   

Dim C As NOTESVIEWCOLUMN   

Dim Mycount As Integer   

Session.Initialize   

Set PublicNotesDb = session.GetDatabase(“教科文处/教科文”, “档案管理.nsf”)   

If PublicNotesDb Is Nothing Then   

MsgBox (“不能打开Notes库，请查看系统设置！”)   

End If   

Set View = PublicNotesDb.GetView(“Having AutoCode”)   

With grdDataGrid   

.Clear   

j = 0   

.Rows = 2   

.FixedCols = 1   

.FixedRows = 1   

.Col = 1   

.FixedRows = .Row   

.Row = 0   

.Cols = 2   

j = 1   

For Each C In View.Columns   

.AddItem (C.Title)   

x.Caption = C.Title   

.Col = j   

.Cols = .Col + 2   

.Item(j).Visible = False   

.Text = C.Title   

If C.IsHidden = True Then   

.ColWidth(j) = 0   

End If   

j = j + 1   

Next   

.Cols = j + 3   

.Col = j   

.Text = “处理情况”   

.Col = j + 1   

.Text = “处理原因”   

.Col = j + 2   

.Text = “处理责任人”   

.ColWidth(2) = 1800   

.ColWidth(3) = 1800   

Dim Doc As Object NOTESDOCUMENT   

Set Doc = View.GetFirstDocument   

.Row = 1   

j = 1   

Dim Str As String   

Do Until Doc Is Nothing   

.Col = 1   

.Text= Doc.GetItemValue(“登记号”)(0)   

.Col = 2   

Str = Doc.GetItemValue(“组卷号”)(0)   

.Text = Str   

.Col = 3   

.Text= Doc.GetItemValue(“文件字号”)(0)   

.Col = 4   

.Text= Doc.GetItemValue(“文件名”)(0)   

Set Doc=View.GetNextDocument(Doc)   

If Not Doc Is Nothing Then   

If j >= .Rows Then   

.Rows = j + 1   

End If   

.Row = j; j = j + 1   

End If   

Loop   

.MergeCells = flexMergeRestrictColumns   

’MergeCells = 2   

.MergeCol(0) = True   

.MergeCol(1) = True   

.MergeCol(2) = True   

.MergeCol(3) = True   

.Redraw = True   

End With   

End Sub   

上面的代码中，调用initialize方法产生一个NotesSession 对象，它的方法有点类似VBA中调用Word的方法，如果采用 IsOpen可以判断是否已经打开对话框，函数GetDatabase()打开Notes数据库， 其中取得一个数据的函数用法有点特别:   

.Text = Doc.GetItemValue(“登记号”)(0)   

使用两个连续的括号似乎Visual Basic不允许，其实Domino中允许多值域，所以函数GetItemValue()返回的实质上是一个数组，第一个元素从0开始。   

按键盘F5开始运行，就可以看到输出结果。   

VB操作Domino COM的优缺点   

VB操作Domino COM具有以下优点:   

● VB应用程序不需要调用Lotus Notes客户端就可以访问Notes的函数;   

● 程序员可以在设计时使用早期绑定，其速度比晚绑定快，最主要的是可以利用VB6的智能语法提示功能;   

● COM的运行速度比Lotus Script快;   

● 可以独立于Lotus Notes客户端进行应用程序分发。   

遗憾的是Domino的COM与VBA等相比，还有一些明显缺点:   

● 目前Lotus只支持后台的Domino对象，即session，对于UIWorkSpace 并不支持（如果支持，就意味Lotus客户端可以被用户或第三方程序取代）;   

● 由于COM只被Windows所支持，目前Unix还不能使用本文所论述的方法;   

● 由于安全原因，Louts目前不支持DCOM技术;   

● Lotus 提供的COM并不支持“ref”内存指针，标准COM提供三种内存指针：“ref”、“unique”和“ptr”，其中“ref”开销最小。   

采用COM作为VB与Domino的桥梁，既可以发挥Domino的强大的文档处理能力，又可以发挥VB友好的可视化功能。

hdy

这个程序方法我使用无效.请大家帮助验证.

huhancheng

我也试过这段代码,但我改了下,我用的是本地的服务器,数据库文件是hu.nsf,在数据库里建了一个表单(包括一些域名),还建了一个视图,并且保存了几个文档,是可以了.但是现在我还不知道怎样用vba编程实习把数据库里的多媒体下载下来保存在磁盘的某个路径下,请教大侠们.
Private Sub Form_Load()
Dim session As New Domino.NotesSession
    Dim PublicNotesDb As New Domino.NotesDatabase
    Dim view As NotesView
    Dim C As New NotesViewColumn
    Dim Mycount As Integer
    Dim i As Integer
    Dim j As Integer
    Dim viewname As String
   
    session.Initialize
    Set PublicNotesDb = session.GetDatabase("", "hu.nsf")     '''本地数据库为空即可,hu.nsf库文件
   
    If PublicNotesDb Is Nothing Then
   
        MsgBox ("不能打开Notes库，请查看系统设置！")
   
    End If
    viewname = InputBox("Name of view")      ''''输入你在数据库建的视图名称
    Set view = PublicNotesDb.GetView(viewname)
   
    With grdDataGrid

        .Clear
        .ColWidth(0) = 300
        .Cols = view.ColumnCount + 1
        For i = 1 To view.ColumnCount
            Set C = view.GetColumn(i)
'            .AddItem (C.Title)
            .TextMatrix(0, i) = C.Title
               j = j + 1
        Next
        
        
        .ColWidth(2) = 1800
        
        .ColWidth(3) = 1800
        
        Dim doc As NotesDocument
        
        Set doc = view.GetFirstDocument
        
        .Row = 1
        
        j = 1
        
        Dim Str As String
        
        Do Until doc Is Nothing
        
            .Col = 1
            
            .Text = doc.GetItemValue("filenumberinbox")(0)    ''''filenumberinbox是我建的表单的域名之一
        
            .Col = 2
            
            Str = doc.GetItemValue("head")(0)    '''''同上
            
            .Text = Str
            
            .Col = 3
            
            .Text = doc.GetItemValue("classnumber")(0)   '''同上
            
            .Col = 4
            
            .Text = doc.GetItemValue("filenum")(0)   '''' 同上
        
            Set doc = view.GetNextDocument(doc)
            
            If Not doc Is Nothing Then
            
                If j >= .Rows Then
               
                    .Rows = j + 1
                    
                End If
                    
                .Row = j
                j = j + 1
               
            End If
        
        Loop
        
               
      End With
End Sub
主要功能是实现在msflexgrid控件中显示数据库中各文档的内容,当然必须保证数据库里有文档,不然调不通.

shuiyuanke

我的測試代碼：
Private Sub Command1_Click()
    Dim session As New Domino.NotesSession
    Dim PublicNotesDb As New Domino.NotesDatabase
    Dim view As New Domino.NotesView
    Dim doc As NotesDocument
    session.Initialize
    Set PublicNotesDb = session.GetDatabase("[CN]=SHFX01/[O]=FANGXIN", "test.nsf")
    If PublicNotesDb Is Nothing Then
        MsgBox (" PublicNotesDb No OK!")
    Else
        MsgBox ("PublicNotesDb OK!")
    End If
    Set view = PublicNotesDb.GetView("test")
    Set doc = view.GetFirstDocument
    MsgBox doc.GetItemValue("test001")(0)
End Sub
測試時會提示Set view = PublicNotesDb.GetView("test")這一行有錯誤！
如果將Set PublicNotesDb = session.GetDatabase("", "test.nsf")即用本機的Domino Server測試時沒有任何問題（3樓的高手也是在本地測試成功）！請指教如何才能使代碼能夠操作遠程Domino Server上的數據庫！TKS！