Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 3.03 » View Incident Report |
Serious |
Reported By: Gerald McKoy Reported On: 11/14/2001 For: Version 3.03 Build 1 |
// DBSYS Code void __fastcall CreateMediaTable(AnsiString CreateDatabaseName) { TDBISAMTable *TableToCreate; TableToCreate = new TDBISAMTable(Application); try { TableToCreate->DatabaseName=CreateDatabaseName; TableToCreate->TableName="media"; TableToCreate->Exclusive=True; TableToCreate->FieldDefs->Clear(); TableToCreate->FieldDefs->Add("MEDIA_ID",ftAutoInc,0,false); TableToCreate->FieldDefs->Add("MEDIA_TYPE",ftString,20,false); TableToCreate->IndexDefs->Clear(); TableToCreate->IndexDefs->Add("","MEDIA_ID",TIndexOptions() << ixPrimary << ixUnique); TableToCreate->IndexDefs->Add("IDX_MEDIATYPE","MEDIA_TYPE", TIndexOptions()); if ( !TableToCreate->Exists ) { TableToCreate->CreateTable(); TableToCreate->RestructureFieldDefs->Clear(); TableToCreate->RestructureFieldDefs->Add("MEDIA_ID",ftAutoInc,0,false, "","","","",fcNoChange,1); TableToCreate->RestructureFieldDefs->Add("MEDIA_TYPE",ftString,20, false,"","","","",fcNoChange,2); TableToCreate->RestructureIndexDefs->Clear(); TableToCreate->RestructureIndexDefs->Add("","MEDIA_ID", TIndexOptions() << ixPrimary << ixUnique,icNone); TableToCreate->RestructureIndexDefs->Add("IDX_MEDIATYPE","MEDIA_TYPE", TIndexOptions(),icNone); TableToCreate->RestructureTable(0,0,1,0,false,"","",512,-1,True); } TableToCreate->Open; TableToCreate->SuppressAutoIncValues=True; try { TableToCreate->AppendRecord(ARRAYOFCONST(1, "Tape")); TableToCreate->AppendRecord(ARRAYOFCONST(2, "CD")); TableToCreate->AppendRecord(ARRAYOFCONST(3, "VHS")); } __finally { TableToCreate->Close; } } } __finally { TableToCreate->Free(); } } // My Code void __fastcall CreateMediaTable(AnsiString CreateDatabaseName) { TDBISAMTable *TableToCreate; TableToCreate = new TDBISAMTable(Application); try { TableToCreate->DatabaseName=CreateDatabaseName; TableToCreate->TableName="media"; TableToCreate->Exclusive=True; TableToCreate->FieldDefs->Clear(); TableToCreate->FieldDefs->Add("MEDIA_ID",ftAutoInc,0,false); TableToCreate->FieldDefs->Add("MEDIA_TYPE",ftString,20,false); TableToCreate->IndexDefs->Clear(); TableToCreate->IndexDefs->Add("","MEDIA_ID",TIndexOptions() << ixPrimary << ixUnique); TableToCreate->IndexDefs->Add("IDX_MEDIATYPE","MEDIA_TYPE", TIndexOptions()); if ( !TableToCreate->Exists ) { TableToCreate->CreateTable(); TableToCreate->RestructureFieldDefs->Clear(); TableToCreate->RestructureFieldDefs->Add("MEDIA_ID",ftAutoInc,0,false, "","","","",fcNoChange,1); TableToCreate->RestructureFieldDefs->Add("MEDIA_TYPE",ftString,20, false,"","","","",fcNoChange,2); TableToCreate->RestructureIndexDefs->Clear(); TableToCreate->RestructureIndexDefs->Add("","MEDIA_ID", TIndexOptions() << ixPrimary << ixUnique,icNone); TableToCreate->RestructureIndexDefs->Add("IDX_MEDIATYPE","MEDIA_TYPE", TIndexOptions(),icNone); TableToCreate->RestructureTable(0,0,1,0,false,"","",512,-1,True); TableToCreate->Open(); TableToCreate->SuppressAutoIncValues=True; try { TableToCreate->AppendRecord(ARRAYOFCONST((1, "Tape"))); TableToCreate->AppendRecord(ARRAYOFCONST((2, "CD"))); TableToCreate->AppendRecord(ARRAYOFCONST((3, "VHS"))); } __finally { TableToCreate->Close(); } } } __finally { TableToCreate->Free(); } }
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |