if(valEof)break;

                            m_pRecordset->Fields->get_Item(varCounter,&field);

                            field->get_Value(&varValue);

                            strValue=VariantToString(varValue);

                            m_list.InsertItem(RowCount,strValue);

                            for(i=1;i<ColCount;i++)

                            {

                                     varCounter.lVal =i;

                                     m_pRecordset->Fields->get_Item(varCounter,&field);

                                     field->get_Value(&varValue);

                                     strValue=VariantToString(varValue);

                                     m_list.SetItemText(RowCount,i,(LPCTSTR)strValue);

                            }

                            RowCount++;

                            m_pRecordset->MoveNext();

                            m_pRecordset->get_adoEOF(&valEof);

                            varCounter.lVal=0;

                   }

                   m_pRecordset->Close();

         }

         catch(_com_error &e)

         {

                   _bstr_t bstrSource(e.Source());

                   _bstr_t bstrDescription(e.Description());

                   TRACE("\tCode=%08lx\n", e.Error);

                   TRACE("\tCode meaning = %s\n", e.ErrorMessage);

                   TRACE("\tSource = %s\n", (LPCTSTR)bstrSource);

                   TRACE("\tDescription = %s\n", (LPCTSTR)bstrDescription);

         }

         catch(...)

         {

         }

}

n          还有还有，在对话框类添加一个数据类型转换函数

CString CZjyDlg::VariantToString(VARIANT var)

{

CString strValue;

         _variant_t var_t;

         _bstr_t bstr_t;

         time_t cur_time;

         CTime time_value;

         COleCurrency var_currency;

         switch(var.vt)

         {

         case VT_EMPTY:

         case VT_NULL:strValue=_T("");break;

         case VT_UI1:strValue.Format("%d",var.bVal);break;

         case VT_I2:strValue.Format("%d",var.iVal);break;

         case VT_I4:strValue.Format("%d",var.lVal);break;

         case VT_R4:strValue.Format("%f",var.fltVal);break;

         case VT_R8:strValue.Format("%f",var.dblVal);break;

         case VT_CY:

上一页  [1] [2] [3] [4]  下一页