如何枚舉使用VBA在計算機上設置的DSN列表？

Question

我有一個Excel應用程序，我想向用戶展示數據源名稱列表（即：DSN's），由此他/她可以選擇使用什麼數據源。

希望一旦我有了清單，我可以輕鬆地訪問DSN屬性以連接到適當的數據庫。

請注意，我做不是想使用DSN-less連接。

Answer 1

DSN條目存儲在註冊表中的以下鍵中。

HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources 
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources

這包含所有定義的DSN的列表。這可以作爲全局索引和每個DSN的具體細節下存儲在密鑰與DSN名稱：

HKEY_CURRENT_USER\Software\ODBC\ODBC.INI 
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI

創建從數據源兩個用戶DSN和系統DSN選項卡中某些條目（ODBC）控制面板小程序並檢查這些值如何存儲在註冊表中。

以下示例枚舉爲用戶通過控制面板>管理工具>數據源（ODBC）[用戶Dsn選項卡]定義的DSN。

http://support.microsoft.com/kb/178755

Option Explicit 

    Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _ 
     Alias "RegOpenKeyExA" _ 
     (ByVal hKey As Long, _ 
     ByVal lpSubKey As String, _ 
     ByVal ulOptions As Long, _ 
     ByVal samDesired As Long, phkResult As Long) As Long 

    Private Declare Function RegEnumValue Lib "advapi32.dll" _ 
     Alias "RegEnumValueA" _ 
     (ByVal hKey As Long, _ 
     ByVal dwIndex As Long, _ 
     ByVal lpValueName As String, _ 
     lpcbValueName As Long, _ 
     ByVal lpReserved As Long, _ 
     lpType As Long, _ 
     lpData As Any, _ 
     lpcbData As Long) As Long 

    Private Declare Function RegCloseKey Lib "advapi32.dll" _ 
     (ByVal hKey As Long) As Long 

    Const HKEY_CLASSES_ROOT = &H80000000 
    Const HKEY_CURRENT_USER = &H80000001 
    Const HKEY_LOCAL_MACHINE = &H80000002 
    Const HKEY_USERS = &H80000003 

    Const ERROR_SUCCESS = 0& 

    Const SYNCHRONIZE = &H100000 
    Const STANDARD_RIGHTS_READ = &H20000 
    Const STANDARD_RIGHTS_WRITE = &H20000 
    Const STANDARD_RIGHTS_EXECUTE = &H20000 
    Const STANDARD_RIGHTS_REQUIRED = &HF0000 
    Const STANDARD_RIGHTS_ALL = &H1F0000 
    Const KEY_QUERY_VALUE = &H1 
    Const KEY_SET_VALUE = &H2 
    Const KEY_CREATE_SUB_KEY = &H4 
    Const KEY_ENUMERATE_SUB_KEYS = &H8 
    Const KEY_NOTIFY = &H10 
    Const KEY_CREATE_LINK = &H20 
    Const KEY_READ = ((STANDARD_RIGHTS_READ Or _ 
        KEY_QUERY_VALUE Or _ 
        KEY_ENUMERATE_SUB_KEYS Or _ 
        KEY_NOTIFY) And _ 
        (Not SYNCHRONIZE)) 

    Const REG_DWORD = 4 
    Const REG_BINARY = 3 
    Const REG_SZ = 1 

    Private Sub Command1_Click() 
    Dim lngKeyHandle As Long 
    Dim lngResult As Long 
    Dim lngCurIdx As Long 
    Dim strValue As String 
    Dim lngValueLen As Long 
    Dim lngData As Long 
    Dim lngDataLen As Long 
    Dim strResult As String 

    lngResult = RegOpenKeyEx(HKEY_CURRENT_USER, _ 
      "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", _ 
       0&, _ 
       KEY_READ, _ 
       lngKeyHandle) 

    If lngResult <> ERROR_SUCCESS Then 
     MsgBox "Cannot open key" 
     Exit Sub 
    End If 

    lngCurIdx = 0 
    Do 
     lngValueLen = 2000 
     strValue = String(lngValueLen, 0) 
     lngDataLen = 2000 

     lngResult = RegEnumValue(lngKeyHandle, _ 
           lngCurIdx, _ 
           ByVal strValue, _ 
           lngValueLen, _ 
           0&, _ 
           REG_DWORD, _ 
           ByVal lngData, _ 
           lngDataLen) 
     lngCurIdx = lngCurIdx + 1 

     If lngResult = ERROR_SUCCESS Then 
      strResult = strResult & lngCurIdx & ": " & Left(strValue, lngValueLen) & vbCrLf 
     End If 
    Loop While lngResult = ERROR_SUCCESS 
    Call RegCloseKey(lngKeyHandle) 

    Call MsgBox(strResult, vbInformation) 
    End Sub 

Answer 2

您可以使用ODBC API的SQLDataSources功能。見MSDN documentation。

Answer 3

非常酷的解決方案。我遇到了CURRENT_USER沒有顯示所有DSN的問題，當然不是我需要的。我將其更改爲LOCAL_MACHINE並查看了連接管理器中顯示的所有DSN，包括顯示在CURRENT_USER下的子集。

http://msdn.microsoft.com/en-us/library/windows/desktop/ms712603(v=vs.85).aspx