Príklad 12 - Použitie SQLSelectAsRowset - Zobrazenie obsahu SQL tabuľky

Príklad použitia SQLSelectAsRowset v jednoduchej procedúre, pomocou ktorej je možné do listu MS Excel vypísať obsah zadanej tabuľky databázy.

Sub PrikladSQLSelectAsRowset()
    Set mApplication = CreateObject("AbraOLE.Application")
    mSQLTable = Application.InputBox(prompt:="Zadejte jméno SQL Tabulky:", Type:=2)
    Set mRowSet = mApplication.SQLSelectAsRowset("SELECT * FROM " + mSQLTable)

    mXlsTableRow = 1
    While Not mRowSet.EOF
        For i = 0 To mRowSet.FieldCount - 1
            Cells(mXlsTableRow, i + 1) = mRowSet.Data(i)
        Next
        mRowSet.Next
        mXlsTableRow = mXlsTableRow + 1
    Wend

    Set mApplication = Nothing
End Sub