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

领测软件测试网

　　 　　在论坛中有人提出关于如何在.NET中读取ODBC数据源名的问题，不幸的是，在.NET Framework的类库中没有提供任何类或方法来实现它。然而，这有个简单的方法可以为它得到答案。

　　事实上，所有的ODBC数据源名都存放在Windows系统的注册表中。如果你知道注册表中正确的项值，你就可以通过.NET Framework类库提供的注册表类来读取该项值下的所有DSN列表。

　　所有ODBC数据源名都存放在Windows注册表下的：LocalMachine\ODBC\ODBC.INI\ODBC Data Sources（系统DSN）和CurrentUser\Software\ODBC\ODBC.INI\ODBC Data Sources（用户DSN） 键值中。

　　Imports Microsoft.Win32 '引用名字空间

　　下面的源代码是演示读取ODBC DSN列表内容并加入到ListBox控件中。来测试这段代码，建立一个Windows 应用程式，添加一个ListBox控件到窗体表单中，并将ReadODBCDSNs方法加到程式代码中。然后，可用一个命令按钮的单或双击事件或用窗体的导入事件来引用这个方法。

Private Sub ReadODBCSNs()

Dim str As String
Dim rootKey As RegistryKey, 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

文章来源于领测软件测试网 https://www.ltesting.net/