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