ADO得到字段名的代码

HRESULT    hr;
_bstr_t    mStrSQL;
CString    strColName;
BSTR    bstrColName;
long    ColCount,i;
Fields*    fields = NULL;
//打开记录集,得到字段名,并将字段名信息添加到LISTBOX中
mStrSQL = “SELECT * FROM image”;
m_pRecordset->Open(mStrSQL,
                                    m_pConnection.GetInterfacePtr(),
                                    adOpenDynamic,
                                    adLockOptimistrc,
                                    adCmdText);
hr = m_pRecordset->get_Fields(& fields);
//得到记录集的字段集和
if (SUCCEEDED(hr))
        fields->get_Count(& ColCount);

m_ListBox.ResetContent();
//得到记录集的字段集合中的字段的总个数
for(i=0; i<ColCount; i++)
{
    fields->Item[i]->get_Name(& bstrColName);    //得到记录集中的字段名
    strColName = bstrColName;
    nameField = strColName;
    m_ListBox.AddString(nameField);
}
if (SUCCEEDED(hr))
    m_pRecordset->Close();