数据库查询以及插入LIST列表函数

void CStuDlg::List(CString sql) //将SQL语句查询的结果显示在列表框中

{

m_MyList.DeleteAllItems();

int i=0;

m_pRecordset.CreateInstance("ADODB.Recordset");

m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*) theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);

if(!m_pRecordset->adoEOF) //如果记录不为空

{

while(!m_pRecordset->adoEOF)

{m_MyList.InsertItem(i,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("Sno"));

m_MyList.SetItemText(i,1,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("Sname"));

m_MyList.SetItemText(i,2,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("Ssex"));

m_MyList.SetItemText(i,3,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("Sage"));

m_MyList.SetItemText(i,4,(LPCTSTR)(_bstr_t)m_pRecordset->GetCollect("Sdept"));

i++;

m_pRecordset->MoveNext();

}

}

m_pRecordset->Close();

}