{
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] 下一页 没有相关教程
|