ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBExtract.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBExtract.pas (file contents):
Revision 48 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 49 by tony, Thu Feb 2 16:20:12 2017 UTC

# Line 3241 | Line 3241 | begin
3241        Database := FDatabase;
3242        SQL.Text := TableSQL;
3243        ExecQuery;
3244 +      FMetaData.Add('/* Data Starts */');
3245        while not EOF do
3246        begin
3247          ListData(Trim(FieldByName('RDB$RELATION_NAME').AsString));
3248          Next;
3249        end;
3250 +      FMetaData.Add('/* Data Ends */');
3251      finally
3252        Free;
3253      end;
# Line 3272 | Line 3274 | begin
3274      with TIBInsertStmtsOut.Create(self) do
3275      try
3276        Database := FDatabase;
3277 <      DataOut(Format('Select %s From %s',[FieldList,QuoteIdentifier(FDatabase.SQLDialect, ObjectName)]),
3278 <                Add2MetaData);
3279 <      FMetaData.Add('COMMIT;');
3277 >      if DataOut(Format('Select %s From %s',[FieldList,QuoteIdentifier(FDatabase.SQLDialect, ObjectName)]),
3278 >                Add2MetaData) then
3279 >        FMetaData.Add('COMMIT;');
3280      finally
3281        Free
3282      end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines