" *****************************************************************************************************
* datasrce.txt
*
This examples shows how to use dataSources
*
******************************************************************************************************"

|connection1  aTextDisplay connectString dsn userId password|

aTextDisplay := TextWindow  windowLabeled: 'ODBC Interface - Using dataSources '
                           frame: (0 @ 0 corner: 1000 @ 1000).
aTextDisplay cr.



OdbcObject getDataSources.
(OdbcObject dataSources) do:
    [ :sourceName |
        aTextDisplay nextPutAll: sourceName , ':' ; tab ;tab.
        aTextDisplay nextPutAll: (OdbcObject sourceDescription: sourceName) ; cr
     ].


aTextDisplay nextPutAll: '*** finished executing ***'.
