Příklad 12 - Použití SQLSelectAsRowset - Zobrazení obsahu SQL tabulky

Příklad použití SQLSelectAsRowset v jednoduché proceduře pomocí, které je možné do listu MS Excel vypsat obsah zadané tabulky databáze.

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