如何在.NET中读取ODBC数据源名?
事实上,所有的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方法加到程式代码中。然后,可用一个命令按钮的单或双击事件或用窗体的导入事件来引用这个方法。
[C#]
[VB.NET]
运行效果图
所有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方法加到程式代码中。然后,可用一个命令按钮的单或双击事件或用窗体的导入事件来引用这个方法。
[C#]
1
private void ReadODBCSNs()
2
{
3
string str;
4
RegistryKey rootKey;
5
RegistryKey subKey;
6
string[] dsnList;
7
rootKey = Registry.LocalMachine;
8
str = "SOFTWARE\\\\ODBC\\\\ODBC.INI\\\\ODBC Data Sources";
9
subKey = rootKey.OpenSubKey(str);
10
dsnList = subKey.GetValueNames();
11
ListBox1.Items.Add("System DSNs");
12
ListBox1.Items.Add("================");
13
//string dsnName;
14
foreach (string strdsnName in dsnList)
15
{
16
ListBox1.Items.Add(strdsnName);
17
}
18
subKey.Close();
19
rootKey.Close();
20
rootKey = Registry.CurrentUser;
21
str = "SOFTWARE\\\\ODBC\\\\ODBC.INI\\\\ODBC Data Sources";
22
subKey = rootKey.OpenSubKey(str);
23
dsnList = subKey.GetValueNames();
24
ListBox1.Items.Add("================");
25
ListBox1.Items.Add("UserDSNs");
26
ListBox1.Items.Add("================");
27
foreach (string dsnName in dsnList)
28
{
29
ListBox1.Items.Add(dsnName);
30
}
31
subKey.Close();
32
rootKey.Close();
33
}
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
3
![](/Images/OutliningIndicators/InBlock.gif)
4
![](/Images/OutliningIndicators/InBlock.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/InBlock.gif)
7
![](/Images/OutliningIndicators/InBlock.gif)
8
![](/Images/OutliningIndicators/InBlock.gif)
9
![](/Images/OutliningIndicators/InBlock.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
[VB.NET]
1
Private Sub ReadODBCSNs()
2
3
Dim str As String
4
Dim rootKey As RegistryKey, subKey As RegistryKey
5
Dim dsnList() As String
6
rootKey = Registry.LocalMachine
7
str = "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources"
8
subKey = rootKey.OpenSubKey(str)
9
dsnList = subKey.GetValueNames()
10
ListBox1.Items.Add("System DSNs")
11
ListBox1.Items.Add("================")
12
Dim dsnName As String
13
14
For Each dsnName In dsnList
15
ListBox1.Items.Add(dsnName)
16
Next
17
subKey.Close()
18
19
rootKey.Close()
20
21
'Load User DSNs
22
rootKey = Registry.CurrentUser
23
str = "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources"
24
subKey = rootKey.OpenSubKey(str)
25
dsnList = subKey.GetValueNames()
26
27
ListBox1.Items.Add("================")
28
ListBox1.Items.Add("UserDSNs")
29
ListBox1.Items.Add("================")
30
31
For Each dsnName In dsnList
32
ListBox1.Items.Add(dsnName)
33
Next
34
subKey.Close()
35
36
rootKey.Close()
37
End Sub
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
2
![](/Images/OutliningIndicators/InBlock.gif)
3
![](/Images/OutliningIndicators/InBlock.gif)
4
![](/Images/OutliningIndicators/InBlock.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/InBlock.gif)
7
![](/Images/OutliningIndicators/InBlock.gif)
8
![](/Images/OutliningIndicators/InBlock.gif)
9
![](/Images/OutliningIndicators/InBlock.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
运行效果图
![](/images/cnblogs_com/hedonister/19152/o_odbc.bmp)