Skip to content
Permalink
Browse files
Rewind result set for column comments before iterating over it, as it…
  • Loading branch information
ansgarbecker committed Jun 7, 2016
1 parent 0ec226c commit 3641a180e40fd43ed7eb1fe0a69493f356f60283
Showing with 1 addition and 0 deletions.
  1. +1 −0 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'));

0 comments on commit 3641a18

Please sign in to comment.