DAO数据库：删除

void CMyDAODlg::OnButtonDel() 
{
	// TODO: Add your control notification handler code here
	CLinkInfoSet LinkInfoSet;
	POSITION	pos;
	int			iPos;
	CString     strPersonID;
	pos = m_listLinkInfo.GetFirstSelectedItemPosition();
	if (pos == NULL)
	{
		::MessageBox(NULL, "请选择要删除的记录！", "通信录", MB_OK|MB_ICONINFORMATION|MB_TASKMODAL);
		return;
	}

	if(AfxMessageBox("真的要删除该记录吗？", MB_ICONQUESTION | MB_YESNO|MB_DEFBUTTON2) == IDNO)
		return;

	iPos			= m_listLinkInfo.GetNextSelectedItem(pos);
	strPersonID		= m_listLinkInfo.GetItemText(iPos, 5);


	CString strSQL;
	strSQL.Format("select * from  LinkInfo where PersonID=%s", strPersonID);

	TRY
	{
		LinkInfoSet.Open( AFX_DAO_USE_DEFAULT_TYPE, strSQL, 0);
		if (LinkInfoSet.IsEOF())
		{
			LinkInfoSet.Close();
			return;
		}
		else
		{
			LinkInfoSet.Delete();
		}
		
		LinkInfoSet.Close();
	}
	CATCH_ALL(e)
	{
		e->ReportError();
		if (LinkInfoSet.IsOpen())
		{
			LinkInfoSet.Close();
		}
		::MessageBox(NULL, "检索数据库失败！", "数据库操作", MB_OK|MB_ICONEXCLAMATION);	
		return;
	}
	END_CATCH_ALL

	ShowItem("select * from LinkInfo");

	UpdateData(FALSE);	
}