" *****************************************************************************************************
* drivers.txt
*
This examples shows how to use drivers
*
******************************************************************************************************"

|connection1  aTextDisplay connectString dsn userId password|

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



OdbcObject getDrivers.
(OdbcObject drivers) do:
    [ :each |
        aTextDisplay nextPutAll: each; cr.
        (OdbcObject driverAttributes: each) 
            do: [ :d | aTextDisplay tab; nextPutAll: d; cr ].
        aTextDisplay cr
     ].


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