请教，如何利用ADO获取ODBC的数据源列表，或者直接调用什么API函数可以列出ODBC？

Question

各位高手帮帮忙，一旦有解决答案，就立即给分，谢谢大家！

Answer 1

问： 如何判断DNS是否存在？怎样才能列举出所有的DNS? 　　解决方法： 　　1、通过利用ODBC API中的SQLDataSource函数可以取得ODBC API中数据源的列表。 判断DNS是否存在： 
　 
　　2、使用API函数Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv As Long, ByVal fDirection As Integer, ByVal szDSN As String, ByVal cbDSNMax As Integer, pcbDSN As Integer, ByVal szDescription As String, ByVal cbDescriptionMax As Integer, pcbDescription As Integer) As Integer Private Declare Function SQLAllocEnv Lib "ODBC32.DLL" (ByRef env As Long) As Long 列举出所有DNS。

Answer 2

Retrieve DSN names and ODBC Drivers list:http://www.delphi3000.com/articles/article_3584.asp?SK=

Answer 3

www.delphi3000.com  当然是delphi了。