在發(fā)布與數(shù)據(jù)庫相關的軟件時，如果程序是用ODBC方式訪問數(shù)據(jù)庫，則需要在軟件安裝時創(chuàng)建ODBC數(shù)據(jù)源。
ODBC數(shù)據(jù)源的一些信息都存放在注冊表中。

HKEY_LOCAL_MECHINE\Software\ODBC\ODBCINST.INI

從此鍵下可得知系統(tǒng)是否已經安裝SQL Server驅動程序

HKEY_LOCAL_MECHINE\Software\ODBC\ODBC.INI

從此鍵下可得知系統(tǒng)已經建立的數(shù)據(jù)源.

實現(xiàn)函數(shù)如下:

//////////////////////////////////////////////////////////////////
//Function:  MakeSQLServerODBCDSN
//
//Purpose: 配置SQL Server數(shù)據(jù)源
//Parameters:
//  [in]
//   strDBServer: 數(shù)據(jù)庫所在主機
//   strDBName:  數(shù)據(jù)庫名稱
//   strDSN:   數(shù)據(jù)源名稱
//   strUID:   登陸用戶
//Return Value:
//  -1: 沒有安裝SQL Server驅動程序
//  -2: 其他錯誤
//   0: 成功
//////////////////////////////////////////////////////////////////
int MakeSQLServerODBCDSN(LPCTSTR strDBServer,LPCTSTR strDBName,LPCTSTR strDSN,LPCTSTR strUID)
{
BOOL  bInstallDriver=TRUE;
CRegKey  regKey;

LONG lRet=regKey.Open(HKEY_LOCAL_MACHINE,"Software\\ODBC\\ODBCINST.INI\\SQL Server");
if(lRet!=ERROR_SUCCESS)
{
  bInstallDriver=FALSE;
}
else
{
  char  szDirverPath[MAX_PATH]="";
  DWORD  dwCount=100;
  lRet=regKey.QueryValue(szDirverPath,"Driver",&dwCount);
  if((lRet!=ERROR_SUCCESS) (dwCount<1))
  {
   DWORD dwErr=GetLastError();
   bInstallDriver=FALSE;
  }
  regKey.Close();
}
if(!bInstallDriver)
{
  return -1;
}
CString  strKeyValueName="Software\\ODBC\\ODBC.INI\\";
strKeyValueName+=strDSN;
lRet=regKey.Create(HKEY_LOCAL_MACHINE,strKeyValueName);
if(lRet!=ERROR_SUCCESS)
{
  return -2;
}
regKey.SetValue(strDBName,"Database");
regKey.SetValue("SQLSrv32.dll","Driver");
regKey.SetValue(strDBServer,"Server");
regKey.SetValue(strUID,"LastUser");
regKey.m_hKey=HKEY_LOCAL_MACHINE;
regKey.SetKeyValue("Software\\ODBC\\ODBC.INI\\ODBC Data Sources","SQL Server",strDSN);
regKey.Close();
return 0;
}