求助,ADO连接SQL数据库的问题?

adjacency

MFC ADO SQL
// 初始化—连接数据库
void  ADOConn::OnInitADOConn()
{
        // 初始化OLE/COM库环境
        ::CoInitialize(NULL);
  
        try
        {
                // 创建Connection对象
                m_pConnection.CreateInstance("ADODB.Connection");
                // 设置连接字符串，必须是BSTR型或者_bstr_t类型
                // Data Source表示服务器地址、Initial Catalog 表示数据库名称、user id表示用户名，如果设置了密码，则需要设置password=密码
                _bstr_t strConnect = &quotrovider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=" ";Initial Catalog=HR;Data Source=(local)";//127.0.0.1
                m_pConnection->Open(strConnect,"","",adModeUnknown);
        }
        // 捕捉异常
        catch(_com_error e)
        {
                // 显示错误信息
                AfxMessageBox(e.Description());
        }
}

adjacency

出错，什么原因？（网上查了很多，无效）：

funcman

报什么错误？
SQL Server 2000要打SP3，才能远程连接上。

adjacency

一台机器即作服务器又作客户机，软件连接中出现：
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server不存在或拒绝访问

银河漫游指南

这是我写的  成功连接了
1.导入ADO动态链接库,在stdafx.h中加入：
   #import "C:\program files\common files\system\ado\msado15.dll"        no_namespace rename("EOF","adoEOF")
2.在InitInstance()中加入：
           if (!AfxOleInit())
        {
          AfxMessageBox("初始化OLE DLL 失败");
          return FALSE;
        }
   来初始化OLE/COM库环境。
3.OLE DB提供者实现对SQL Sever的标准安全连接串：
   CString strConnect;
   strConnect=_T(&quotrovider=sqloledb;Data Source=file;"
                 "Initial Catalog=file;"
                 "User ID=MyUserName;Password=Mypassword;");
strSQL=_T("Provider=sqloledb;Data Source=PC-200901101031;Initial Catalog=hackfile;Integrated Security=SSPI;User ID=bolong;Password=101110");
    或strSQL=_T("driver={sql server};server=192.168.177.80;database=hackfile;uid=bolong;pwd=101110");
   远程连接：
4.打开结果集
BOOL CInternetBarApp::OpenRecordSet(_RecordsetPtr &recPtr,CString &strSQL)
{
    CInternetBarApp* pApp=(CInternetBarApp*)AfxGetApp();
    m_pRecordset.CreateInstance(_uuidof(Recordset));
        try
    {
         recPtr->Open(strSQL.AllocSysString(),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
        }
        catch(_com_error e)
        {
         CString strError;
         strError.Format("警告：打开数据库表时发生异常。错误信息：%s",e.ErrorMessage());
         AfxMessageBox(strError);
         return FALSE;
        }
        return TRUE;
}

funcman

这种错误大概是因为三种情况造成的：
1 防火墙拦截了
2 默认端口被改掉了
3 没打SP3补丁（最新的是SP4）

adjacency

原来没打SQL SERVER SP4补丁.
谢谢funcman