ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBExtract.pas

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