
复制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; } 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.