求事例！CDaoRecordset中find，和seek函数的用法。----等待！！！

Question

给出事例：）

Answer 1

//Find的实例
CDaoDatabase *pDb = new CDaoDatabase;
pDb->Open("case.mdb",TRUE,FALSE,_T(""));
CDaoTableDef *pTd = new CDaoTableDef(pDb);
pTd->Open("patient");
CDaoRecordset *pRs = new CDaoRecordset(pDb);
pRs->Open(pTd,dbOpenDynaset);
CString str;
str = "in_num='" +m_strID +"'";
if(!pRs->Find(AFX_DAO_FIRST,str))
{
MessageBox("该住院号不存在，请重新输入！");
return;
}

Answer 2

//Find的实例
// rs is a dynaset-type recordset previously opened
CString strCriteria = _T("STATE = ‘NY’");
try
{
    if ( rs.FindFirst( strCriteria ) )
       // Do something with the found record
    rs.FindNext( strCriteria );
    // ...
}
catch( CDaoException* e )
{
    e->Delete( );
}
//Seek的实例
// rs is a table-type recordset
try
{
    // Set current index for recordset and 
    // save current position.
    rs.SetCurrentIndex( _T("PartNameIndex") );
    COleVariant varCurrentPos = rs.GetBook( );    // variant used as a key in Seek
    COleVariant varKey (_T("Framis Lever"), VT_BSTRT);    // Find first record whose Part Name 
    // field is "Framis Lever".
    if ( rs.Seek( _T("="), &varKey ) )
        // Return to the saved position
        rs.SetBook( varCurrentPos );
    else
        // Do something in response to Seek failure
}
catch( CDaoException* e )
{
    e->Delete( );
}