opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Prefer CREATE code from SHOW CREATE TABLE in MySQL again, which includes table options which are yet unsupported in the generic TDBConnection.GetCreateCode .

Browse Source
This commit is contained in:
Ansgar Becker
2020-01-19 13:48:14 +01:00
parent 05247dc9b8
commit e770dcbd85
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/dbconnection.pas
View File

@ -3148,22 +3148,18 @@ function TMySQLConnection.GetCreateCode(Obj: TDBObject): String;
var
ColIdx: Integer;
begin
if Obj.NodeType = lntTable then begin
// Use our own baked CREATE TABLE code
Result := inherited;
Exit;
end;
if Obj.NodeType = lntView then begin
// Use our own baked CREATE VIEW code
Result := GetCreateViewCode(Obj.Database, Obj.Name);
Exit;
end;
case Obj.NodeType of
lntTable: ColIdx := 1;
lntFunction, lntProcedure, lntTrigger: ColIdx := 2;
lntEvent: ColIdx := 3;
else raise EDbError.CreateFmt(_('Unhandled list node type in %s.%s'), [ClassName, 'GetCreateCode']);
end;
Result := GetVar('SHOW CREATE '+UpperCase(Obj.ObjType)+' '+QuoteIdent(Obj.Database)+'.'+QuoteIdent(Obj.Name), ColIdx);
Result := GetVar('SHOW CREATE '+Obj.ObjType.ToUpper+' '+QuoteIdent(Obj.Database)+'.'+QuoteIdent(Obj.Name), ColIdx);
end;
@ -3180,7 +3176,8 @@ begin
' AND name='+EscapeString(Obj.Name));
end;
else begin
raise EDbError.CreateFmt(_('Unhandled list node type in %s.%s'), [ClassName, 'GetCreateCode']);
// Let the generic method try to return code, which will most likely fail on SQLite
Result := inherited;
end;
end;
end;