Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.07 » View Incident Report |
Serious |
Reported By: David Strange Reported On: 5/31/2004 For: Version 4.07 Build 1 |
Q := TDBISAMQuery.Create(nil); try with Q do begin DatabaseName := 'clink'; SQL.Clear; // main table SQL.Add('select * '); SQL.Add('into "\memory\MemCabinet"'); SQL.Add('from CabinetDB'); if (NewRecord = true) then SQL.Add('where 1=2;') else SQL.Add('where CabinetID = ' + QuotedStr(GUIDToString(CabinetModelRecNum)) + ';'); // parts table // read in parts SQL.Add('select * '); SQL.Add('into "\memory\MemParts"'); SQL.Add('from CabinetPartsDB'); if (NewRecord = true) then SQL.Add('where 1=2') else SQL.Add('where CabinetNum = ' + QuotedStr(GUIDToString(CabinetModelRecNum))); SQL.Add('order by name;'); // add new field SQL.Add('alter table "\memory\MemParts"'); SQL.Add('add column Used boolean Default ''True'';'); // add index SQL.Add('create index idxName'); SQL.Add('on "\memory\MemParts" (Name);'); // holes table // read in holes SQL.Add('select * '); SQL.Add('into "\memory\MemHoles"'); SQL.Add('from CabinetHolesDB'); if (NewRecord = true) then SQL.Add('where 1=2') else SQL.Add('where CabinetNum = ' + QuotedStr(GUIDToString(CabinetModelRecNum))); SQL.Add('order by PartNum, HoleName;'); // add new field SQL.Add('alter table "\memory\MemHoles"'); SQL.Add('add column Used boolean Default ''True'';'); // add index SQL.Add('create index idxName'); SQL.Add('on "\memory\MemHoles" (PartNum, HoleName);'); SQL.Add('create index idxHoleID'); SQL.Add('on "\memory\MemHoles" (HoleID);'); // run query ExecSQL; Close; end; finally Q.Free; end;
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 |