opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Display column comments on MSSQL. See http://www.heidisql.com/forum.php?t=19576

Browse Source
This commit is contained in:
Ansgar Becker
2015-10-30 19:23:12 +00:00
parent c259410ded
commit e19d803e64
1 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
source/dbconnection.pas
View File

@ -2629,7 +2629,7 @@ end;
function TDBConnection.GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String;
var
Cols, Keys, ProcDetails: TDBQuery;
Cols, Keys, ProcDetails, Comments: TDBQuery;
ConstraintName, MaxLen, DataType: String;
ColNames, ArgNames, ArgTypes, Arguments: TStringList;
Rows: TStringList;
@ -2649,6 +2649,7 @@ begin
case NodeType of
lntTable: begin
Result := 'CREATE TABLE '+QuoteIdent(Name)+' (';
Comments := nil;
// Retrieve column details from IS
case Parameters.NetTypeGroup of
@ -2680,6 +2681,17 @@ begin
SchemaClauseIS('TABLE') +
' AND TABLE_NAME='+EscapeString(Name)
);
// Comments in MSSQL. See http://www.heidisql.com/forum.php?t=19576
Comments := GetResults('SELECT c.name AS '+QuoteIdent('column')+', prop.value AS '+QuoteIdent('comment')+' '+
'FROM sys.extended_properties AS prop '+
'INNER JOIN sys.all_objects o ON prop.major_id = o.object_id '+
'INNER JOIN sys.schemas s ON o.schema_id = s.schema_id '+
'INNER JOIN sys.columns AS c ON prop.major_id = c.object_id AND prop.minor_id = c.column_id '+
'WHERE '+
' prop.name='+EscapeString('MS_Description')+
' AND s.name='+EscapeString(Schema)+
' AND o.name='+EscapeString(Name)
);
end;
end;
while not Cols.Eof do begin
@ -2714,7 +2726,17 @@ begin
end;
// The following is wrong syntax in PostgreSQL, but helps ParseTableStructure to find the comment
if Cols.ColExists('column_comment') then
Result := Result + ' COMMENT ' + EscapeString(Cols.Col('column_comment'));
Result := Result + ' COMMENT ' + EscapeString(Cols.Col('column_comment'))
else if Comments <> nil then begin
// Find column comment from separate result
while not Comments.Eof do begin
if Comments.Col('column')=Cols.Col('COLUMN_NAME') then begin
Result := Result + ' COMMENT ' + EscapeString(Comments.Col('comment'));
Break;
end;
end;
end;
Result := Result + ',';
Cols.Next;
end;