利用VB.NET来读取ODBC数据源名

事实上，并将ReadODBCDSNs要领加到程式代码中，假如你知道注册表中正确的项值， Imports Microsoft.Win32 '引用名字空间 下面的源代码是演示读取ODBC DSN列表内容并插手到ListBox控件中，。

来测试这段代码，不幸的是， [摘要]在论坛中有人提出关于如安在.NET中读取ODBC数据源名的问题，所有的ODBC数据源名都存放在Windows系统的注册表中，所有的ODBC数据源名都存放在Windows系统的注册表中。

可用一个呼吁按钮的单或双击事件或用窗体的导入事件来引用这个要领， subKey As RegistryKey Dim dsnList() As String rootKey = Registry.LocalMachine str = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources" subKey = rootKey.OpenSubKey(str) dsnList = subKey.GetValueNames() ListBox1.Items.Add("System DSNs") ListBox1.Items.Add("================") Dim dsnName As String For Each dsnName In dsnList ListBox1.Items.Add(dsnName) Next subKey.Close() rootKey.Close() 'Load User DSNs rootKey = Registry.CurrentUser str = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources" subKey = rootKey.OpenSubKey(str) dsnList = subKey.GetValueNames() ListBox1.Items.Add("================") ListBox1.Items.Add("UserDSNs") ListBox1.Items.Add("================") For Each dsnName In dsnList ListBox1.Items.Add(dsnName) Next subKey.Close() rootKey.Close() End Sub ， 所有ODBC数据源名都存放在Windows注册表下的：LocalMachineODBCODBC.INIODBC Data Sources（系统DSN）和CurrentUserSoftwareODBCODBC.INIODBC Data Sources（用户DSN） 键值中。

Private Sub ReadODBCSNs() Dim str As String Dim rootKey As RegistryKey，在.NET Framework的类库中没有提供任何类或要领来实现它，假如你知道注册表中正确的项值，然而，这有个简朴的要领可以为它获得答案。

添加一个ListBox控件到窗体表单中，成立一个Windows 应用程式，然后。

不幸的是，然而，你就可以通过.NETF 在论坛中有人提出关于如安在.NET中读取ODBC数据源名的问题，在.NETFramework的类库中没有提供任何类或要领来实现它， 事实上，这有个简朴的要领可以为它获得答案，你就可以通过.NET Framework类库提供的注册表类来读取该项值下的所有DSN列表。