Jimmy Liu

      在手头的一个项目中需要对某些历史库中的过期（超过一定时长）记录进行备份，但备份库可能是分布在其它服务器上的。因此不能简单地通过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()))");
10        }
11
12        AdoNS::_RecordsetPtr rsTt;
13        HRESULT hr = rsTt.CreateInstance(__uuidof(AdoNS::Recordset));
14        rsTt->CursorLocation=AdoNS::adUseClient;
15        hr = rsTt->Open(_bstr_t(csQuerySql),_variant_t((IDispatch *)m_objDbConn.m_pDbConnAlarm,true),AdoNS::adOpenDynamic,AdoNS::adLockUnspecified,AdoNS::adCmdText);
16        if (FAILED(hr))
17        {
18            CSasLog::WriteLog(_T("Ex050001: 历史数据库查询出错: ") + csTableName);
19            return E_FAIL;
20        }
21
22        AdoNS::FieldsPtr pFields;
23        rsTt->get_Fields(&pFields);
24        long iFieldCount = 0;
25        hr = pFields->get_Count(&iFieldCount);
26        if (FAILED(hr))
27        {
28            CSasLog::WriteLog(_T("Ex050002: 历史数据库查询出错: ") + csTableName);
29            rsTt->Close();
30            return E_FAIL;
31        }
32
33        AdoNS::_RecordsetPtr rsAn;
34        hr = rsAn.CreateInstance(__uuidof(AdoNS::Recordset));
35        rsAn->CursorLocation = AdoNS::adUseClient;
36        if ((m_objHistoryBackDbConnPrm.m_pDbConn != NULL) && (m_objHistoryBackDbConnPrm.m_pDbConn->State == 1))
37        {
38            hr = rsAn->Open(_bstr_t(csNewTableName), m_objHistoryBackDbConnPrm.m_pDbConn.GetInterfacePtr(), AdoNS::adOpenKeyset, AdoNS::adLockOptimistic, AdoNS::adCmdTable);
39            if (FAILED(hr))
40            {
41                CSasLog::WriteLog(_T("Ex050003: 打开备份历史数据库出错: ") + csNewTableName);
42                rsTt->Close();
43                return E_FAIL;
44            }
45        }
46        else
47        {
48            CSasLog::WriteLog(_T("Ex050004: 打开备份历史数据库出错: ") + csNewTableName);
49            rsTt->Close();
50        }
51
52        VARIANT vtIndex, vtValue;
53        vtIndex.vt = VT_I4;
54        vtIndex.intVal = 0;
55        long lAttribute = 0;
56        BSTR bstrFieldName;
57
58        while (! rsTt->adoEOF)
59        {
60            hr = rsAn->AddNew();
61            if (FAILED(hr))
62            {
63                break;
64            }
65
66            for(int i=0; i<iFieldCount; i++)
67            {
68                AdoNS::FieldPtr pField;
69                vtIndex.intVal = i;
70                pFields->get_Item(vtIndex, &pField);
71                lAttribute = 0;
72                pField->get_Attributes(&lAttribute);
73                if (lAttribute == 16)
74                {
75                    continue;
76                }
77
78                pField->get_Value(&vtValue);
79                pField->get_Name(&bstrFieldName);
80                rsAn->PutCollect(bstrFieldName, vtValue);
81            }
82
83            rsAn->Update();
84            rsTt->MoveNext();
85        }
86
87        rsTt->Close();
88    }
89    catch(_com_error ex)
90    {
91        CSasLog::WriteLog(_T("TransferHistoryRecords[") + csTableName + _T("] error: ") + CString(ex.ErrorMessage()));
92        return E_FAIL;
93    }
94
95    return S_OK;
96}
97

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