VBA를 사용하여 ODBC를 통해 Lotus에 어떻게 연결할 수 있습니까?

Question

보고서를 자동으로 실행하기 위해 Access db를 설정하는 데 관심이 있습니다. 자신의 문제를 각 클라이언트 컴퓨터로 이동하고 적절한 DSN을 설정하려면 가능한 경우 VB 스크립트 자체에서 ODBC 연결을 설정하고 싶습니다.

나는이 사이트를 인터넷으로 검색하고 확인 했으므로 좋은 시작 코드를 발견했지만 모든 오류 메시지가 사라지게하지는 못했습니다. 누군가 아래 코드를 완료 할 수 있습니까? 내가 처음에 제대로 질문을 따르지 않았고 http://www.connectionstrings.com/access

:

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

이 사이트는 당신의 친구입니다. Lotus Notes 데이터를보고하기 위해 Lotus에서 Access로 연결되는 링크를 만들고 싶습니다. 그럼 몇 가지 방법이 있습니다.

자주 Lotus Notes 데이터를 XML로 노출 한 다음 원격 시스템에서 해당 XML에 액세스하는 방법을 사용합니다. XML 시작 태그 인 루트 요소를 사용하여 Notes 페이지를 쉽게 만들 수 있으며 루트 요소 사이에 포함 된 뷰를 삽입 할 수 있습니다. 그런 다음 포함 된 뷰는 HTML로 표시되고 XML 태그로 확인되는 열을 포함해야합니다. 첫 번째 이름 열에

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

을, 마지막 이름 열에는 다음과 같습니다

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

하고 열 공식은 다음과 같습니다 예를 들어, 뷰의 각 행이 비슷하게 이 :

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

Notes 서버에 HTTP 서비스가 설정되어 있고 브라우저를 통해 데이터베이스에 연결할 수 있다고 가정합니다.

그러나 다른 답변에서 언급했듯이 NotesSQL 및 COM과 같은 다른 방법을 사용할 수 있습니다. 이 솔루션을 여러 워크 스테이션에 설치하는 것처럼 들리 겠지만 NotesSQL을 사용하려면 각 워크 스테이션에 드라이버를 설치해야합니다. COM 메서드는 사용자의 책상에서 별도의 작업을하지 않아도 작동하므로이 경우 솔루션을 선호합니다.

Answer 3

1 년 후에도 업데이트되지 않아도 내 필요에 맞는 훌륭한 사이트처럼 보입니다. 그러나 여전히 시가는 없습니다. 지금, 나는 보드에 "데이터 원본 이름을 찾을 수 없습니다 및 기본 드라이버를 지정하지"

가 (물론, 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