Database

if (m_pMainGrid->m_bCopyingAssembly)
{
  CDaoDatabase* pDB = GetDatabase();
  CString Filter;
  CAssemRecords* OldAssRS = new CAssemRecords(pDB);
  CAssemRecords* NewAssRS = new CAssemRecords(pDB);

  try
  {
    Filter.Format("SELECT * FROM Assemblies WHERE [Assembly Key] = %ld", lOldComponentKey);
    OldAssRS->Open(dbOpenDynaset, Filter, 0);
    NewAssRS->Open(dbOpenDynaset, "SELECT * FROM Assemblies", 0);

    if (!(OldAssRS->IsBOF() || OldAssRS->IsEOF()))
    {
      OldAssRS->MoveFirst();
      do
      {
        NewAssRS->AddNew();
        NewAssRS->Initialise();
        NewAssRS->m_Assembly_Key = lNewComponentKey;
        NewAssRS->m_Item_Key = OldAssRS->m_Item_Key;
        NewAssRS->m_Number_Length = OldAssRS->m_Number_Length;
        NewAssRS->Update();
        OldAssRS->MoveNext();
      } while (!OldAssRS->IsEOF());
    }

    ASSERT(OldAssRS->IsOpen());//debug

    if (OldAssRS->IsOpen())
    {
      OldAssRS->Close();
    }
    if (OldAssRS)
    {
      delete OldAssRS;
    }
    OldAssRS = NULL;

    ASSERT(NewAssRS->IsOpen());//debug

    if (NewAssRS->IsOpen())
    {
      NewAssRS->Close();
    }
    if (NewAssRS)
    {
      delete NewAssRS;
    }
    NewAssRS = NULL;

    m_pMainGrid->SetCopyingAssem(FALSE);
  }
  catch(CDaoException *e)
  {
    ASSERT(e->ReportError());
    e->Delete();
    OldAssRS->Close();
    NewAssRS->Close();
    return;
  }
  catch(CMemoryException *e)
  {
    e->Delete();
    OldAssRS->Close();
    NewAssRS->Close();
    return;
  }
}