谁知道enum主机odbcDSN的函数（不从注册表获得）

[kane_yj]

[Wingsun]

使用ODBC API SQLDataSources可以得到你要的东西。我的代码如下，BCB写的
SQLHENV henv;
SQLRETURN retcode;
retcode = SQLAllocHandle(SQL_HANDLE_ENV,SQL_NULL_HANDLE,&henv);
if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO)
{
retcode = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (void*)SQL_OV_ODBC3, 0);
if (retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO)
{
SQLCHAR ServerName[SQL_MAX_DSN_LENGTH];
SQLCHAR Driver[255];
SQLSMALLINT DriverLen,Descript;
retcode=SQLDataSources(henv,SQL_FETCH_FIRST_SYSTEM,ServerName,SQL_MAX_DSN_LENGTH,&DriverLen,Driver,255,&Descript);
while(retcode == SQL_SUCCESS || retcode == SQL_SUCCESS_WITH_INFO)
{
TListItem * pItem;
pItem=ListView1->Items->Add();
pItem->Caption=(char *)ServerName;
pItem->SubItems->Add((char *)Driver);
retcode=SQLDataSources(henv,SQL_FETCH_NEXT,ServerName,SQL_MAX_DSN_LENGTH,&DriverLen,Driver,255,&Descript);
}
}
}
SQLFreeHandle(SQL_HANDLE_ENV, henv);

[kane_yj]

不好意思，现在才给分