BOOL Upgrade_Groups(CDaoDatabase& db)
{
try
{
CDaoTableDefEx table(&db);
table.Open(_T("Main"));
// Groups
table.CreateField(_T("bIsGroup"), dbBoolean, 1, 0, _T("0")); // for Groups
table.CreateIndex(FALSE, _T("bIsGroup"));
table.CreateField(_T("lParentID"), dbLong, 4, 0, _T("0")); // parent Group Main.lID
table.CreateIndex(FALSE, _T("lParentID"));
table.CreateField(_T("dOrder"), dbDouble, 8, 0, _T("0")); // for Order within Groups
table.CreateIndex(FALSE, _T("dOrder"));
table.Close();
// set defaults (otherwise might be NULL)
db.Execute(_T("UPDATE Main SET bIsGroup = 0, lParentID = 0, dOrder = 0"), dbFailOnError);
}
catch(CDaoException* e)
{
ASSERT(FALSE);
e->Delete();
return FALSE;
}
return TRUE;
}
// +mText, -strText, -strType
BOOL Upgrade_mText(CDaoDatabase& db)
{
try
{
db.Execute(_T("ALTER TABLE Main ADD COLUMN mText MEMO"), dbFailOnError);
db.Execute(_T("UPDATE Main SET mText=strText"), dbFailOnError);
db.Execute(_T("ALTER TABLE Main DROP COLUMN strText"), dbFailOnError);
db.Execute(_T("ALTER TABLE Main DROP COLUMN strType"), dbFailOnError);
}
catch(CDaoException* e)
{
ASSERT(FALSE);
e->Delete();
return FALSE;
}
return TRUE;
}
BOOL Upgrade_ShareData(CDaoDatabase& db)
{
try
{
CDaoTableDefEx table(&db);
table.Open(_T("Main"));
table.CreateField(_T("lDataID"), dbLong, 4, 0, _T("0")); // corresponds to Data.lDataID
table.CreateIndex(FALSE, _T("lDataID"));
table.Close();
table.Open(_T("Data"));
table.CreateField(_T("lDataID"), dbLong, 4, 0, _T("0")); // parent Group Main.lID
table.CreateIndex(FALSE, _T("lDataID"));
table.Close();
// set defaults
db.Execute(_T("UPDATE Main SET lDataID = 0"), dbFailOnError);
db.Execute(_T("UPDATE Data SET lDataID = 0"), dbFailOnError);
// update Main.lDataID and Data.lParentID for sharing Data
//
// - multiple Formats (Data.lID) exist for a single ClipData (Data.lDataID)
// - The value of lDataID is arbitrary, but must be unique to the ClipData.
// - In order to ensure uniqueness, lDataID is assigned the lID of
// the first Format in the Clip's set.
COleVariant var((long)0);
CDaoRecordset main(&db);
long main_fldID;
long main_fldDataID;
long main_lID;
CDaoRecordset data(&db);
long data_fldID;
long data_fldDataID;
long lDataID;
int count = 0;
int i = 0;
int percentPrev = -1;
int percent = -1;
main.Open(dbOpenDynaset, _T("SELECT lID, lDataID FROM Main"));
main_fldID = GetFieldPos(main, _T("lID"));
VERIFY(main_fldID == 0);
main_fldDataID = GetFieldPos(main, _T("lDataID"));
VERIFY(main_fldDataID == 1);
if( !main.IsEOF() )
{
main.MoveLast();
count = main.GetRecordCount();
main.MoveFirst();
}
// for each record in Main and its corresponding records in Data,
// assign a new unique lDataID.
while( !main.IsEOF() )
{
i++;
percentPrev = percent;
percent = (i*100)/count;
main.GetFieldValue(main_fldID,var);
main_lID = var.lVal;
CString cs;
cs.Format(_T("SELECT lID, lDataID FROM Data WHERE lParentID = %d"), main_lID);
data.Open(dbOpenDynaset, cs);
data_fldID = GetFieldPos(data, _T("lID"));
VERIFY(data_fldID == 0);
data_fldDataID = GetFieldPos(data, _T("lDataID"));
VERIFY(data_fldDataID == 1);
// lDataID = the first data record lID
lDataID = 0;
if( !data.IsEOF() )
{
data.GetFieldValue(0,var); // 0 == lID field
lDataID = var.lVal;
}
// assign all Data records the same lDataID
while( !data.IsEOF() )
{
var.lVal = lDataID;
data.Edit();
data.SetFieldValue(1,var); // 1 == lDataID field
data.Update();
data.MoveNext();
}
// assign Main.lDataID
var.lVal = lDataID;
main.Edit();
main.SetFieldValue(1,var); // 1 == lDataID field
main.Update();
main.MoveNext();
data.Close();
}
main.Close();
// delete the old field
db.Execute(_T("ALTER TABLE Data DROP CONSTRAINT lParentID"), dbFailOnError);
db.Execute(_T("ALTER TABLE Data DROP COLUMN lParentID"), dbFailOnError);
}
catch(CDaoException* e)
{
ASSERT(FALSE);
e->Delete();
return FALSE;
}
return TRUE;
}