[GOLDILOCKS] Excel VBA 연동하기

연동환경

서버	DATABASE	Goldilocks 3.1.15 r25159
클라이언트	OS	Windows 7
	DATABASE Client	Goldilocks 3.1.15 r25159 win64
	Excel	64bit
	Visual Basic	7.0.1590

Visual Basic 과 Database 는 아래처럼 ADO, OLE, ODBC 를 이용하여 연동할 수 있습니다.

이 중 ODBC 방식을 이용하여 Goldilocks 와 Visual Basic 을 연동해 보겠습니다.

ODBC 관리자에 Office Excel 버전에 맞는 Goldilocks DSN 64 bit 를 등록합니다.

등록하는 방법은 http://mozi.tistory.com/4 를 참조합니다.

연동 방법

1. 엑셀 창을 연 뒤, Alt + F11 버튼을 눌러 Microsoft Visual Basic 을 실행합니다.

2. 탭 "도구" - "참조" 를 누른 뒤, 아래 2개를 체크하고 확인을 눌러줍니다.

 - Micorosoft ActiveX Data Objects (Multi-dimensional) 2.8 Library

 - Microsoft ActiveX Data Objects 2.8 Library

3. 모듈을 생성합니다.

4. ODBC DSN 명을 사용하여 소스를 작성합니다.

Sub test_goldilocks()

Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim strConn As String
Dim i As Integer

strConn = "DSN=GOLDILOCKS;UID=TEST;PWD=test;"
 
strSQL = "SELECT * FROM V$INSTANCE"
 
rs.Open strSQL, strConn
If rs.EOF Then
    MsgBox "조회조건에 해당하는 자료가 없습니다."
Else
    For i = 1 To rs.Fields.Count
        Cells(1, i).Value = rs.Fields(i - 1).Name
    Next
 
    With ActiveSheet
            .Range("A2").CopyFromRecordset rs
    End With
End If

End Sub

6. 엑셀에서 Alt + F8 을 눌러 매크로 창을 연뒤 실행합니다.

7. 출력된 결과를 엑셀에서 확인합니다.