数据库ADO如何读取数据

 con:连接对象

CString str=" select USER_ID from USER_DEF_TAB";    只涉及字段和数据表。
 
m_pRecordset.CreateInstance("ADODB.Recordset"); 
m_pRecordset->Open(_bstr_t(str),_variant_t((IDispatch*)con->m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
   
if (m_pRecordset->GetPageCount()!=0)   数据集中记录为0，则无法读取。
{
        m_pRecordset->MoveFirst();    指针移到第一个记录位置
       

while (!m_pRecordset->adoEOF)    数据集中记录指针未指向最后记录时
{
_variant_t  user_id;   定义user_id
CString s_id;   定义s_id
   
user_id=m_pRecordset->GetCollect("USER_ID");
 //***********读取出参数***************
 s_id= (LPCTSTR)_bstr_t(user_id);

m_username.AddString(s_id);

m_pRecordset->MoveNext();
}
   
}
else
{
   MessageBox("无法读取到用户列表！");
   return false;
}

return true;