|
_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
TRACE("Exception throw for classes generated by #import");
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(...)
{
TRACE("Unhandled Exception");
}
n 添加对话框的WM_Destroy消息响应函数
void CZjyDlg::OnDestroy()
{
CDialog::OnDestroy();
// TODO: Add your message handler code here
if(m_IsConnectionOpen)
{
m_IsConnectionOpen=false;
m_pConnection->Close();
m_pConnection=NULL;
m_pRecordset=NULL;
}
}
n 最后添加按钮的消息响应函数如下
void CZjyDlg::OnButton1()
{
// TODO: Add your control notification handler code here
VARIANT_BOOL valEof;
HRESULT hr;
CString strColName;BSTR bstrColName;
CString strValue;VARIANT varValue;
long ColCount,i; int RowCount=0;
Fields * fields=NULL;Field * field=NULL;
VARIANT varCounter;
varCounter.vt=VT_I4;
varCounter.lVal=0;
try
{
m_list.DeleteAllItems();
while(m_list.DeleteColumn(0));
hr=m_pRecordset->get_Fields(&fields);
if(SUCCEEDED(hr)) hr=fields->get_Count(&ColCount);
for(i=0;i<ColCount;i++)
{
hr=fields->Item[i]->get_Name(&bstrColName);
strColName=bstrColName;
int nWidth=m_list.GetStringWidth(strColName)+15;
m_list.InsertColumn(i,strColName,LVCFMT_LEFT,nWidth);
}
if(SUCCEEDED(hr)) fields->Release();
m_pRecordset->get_adoEOF(&valEof);
while(true)
上一页 [1] [2] [3] [4] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
