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

Fix issue #694: Column comment silently deleted after renaming

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-20 19:43:42 +00:00
parent 7799e30c7b
commit b10b464771
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/childwin.pas
View File

@ -3967,7 +3967,7 @@ procedure TMDIChild.ListColumnsNewText(Sender: TBaseVirtualTree; Node:
PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
def : TDataSet;
sql_update, sql_null, sql_default, sql_extra, DefaultValue : String;
sql_update, sql_null, sql_default, sql_extra, sql_comment, DefaultValue : String;
NodeData : PVTreeData;
begin
// Try to rename, on any error abort and don't rename ListItem
@ -3978,7 +3978,7 @@ begin
NodeData := ListColumns.GetNodeData(Node);
// Fetch column definition
def := GetResults( 'SHOW COLUMNS FROM ' + mask(SelectedTable) + ' LIKE ' + esc(NodeData.Captions[0]), False, False );
def := GetResults( 'SHOW FULL COLUMNS FROM ' + mask(SelectedTable) + ' LIKE ' + esc(NodeData.Captions[0]), False, False );
// Check NOT NULL
sql_null := 'NULL ';
@ -3998,7 +3998,12 @@ begin
// Check extra options (auto_increment)
sql_extra := '';
if def.FieldByName('Extra').AsString <> '' then
sql_default := ' '+UpperCase(def.FieldByName('Extra').AsString) + ' ';
sql_extra := ' '+UpperCase(def.FieldByName('Extra').AsString);
// Comment
sql_comment := '';
if def.FieldByName('Comment').AsWideString <> '' then
sql_comment := ' COMMENT '+esc(def.FieldByName('Comment').AsWideString);
// Concat column definition
sql_update := 'ALTER TABLE ' + mask(SelectedTable) +
@ -4007,12 +4012,13 @@ begin
def.FieldByName('Type').AsString + ' ' +
sql_null +
sql_default +
sql_extra;
sql_extra +
sql_comment;
// Cleanup
def.Close;
FreeAndNil(def);
// Fire ALTER query
ExecUpdateQuery( sql_update, False, False );

2
source/main.dfm
View File

@ -897,7 +897,7 @@ object MainForm: TMainForm
Enabled = False
Hint = 'Edit field properties'
ImageIndex = 93
ShortCut = 13
ShortCut = 32781
OnExecute = actEditFieldExecute
end
object actCreateField: TAction