跨数据库的数据记录的备份处理

      在手头的一个项目中需要对某些历史库中的过期（超过一定时长）记录进行备份，但备份库可能是分布在其它服务器上的。因此不能简单地通过SELECT INTO 语句来进行处理，Google了一下也没找到什么好的办法，只好自己写代码进行处理。（另：由于此项目是用VC++开发，如果是用C#开发就好处理多了）
        下面简要介绍一下实现过程，请高手指点。
        1. 用到的一些配置变量：
            COleDateTime m_dtLastClearTime;    // 最后一次备份时间
            int m_iHistoryOverdueDays;             // 历史记录过期的天数

        2. 实现流程
            a. 判断是否需要进行备份（判断最后一次备份时间与当前时间差是否大于历史记录过期的天数，如果是则进行备份，否则退出不作备份）
            b. 使用数据表创建脚本在备份数据库中创建备份数据表（备份表的命名约定：原表名＋年月日）
            c. 转移满足条件的数据
            d. 删除原表中过期数据

        3. 转移满足条件的数据的代码

 1HRESULT TransferHistoryRecords(const CString csTime, const CString csTableName, const CString csTimeFieldName)
 2{
 3    try
 4    {
 5        CString csQuerySql = _T(""), csOverdueDays, csNewTableName;
 6        csOverdueDays.Format(_T("%d"), m_iHistoryOverdueDays);
 7        csNewTableName.Format(_T("%s_%s"), csTableName, csTime);
 8        csQuerySql.Format(_T("SELECT * FROM %s "), csTableName);
 9        csQuerySql += _T(" WHERE (") + csTimeFieldName + _T("<DATEADD(dd,-") + csOverdueDays + _T(",GETDATE()))");
        }

        AdoNS::_RecordsetPtr rsTt;
        HRESULT hr = rsTt.CreateInstance(__uuidof(AdoNS::Recordset));
        rsTt->CursorLocation=AdoNS::adUseClient;
        hr = rsTt->Open(_bstr_t(csQuerySql),_variant_t((IDispatch *)m_objDbConn.m_pDbConnAlarm,true),AdoNS::adOpenDynamic,AdoNS::adLockUnspecified,AdoNS::adCmdText);
        if (FAILED(hr))
        {
            CSasLog::WriteLog(_T("Ex050001: 历史数据库查询出错: ") + csTableName);
            return E_FAIL;
        }

        AdoNS::FieldsPtr pFields;
        rsTt->get_Fields(&pFields);
        long iFieldCount = 0;
        hr = pFields->get_Count(&iFieldCount);
        if (FAILED(hr))
        {
            CSasLog::WriteLog(_T("Ex050002: 历史数据库查询出错: ") + csTableName);
            rsTt->Close();
            return E_FAIL;
        }

        AdoNS::_RecordsetPtr rsAn;
        hr = rsAn.CreateInstance(__uuidof(AdoNS::Recordset));
        rsAn->CursorLocation = AdoNS::adUseClient;
        if ((m_objHistoryBackDbConnPrm.m_pDbConn != NULL) && (m_objHistoryBackDbConnPrm.m_pDbConn->State == 1))
        {
            hr = rsAn->Open(_bstr_t(csNewTableName), m_objHistoryBackDbConnPrm.m_pDbConn.GetInterfacePtr(), AdoNS::adOpenKeyset, AdoNS::adLockOptimistic, AdoNS::adCmdTable);
            if (FAILED(hr))
            {
                CSasLog::WriteLog(_T("Ex050003: 打开备份历史数据库出错: ") + csNewTableName);
                rsTt->Close();
                return E_FAIL;
            }
        }
        else
        {
            CSasLog::WriteLog(_T("Ex050004: 打开备份历史数据库出错: ") + csNewTableName);
            rsTt->Close();
        }

        VARIANT vtIndex, vtValue;
        vtIndex.vt = VT_I4;
        vtIndex.intVal = 0;
        long lAttribute = 0;
        BSTR bstrFieldName;

        while (! rsTt->adoEOF)
        {
            hr = rsAn->AddNew();
            if (FAILED(hr))
            {
                break;
            }

            for(int i=0; i<iFieldCount; i++)
            {
                AdoNS::FieldPtr pField;
                vtIndex.intVal = i;
                pFields->get_Item(vtIndex, &pField);
                lAttribute = 0;
                pField->get_Attributes(&lAttribute);
                if (lAttribute == 16)
                {
                    continue;
                }

                pField->get_Value(&vtValue);
                pField->get_Name(&bstrFieldName);
                rsAn->PutCollect(bstrFieldName, vtValue);
            }

            rsAn->Update();
            rsTt->MoveNext();
        }

        rsTt->Close();
    }
    catch(_com_error ex)
    {
        CSasLog::WriteLog(_T("TransferHistoryRecords[") + csTableName + _T("] error: ") + CString(ex.ErrorMessage()));
        return E_FAIL;
    }

    return S_OK;
}

        其它代码较为简单，在此就不贴出来了。