用VC程序来创建SQL Server ODBC数据源
【打印文章】
在发布与数据库相关的软件时,如果程序是用ODBC方式访问数据库,则需要在软件安装时创建ODBC数据源。
ODBC数据源的一些信息都存放在注册表中。
HKEY_LOCAL_MECHINE\Software\ODBC\ODBCINST.INI
从此键下可得知系统是否已经安装SQL Server驱动程序
HKEY_LOCAL_MECHINE\Software\ODBC\ODBC.INI
从此键下可得知系统已经建立的数据源.
实现函数如下:
//////////////////////////////////////////////////////////////////
//Function: MakeSQLServerODBCDSN
//
//Purpose: 配置SQL Server数据源
//Parameters:
// [in]
// strDBServer: 数据库所在主机
// strDBName: 数据库名称
// strDSN: 数据源名称
// 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;
}
ODBC数据源的一些信息都存放在注册表中。
HKEY_LOCAL_MECHINE\Software\ODBC\ODBCINST.INI
从此键下可得知系统是否已经安装SQL Server驱动程序
HKEY_LOCAL_MECHINE\Software\ODBC\ODBC.INI
从此键下可得知系统已经建立的数据源.
实现函数如下:
//////////////////////////////////////////////////////////////////
//Function: MakeSQLServerODBCDSN
//
//Purpose: 配置SQL Server数据源
//Parameters:
// [in]
// strDBServer: 数据库所在主机
// strDBName: 数据库名称
// strDSN: 数据源名称
// 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;
}
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】