Click here to Skip to main content
15,887,329 members
Articles / Desktop Programming / MFC
Article

SQL Server and Database Enumerator

Rate me:
Please Sign up or sign in to vote.
4.18/5 (9 votes)
25 Apr 2000CPOL 115.7K   3.9K   43   13
A class that helps enumerate SQL servers, databases and languages.
  • Download demo executable - 8 Kb
  • Download source files - 33 Kb
  • Sample Image - SQLSrvEnumerator.jpg

    Introduction

    This sample helps you to enumerate the list of SQL Servers and the databases and languages that a particular SQL server has.

    The class CSQLInfoEnumerator encapsulates this functionality into it.

    It has the functions:

    BOOL EnumerateSQLServers();
    BOOL EnumerateDatabase(LPCTSTR pszSQLServer,LPCTSTR pszUserId,LPCTSTR pszPwd);
    BOOL EnumerateDatabaseLanguage(LPCTSTR pszSQLServer,LPCTSTR pszUserId,LPCTSTR pszPwd);

    to perform this task. It fills in its result into the CStringArray m_szSQLServersArray, m_szSQLServerDatabaseArray, and m_szSQLServerLanguageArray data members respectively.

    The heart of this class uses the function SQLBrowseConnect that enables you to build upon an incomplete connect string.

    Example of a connect string:

    ODBC;Driver={SQL Server};SERVER=MYSQLSERVER;APP=MFCAPP;WSID=San;DATABASE=mydb;UseProcForPrepare=0; UID=san;PWD=123

    Note: A connect string is used to establish a database connection using the CDatabase Open or OpenEx member functions.

    Passing an incomplete connect string such as ">Driver={SQL Server};." would cause retrieval of a list of SQL servers. When passed to the SQLBrowseConnect it would retrieve of a list of SQL servers as the server information is missing in the connect string. By passing "Driver={SQL Server};SERVER=MYSQLSERVER; APP=MFCAPP; WSID=San;UID=san;PWD=123;UseProcForPrepare=0;" it would retrieve a list of databases since the database information is missing. The RetrieveInformation function in the CSQLInfoEnumerator class encapuslates this function.

    The function SQLDisconnect has to be called at the end of the SQLBrowseConnect browsing operation completion.

    The complete function RetrieveInformation is as follows.

    //Allocate the environment handle
    m_iRetcode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &hSQLEnv);
    
    if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO)
    {
    	//Set the environment attribute to SQL_OV_ODBC3
    	m_iRetcode = SQLSetEnvAttr(hSQLEnv,SQL_ATTR_ODBC_VERSION, (void *)SQL_OV_ODBC3, 0);
    	if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO) 
    	{
    		//Allocate a connection handle
    		m_iRetcode = SQLAllocHandle(SQL_HANDLE_DBC, hSQLEnv, &hSQLHdbc);
    		if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO) 
    		{
    			CString szConnStrOut;
    			//Call SQLBrowseConnect for additional information
    			m_iRetcode = SQLBrowseConnect(hSQLHdbc, (SQLCHAR *)pszInputParam, SQL_NTS, 
    			                              (SQLCHAR *)(szConnStrOut.GetBuffer(MAX_RET_LENGTH)), 
    			                              MAX_RET_LENGTH,&sConnStrOut);
    			szConnStrOut.ReleaseBuffer();
    			
    			//if the look up key is foundfill in the result set
    			SQLDisconnect(hSQLHdbc);
    		}
    		SQLFreeHandle(SQL_HANDLE_DBC, hSQLHdbc);
    	}
    	SQLFreeHandle(SQL_HANDLE_ENV, hSQLEnv);
    }

    The CSQLInfoEnumerator class requires linking with the odbc32.lib file.

    The sample application attached uses the CSQLInfoEnumerator class to display the list of SQL Servers, databases and supported languages.

    Limitations

    When the list of languages supported by a particular SQL server is performed, it does not support character translation for the language name meaning you may see special characters and ?'s in the language listing for particular SQL Servers.

    You can reach me at SantoshRao@bigfoot.com

    License

    This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


    Written By
    Architect
    India India
    1993 started with Computers

    BE(Computer Science) and MS (Software Systems)

    Industry Experience: 10 Years

    C, C++, VC++(MFC), .NET, C#, MTS, Queuing, ASP.NET, AJAX, Java, J2EE, SunOne, JMS

    Banking, Insurance & Pension,Health Care

    Comments and Discussions

     
    GeneralThanks Pin
    PJ Arends7-Jan-11 7:18
    professionalPJ Arends7-Jan-11 7:18 
    AnswerDrivers for later generations of SQL-server Pin
    Jonas Hammarberg16-May-09 2:48
    professionalJonas Hammarberg16-May-09 2:48 
    QuestionUsage of code in commercial offering? Pin
    JHey20084-Nov-08 15:11
    JHey20084-Nov-08 15:11 
    GeneralOther databases Pin
    Flora PL10-Sep-04 3:08
    Flora PL10-Sep-04 3:08 
    GeneralCannot retrieve list of Databases on Trusted connections Pin
    Anonymous25-Oct-02 0:09
    Anonymous25-Oct-02 0:09 
    GeneralRe: Cannot retrieve list of Databases on Trusted connections (Fixed, Added RetrieveLogin) Pin
    jbeaurain4-Feb-03 11:40
    jbeaurain4-Feb-03 11:40 
    GeneralRe: Cannot retrieve list of Databases on Trusted connections (Fixed, Added RetrieveLogin) Pin
    BSR15-Jan-04 2:44
    BSR15-Jan-04 2:44 
    GeneralRe: Cannot retrieve list of Databases on Trusted connections (Fixed, Added RetrieveLogin) Pin
    BSR15-Jan-04 2:45
    BSR15-Jan-04 2:45 
    GeneralRe: Cannot retrieve list of Databases on Trusted connections (Fixed, Added RetrieveLogin) Pin
    jbeaurain15-Jan-04 3:15
    jbeaurain15-Jan-04 3:15 
    GeneralInternationalization BUG & Repair in SQL Server and Database Enumerator Pin
    gbalog17-Jul-02 2:03
    gbalog17-Jul-02 2:03 
    GeneralThe modifyed File is here for Internationalization BUG & Repair in SQL Server and Database Enumerator Pin
    gbalog17-Jul-02 2:04
    gbalog17-Jul-02 2:04 
    // SQLInfoEnumerator.cpp: implementation of the CSQLInfoEnumerator class.
    //
    //////////////////////////////////////////////////////////////////////

    #include "stdafx.h"
    #include "SQLInfoEnumerator.h"

    #ifdef _DEBUG
    #undef THIS_FILE
    static char THIS_FILE[]=__FILE__;
    #define new DEBUG_NEW
    #endif

    //////////////////////////////////////////////////////////////////////
    // Construction/Destruction
    //////////////////////////////////////////////////////////////////////

    /*
    Author: Santosh Rao
    EMail Id: SantoshRao@bigfoot.com
    Date: Dec 31st 1999
    Comment: Simple Class to enable enumeration
    of SQL Servers and their databases and supported
    languages.
    You may use this code in any way you want,
    You can remove my copyright too.
    But dont sue me in court please, i cant afford it.
    */

    CSQLInfoEnumerator::CSQLInfoEnumerator()
    {
    ClearAll();
    }

    CSQLInfoEnumerator::~CSQLInfoEnumerator()
    {
    ClearAll();
    }

    /*
    Clear all internal storing CStringArrays
    */

    BOOL CSQLInfoEnumerator::ClearAll()
    {
    m_szSQLServersArray.RemoveAll();
    m_szSQLServerDatabaseArray.RemoveAll();
    m_szSQLServerLanguageArray.RemoveAll();
    return TRUE;
    }

    /*
    Retrieve Information of SQL Servers
    On Success the string contains identifier
    SERVER:Server= followed by the list of SQL
    Servers
    */

    BOOL CSQLInfoEnumerator::EnumerateSQLServers()
    {
    //Browse Connect for SQL Server Driver defined servers
    //The return information would contain SERVER:Server= Keyword followed by
    //{list of Servers} separated by the character ';'
    //return RetrieveInformation(_T("Driver={SQL Server}"),_T("SERVER:Server="),m_szSQLServersArray);//GB
    return RetrieveInformation(_T("Driver={SQL Server}"),_T("SERVER:"),m_szSQLServersArray); //GB
    }

    /*
    Retrieve Information of databases in a SQL Server
    You have to provide the User Id and Password
    On Success the string contains identifier
    DATABASE:Database= followed by the list of databases
    */
    BOOL CSQLInfoEnumerator::EnumerateDatabase(LPCTSTR pszSQLServer, LPCTSTR pszUserId, LPCTSTR pszPwd)
    {
    //Browse Connect for SQL Server Driver defined server using the authentication information
    //The return information would contain DATABASE:Database= Keyword followed by
    //{list of databases} separated by the character ';'
    CString szInputParam;
    szInputParam.Format("Driver={SQL Server};SERVER=%s;UID=%s;PWD=%s",pszSQLServer,pszUserId,pszPwd);
    //return RetrieveInformation(szInputParam,_T("DATABASE:Database="),m_szSQLServerDatabaseArray); //GB
    return RetrieveInformation(szInputParam,_T("DATABASE:"),m_szSQLServerDatabaseArray); //GB
    }

    /*
    Retrieve Information of languages in a SQL Server
    You have to provide the User Id and Password
    On Success the string contains identifier
    LANGUAGE:Language= followed by the list of languages
    Character Translation is not done, so you may see
    special characters and question marks in the list of
    languages text
    */

    BOOL CSQLInfoEnumerator::EnumerateDatabaseLanguage(LPCTSTR pszSQLServer, LPCTSTR pszUserId, LPCTSTR pszPwd)
    {
    CString szInputParam;
    //Browse Connect for SQL Server Driver defined server using the authentication information
    //The return information would contain LANGUAGE:Language= Keyword followed by
    //{list of languages} separated by the character ';'
    szInputParam.Format("Driver={SQL Server};SERVER=%s;UID=%s;PWD=%s",pszSQLServer,pszUserId,pszPwd);
    //return RetrieveInformation(szInputParam,_T("LANGUAGE:Language="),m_szSQLServerLanguageArray); //GB
    return RetrieveInformation(szInputParam,_T("LANGUAGE:"),m_szSQLServerLanguageArray); //GB
    }

    /*
    This Function Checks for retrieving additional information
    using the initial input information and returns true if the
    look up key is found and fills ther result set into a string
    array.
    */

    BOOL CSQLInfoEnumerator::RetrieveInformation(LPCTSTR pszInputParam,LPCTSTR pszLookUpKey,CStringArray &szArray)
    {
    SQLHENV hSQLEnv;
    SQLHDBC hSQLHdbc;
    short sConnStrOut;
    BOOL bReturn = FALSE;
    //Allocate the environment handle
    m_iRetcode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &hSQLEnv);
    if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO)
    {
    //Set the environment attribute to SQL_OV_ODBC3
    m_iRetcode = SQLSetEnvAttr(hSQLEnv, SQL_ATTR_ODBC_VERSION, (void *)SQL_OV_ODBC3, 0);
    if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO)
    {
    //Allocate a connection handle
    m_iRetcode = SQLAllocHandle(SQL_HANDLE_DBC, hSQLEnv, &hSQLHdbc);
    if (m_iRetcode == SQL_SUCCESS || m_iRetcode == SQL_SUCCESS_WITH_INFO)
    {
    CString szConnStrOut;
    //Call SQLBrowseConnect for additional information
    m_iRetcode = SQLBrowseConnect(hSQLHdbc, (SQLCHAR *)pszInputParam, SQL_NTS,
    (SQLCHAR *)(szConnStrOut.GetBuffer(MAX_RET_LENGTH)), MAX_RET_LENGTH, &sConnStrOut);
    szConnStrOut.ReleaseBuffer();
    //if the look up key is found
    //fill in the result set
    int iFind = szConnStrOut.Find(pszLookUpKey);
    if(iFind != -1)
    {
    int iFind2 = szConnStrOut.Find('=', iFind); //GB
    if(iFind2 != -1) //GB
    { //GB
    for(int i=iFind;i<iFind2;i++) //GB
    { //GB
    char c = szConnStrOut[i]; //GB

    if(!isalnum(c) && c != ':') //GB
    { //GB
    break; //GB
    } //GB
    } //GB
    if(i == iFind2) //GB
    {
    CString szLookUpKey = pszLookUpKey;
    //szConnStrOut = szConnStrOut.Mid(iFind+szLookUpKey.GetLength()); //GB
    szConnStrOut = szConnStrOut.Mid(iFind2+1); //GB
    iFind = szConnStrOut.Find('{');
    if(iFind != -1)
    {
    szConnStrOut = szConnStrOut.Mid(iFind+1);
    iFind = szConnStrOut.Find('}');
    if(iFind != -1)
    {
    szConnStrOut = szConnStrOut.Left(iFind);
    FillupStringArray(szConnStrOut,szArray);
    bReturn = TRUE;
    }
    }
    }//GB
    }//GB
    }

    SQLDisconnect(hSQLHdbc);
    }
    SQLFreeHandle(SQL_HANDLE_DBC, hSQLHdbc);
    }
    SQLFreeHandle(SQL_HANDLE_ENV, hSQLEnv);
    }
    return TRUE;
    }

    /*Breaks up return information into a CStringArray for easy parsing*/

    BOOL CSQLInfoEnumerator::FillupStringArray(LPCTSTR pszData,CStringArray &szArray,TCHAR chSep)
    {
    CString szStr = pszData;
    CString szSep = chSep;
    szStr.TrimLeft();
    szStr.TrimRight();
    szArray.RemoveAll();
    int iStrLen = szStr.GetLength(),iSepPos,iSepLength=szSep.GetLength();
    if(iStrLen>0 )
    {
    if(szStr.Right(iSepLength) != szSep)
    szStr += szSep;
    iStrLen = szStr.GetLength();
    }
    else
    return FALSE;

    CString szContentStr;
    while(!szStr.IsEmpty())
    {
    iSepPos = szStr.Find(szSep);
    szContentStr = szStr.Left(iSepPos);
    szContentStr.TrimLeft();
    szContentStr.TrimRight();
    if(!szContentStr.IsEmpty())
    szArray.Add(szContentStr);
    iStrLen = iStrLen - (iSepPos + iSepLength);
    szStr = szStr.Right(iStrLen);
    }
    return TRUE;
    }
    Smile | :)

    Georg Balog
    eandb@axelero.hu
    GeneralRe: The modifyed File is here for Internationalization BUG & Repair in SQL Server and Database Enumerator Pin
    Santosh Rao17-Jul-02 18:57
    Santosh Rao17-Jul-02 18:57 
    GeneralSQLBrowseConnect Pin
    Simone Giannecchini16-Dec-01 1:55
    Simone Giannecchini16-Dec-01 1:55 

    General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

    Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.