要删除数据库所有记录，这段程序该如何改

要删除数据库所有记录，这段程序该怎么改？
void CBmpDlg::OnButton3() 
{
// TODO: Add your control notification handler code here
CRecordsetStatus status;   
pset->GetStatus(status);  //获取当前记录集
pset->Delete();           //删除当前记录集
if(status.m_lCurrentRecord==0)    //若当前记录索引号为0，则下移一个记录
pset->MoveNext();
else
pset->MoveFirst();     //否则移到第一个记录
UpdateData(FALSE);
}
------最佳解决方案--------------------------------------------------------
odbc?

直接
CDatabase db;
db.OpenEx( "DSN=xxx;UID=;PWD=", CDatabase::noOdbcDialog );
CString str;
str.Format("truncate table xxx");
db.ExecuteSQL( strCmd );


------其他解决方案--------------------------------------------------------
直接到数据库中执行

truncate table tbname

就行了.