VC 6.0 通过ADO 远程连接VS2008

步骤及代码如下：

1、首先在Stdafx.h头文件中引入ADO库，代码如下：

//引入ADO库
#import "C:\Program Files\common files\system\ado\msado15.dll" no_namespace rename("EOF","EndOfFile") rename("BOF","FirstOfFile")    

//rename("EOF","EndOfFile")表示将"EOF"重新定义为"EndOfFile"

2、在需要连接数据库的.CPP文件中加入数据库操作代码： 
   ::CoInitialize(NULL);  .                             //初始化COM库
 _ConnectionPtr  m_pstartconn;                //连接对象指针
 m_pstartconn.CreateInstance(__uuidof(Connection)); //初始化对象
 _RecordsetPtr pRecordsetstart;             //数据集对象指针
 pRecordsetstart.CreateInstance(__uuidof(Recordset));   //初始化数据集指针

//连接数据库的字符串

 CString strConnect= "Provider=SQLOLEDB.1;Password=123;Persist Security Info=False;User ID=123;Initial Catalog=datatest;Data Source=10.1.8.221";

注释：Provider字段指 打开数据库用哪种方式连接，Password指数据库的认证密码，Persist Security Info指是否保存安全信息，User ID指数据库的认证用户名，Initial Catalog指数据库的名称或者目录,Data Source指远程的数据库（服务器）IP地址

 

下面是有两种打开数据库方式，一个是以m_pstartconn打开数据库，另一个以pRecordsetstart连接数据库，实际操作可以任选其一

1>以m_pstartconn打开数据库：

try
    {
        if (m_pConnection->State)
        {
            m_pConnection->Close();
        }
        // 设置超时时间为3秒钟
        m_pConnection->PutConnectionTimeout(3);
        m_pConnection->Open(_bstr_t(strConnect),"","",adModeUnknown);
       }
    catch(_com_error e)
    {
         CString strmessage;
        strmessage.FormatMessage("数据库连接失败!",e.Description());
        AfxMessageBox(strmessage);
     }

2>下面是以pRecordsetstart打开数据库并连接f_test_tb表及异常处理：
 try
    {
        if (m_pstartconn->State)
        {
            m_pstartconn->Close();
        }
        m_pstartconn->PutConnectionTimeout(5);                     // 设置超时时间为5秒钟
       pRecordsetstart->Open("select * from f_test_tb", _bstr_t(strConnect),
      adOpenDynamic, adLockOptimistic, adCmdUnknown);        //打开数据库中的f_test_tb表，得到数据集，并赋给pRecordsetstart

      }
    catch(_com_error e)
    {
       CString strmessage;
       strmessage.FormatMessage("数据库连接失败!",e.Description());
        AfxMessageBox(strmessage);
    }

 

3、上面连接数据库的步骤已经完成，下面是对数据库表的操作：

 //插入数据

  CString strSQL = "insert into f_data(order,pn,testname,testvalue) values('312','GS','wcd,'30')";//插入字符串

  pRecordsetftest->AddNew();
  pRecordsetftest->PutCollect("order",12); //插入列数据,order指表中的字段，12指插入此列的数据
  pRecordsetftest->PutCollect("pn",34); //插入列数据，pn指表中的字段，34指插入此列的数据
  pRecordsetftest->Update(); //更新数据库表
 

   //获得数据库表的数据：

    CString strpn=((_variant_t)pRecordsetstart->GetCollect("pn")).bstrVal;  //pn 指表中的字段，获取到的数据赋给变量strpn。  

  // 删除数据库的数据：

    CString strpn=((_variant_t)pRecordsetstart->GetCollect("pn")).bstrVal;  //pn 指表中的字段，获取到的数据赋给变量strpn,再删除

    pRecordsetstart->Delete(adAffectCurrent);

    pRecordsetstart.->Update();