ODBC Treiber auslesen

[Mkorte]

Mit der Klasse OdbcDrivers können die angelegten ODBC Treiber ausgelesen werden. System ODBC Treiber werden in der Registry unter LOCALMACHINE \ SOFTWARE \ ODBC verwaltet, Benutzer ODBC Treiber unter dem entsprechenden Benutzer. Das USING bindet den NameSpace Microsoft.Win32 ein, in diesem NameSpace ist unter anderem die Registry enthalten.

Code: Alles auswählen

USING Microsoft.Win32

CLASS OdbcDrivers 

STATIC METHOD GetSystemDSN() AS STRING[]
   LOCAL oKey      AS RegistryKey
   LOCAL cSubKeys   AS STRING[]
   
   oKey     := Registry.LocalMachine:OpenSubKey( "SOFTWARE\ODBC\ODBC.INI" )   
   cSubKeys := oKey:GetSubKeyNames()
   
   RETURN cSubKeys   
   
STATIC METHOD GetSystemUser() AS STRING[]
   LOCAL oKey      AS RegistryKey
   LOCAL cSubKeys   AS STRING[]
   
   oKey     := Registry.CurrentUser:OpenSubKey( "SOFTWARE\ODBC\ODBC.INI" )   
   cSubKeys := oKey:GetSubKeyNames()
   
   RETURN cSubKeys      
   
END CLASS