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

文章作者 100test 发表时间 2007:09:06 12:00:12
来源 100Test.Com百考试题网

　　在论坛中有人提出关于如何在.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