[vb] data 객체 없이 ODBC DSN 레코드셋 얻어오기

1998.8.20 조경민

        
' data 객체 없이 ODBC DSN 레코드셋 얻어오기
Dim wrkODBC As Workspace
Dim conPubs As Connection
Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)
Set conPubs = wrkODBC.OpenConnection("", , , "ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=data")
Set rstTemp = conPubs.OpenRecordset("SELECT * FROM book", dbOpenDynamic)

' 도움말
        Dim wrkJet As Workspace
        Dim wrkODBC As Workspace
        Dim dbsNorthwind As Database
        Dim conPubs As Connection
        Dim rstTemp As Recordset
        Dim rstTemp2 As Recordset

        ' Microsoft Jet와 ODBCDirect 작업 영역, Microsoft
        ' Jet 데이터베이스, ODBCDirect 연결 등을 엽니다.
        Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
        Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)
        Set dbsNorthwind = wrkJet.OpenDatabase("Northwind.mdb")

        Set conPubs = wrkODBC.OpenConnection("",,,"ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers")

        ' 다섯 개의 다른 Recordset 개체를 열고 각 내용을
        ' 표시합니다.

        Debug.Print "원본이 QueryDet 개체인" & _
                " 앞으로 전용 형식의 Recordset을 여는 중..."
        Set rstTemp = dbsNorthwind.OpenRecordset( _
                "Ten Most Expensive Products", dbOpenForwardOnly)
        OpenRecordsetOutput rstTemp

        Debug.Print "원본이 SQL 문인" & _
                "읽기 전용 다이너셋 형식의 Recordset을 여는 중..."

Set rstTemp = dbsNorthwind.OpenRecordset( _
                "SELECT * FROM Employees", dbOpenDynaset, dbReadOnly)
        OpenRecordsetOutput rstTemp

        ' Filter 속성을 사용하여 다음 OpenRecordset 호출을
        ' 갖는 특정 레코드만을 검색합니다.
        Debug.Print "기존 Recordset 개체에서 " & _
                "Recordset을 열어 레코드를 필터링하는 중..."
        rstTemp.Filter = "LastName >= 'M'"
        Set rstTemp2 = rstTemp.OpenRecordset()
        OpenRecordsetOutput rstTemp2

        Debug.Print "ODBC 연결에서 " & _

"동적 형식의 Recordset을 여는 중..."
        Set rstTemp = conPubs.OpenRecordset( _
                "SELECT * FROM stores", dbOpenDynamic)
        OpenRecordsetOutput rstTemp

        ' StillExecuting 속성을 사용하여 Recordset 조작 가능 시기를 결정합니다.
        Debug.Print "ODBC 연결에 대한 비동기 질의에 " & _
                "기반한 스냅샷 형식의 Recordset을 여는 중..."
        Set rstTemp = conPubs.OpenRecordset("publishers", _
                dbOpenSnapshot, dbRunAsync)
        Do While rstTemp.StillExecuting

Debug.Print "    [실행 중...]"
        Loop
        OpenRecordsetOutput rstTemp

        rstTemp.Close
        dbsNorthwind.Close
        conPubs.Close
        wrkJet.Close
        wrkODBC.Close

End Sub

Sub OpenRecordsetOutput(rstOutput As Recordset)

        ' 지정한 Recordset 개체를 나열합니다.
        With rstOutput
                Do While Not .EOF
                        Debug.Print , .Fields(0), .Fields(1)
                        .MoveNext
                Loop
        End With