Как искать документы Lotus с помощью VBA - PullRequest
Новая
       16

Как искать документы Lotus с помощью VBA

2 голосов
/ 04 ноября 2010

Мне нужно получить 3 определенных поля из формы Lotus и в статическую таблицу Access, из которой я могу делать больше запросов (2 из этих полей составляют первичный ключ, поэтому я могу соединить 3-е с другим материалом). В приведенном ниже псевдокоде я выделил функцию, которая делает именно это, но я не могу выяснить детали (я не думаю, что когда-либо пойму, как работает Lotus без формального обучения). Пожалуйста, помогите мне закончить эту процедуру? 

Function GetFromLotusDocs() As String
    Dim NtS As New NotesSession
    Dim NtDb As New NotesDatabase
    Dim NtF As New NotesForm
    NtS.Initialize
    Set NtDb = NtS.GetDatabase("MyServer", "MyDB.nsf")
    Set NtF = NtDb.GetForm("MyForm")

    For each document in NtDB
        DoCmd.RunSQL _
        "INSERT INTO TmpTbl ( Fld1,Fld2,Fld3 ) SELECT " & _
        Fld1 & "," & Fld2 & "," & Fld3 & ";"    
    Next document
End Function

1 Ответ

1 голос
/ 04 ноября 2010

Если вам просто нужно извлечь данные из Notes и в Access, я предлагаю установить и настроить драйвер Lotus Notes SQL.Я использовал его много раз для загрузки данных в Access, обычно для того, чтобы я мог очистить их перед перемещением в базу данных SQL или SQL Express.

Вот ссылка: http://www.ibm.com/developerworks/lotus/products/notesdomino/notessql/

...