Как подключиться к Lotus через ODBC с помощью VBA?

Question

Я заинтересован в настройке базы данных доступа для автоматического запуска отчета. Чтобы сберечь себя от необходимости переходить на каждый клиентский компьютер и настраивать соответствующие DSN, я хотел бы настроить соединения ODBC в самом скрипте VB, если это возможно.

Я googled и проверил этот сайт и нашел хороший код стартера, но недостаточно, чтобы все сообщения об ошибках исчезли. Может ли кто-нибудь заполнить код ниже?

Sub SetupODBC(Str_Server as string, Str_Db as string) 
'Str_Server=Name of Server 
'Str_db=Name of Database 
Dim C as ADODB.Connection 
Set C = new ADODB.Connection 
C.ConnectionString = ?? 
C.Open 
Debug.print C.State 
Exit Sub 

Answer 1

Добро пожаловать на борт. ConnectionStrings действительно ваш друг, но проблема, с которой вы сталкиваетесь, заключается в том, что у вас нет драйвера :) Lotus Notes не является реляционной базой данных, это document oriented database. Исторически не было способа получить доступ к нему, так как это реляционная база данных по этой причине. Однако IBM в конце концов собралась написать своего рода переводчик в форме NotesSQL. Если вы следуете ссылке и получите драйвер, вы сможете использовать ODBC. Стоит отметить, что Notes предоставляет себя COM. Так что, если толчок приходит в себя, вы можете автоматизировать клиента.

Answer 2

Этот сайт является вашим другом: http://www.connectionstrings.com/access

я не следовал ваш вопрос правильно сначала. Я вижу, что вы хотите создать ссылку из Access to Lotus для представления данных Lotus Notes. Ну, есть несколько способов сделать это.

Часто использую метод отображения данных Lotus Notes как XML, а затем доступ к этому XML из удаленной системы. Вы можете легко создать страницу Notes с помощью тега начала XML, корневого элемента, а затем вставить встроенный вид между корневым элементом. Это встроенное представление затем должно отображаться как HTML и содержать столбцы, которые разрешают xml-теги. Например, каждая строка представления будет выглядеть примерно так:

<Person><FirstName>Ken</FirstName><LastName>Pespisa</LastName></Person> 

и ваши формулы колонок будут:

"<Person><FirstName>" + FirstName + "</FirstName>" 

для первого столбца, и для последнего столбца имя было бы это:

"<LastName> + LastName + </LastName></Person>" 

Обратите внимание, что это предполагает, что сервер Notes имеет службу HTTP включен, и вы можете добраться до базы данных через браузер.

Однако, как упоминалось в других ответах, вы можете использовать другие методы, такие как NotesSQL и COM. Похоже, вы размещаете это решение на многих рабочих станциях, и NotesSQL потребует установки драйвера на каждой рабочей станции. Метод COM будет работать, не требуя дополнительной работы на столах пользователей, поэтому я бы одобрил это решение в этом случае.

Answer 3

Похож на отличный сайт для моих нужд, даже если он не обновлялся через год. Но сигары все еще нет. Теперь, я получаю «Имя источника данных не найден и драйвер по умолчанию не указано»

(Очевидно, ServerNameGoesHere и DatabaseNameGoesHere являются subsitutions)

Sub dbX() 
    Dim C As adodb.Connection 
    Set C = New adodb.Connection 
    C.Open _ 
     "Driver={Lotus NotesSQL 3.01 (32-bit) ODBC DRIVER (*.nsf)};" & _ 
     " Server=ServerNameGoesHere;" & _ 
     " Database=DatabaseNameGoesHere.nsf;" 
    C.Close 
End Sub