Icon View Incident Report

Minor Minor
Reported By: Bernd Apel
Reported On: 1/21/2010
For: Version 4.29 Build 2
# 3161 DBSYS Utility Generating Incorrect Index Creation Code for Delphi Reverse-Engineering

With Dbsys Reverse Engineer Table, if I have Compression none then Indexdefs.add is not correct with compression full is correct.

procedure CreateTables(CreateDatabaseName: string);
var
   TableToCreate: TDBISAMTable;
begin
   TableToCreate:=TDBISAMTable.Create(Application);
   try
      with TableToCreate do
         begin
         DatabaseName:=CreateDatabaseName;
         TableName:='abteil';
         Exclusive:=True;
         if (not Exists) then
            begin
            with FieldDefs do
               begin
               Clear;
               Add('AbteilID',ftAutoInc);
               Add('Nummer',ftString,2);
               Add('Name',ftString,30);
               end;
            with IndexDefs do
               begin
               Clear;
               Add('','AbteilID;Nummer',[ixPrimary,ixUnique],False);!!!!!!!!!
               Add('numix','Nummer',[ixCaseInsensitive],False);!!!!!
               end;
            CreateTable(0,5,1,False,'','',4096,512,0)
            end;
         end;
   finally
      TableToCreate.Free;
   end;
end;

end.



Comments Comments and Workarounds
The problem was caused by the generation code not correctly generating the new NoKeyStatistics parameter properly. The workaround is to modify the generated code manually.


Resolution Resolution
Fixed Problem on 1/22/2010 in version 4.29 build 3


Products Affected Products Affected
DBISAM Additional Software and Utilities

Image