FIX: DFX_Bool Calls Default() with AFX_RFX_LONGBINARY

   case CDaoFieldExchange::Fixup:
      // Convert BOOL value from AFX_DAO_TRUE/FALSE to TRUE/FALSE
      value = (value != AFX_DAO_FALSE);

      pFX->Default(lpszName, (void*)&value,
         AFX_RFX_LONGBINARY, dwBindOptions);
      return;
				

   case CDaoFieldExchange::Fixup:
      // Convert BOOL value from AFX_DAO_TRUE/FALSE to TRUE/FALSE
      value = (value != AFX_DAO_FALSE);

      pFX->Default(lpszName, (void*)&value,
         AFX_RFX_BOOL, dwBindOptions);       // <<-- Change to AFX_RFX_BOOL
      return;
				

MORE INFORMATION

The code for the Fixup case in CDaoFieldExchange::Default is:

   case Fixup:
      if (m_prs->GetFieldLength(m_nField-1) == DAO_NULL)
      {
         // Set the value to PSEUDO NULL and mark the status NULL
         SetNullValue(pv, dwColumnType);
         m_prs->SetNullFieldStatus(m_nField-1);
      }
      return;
				

The dwColumn type is the variable that is incorrectly set to AFX_RFX_LONGBINARY in DFX_Bool. Note that SetNullValue is called with the value passed in the second parameter. The code for SetNullValue (showing relevant cases) is:

   void CDaoFieldExchange::SetNullValue(void* pv, DWORD dwDataType)
   {
      switch (dwDataType)
      {
         .
         .
         .

      case AFX_RFX_LONGBINARY:
         ((CLongBinary*)pv)->m_dwDataLength = 0;
         break;

      case AFX_RFX_BOOL:
         *(BOOL*)pv = AFX_RFX_BOOL_PSEUDO_NULL;
         break;

        .
        .
        .
    }
}
				

Note that the AFX_RFX_BOOL case (the one that should be called) sets the BOOL variable to the constant AFX_RFX_BOOL_PSEUDO_NULL. The AFX_RFX_LONGBINARY case (incorrectly called in the MFC source) sets the m_dwDataLength member of a CLongBinary object (at an offset in the object beyond the size of a BOOL) to zero. Whatever is adjacent to the BOOL variable has 4 bytes of its memory overwritten. The symptoms of this memory overwrite depend on what that variable was used for. There can also be no symptoms.