Rewind result set for column comments before iterating over it, as it…

…'s an inner loop. See http://www.heidisql.com/forum.php?t=21504
HeidiSQL · Jun 7, 2016 · 3641a18 · 3641a18
1 parent 0ec226c
commit 3641a18
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -2754,6 +2754,7 @@ function TDBConnection.GetCreateCode(Database, Schema, Name: String; NodeType: T
           Result := Result + ' COMMENT ' + EscapeString(Cols.Col('column_comment'))
         else if Comments <> nil then begin
           // Find column comment from separate result
+          Comments.First;
           while not Comments.Eof do begin
             if Comments.Col('column')=Cols.Col('COLUMN_NAME') then begin
               Result := Result + ' COMMENT ' + EscapeString(Comments.Col('comment'));