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

Support length of "max" in data types. Used in MSSQL.

Browse Source
This commit is contained in:
Ansgar Becker
2013-07-01 04:23:06 +00:00
parent ca655582bd
commit 1660104d4d
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/dbconnection.pas
View File

@ -1831,7 +1831,7 @@ end;
function TAdoDBConnection.GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String;
var
Cols, Keys: TDBQuery;
ConstraintName: String;
ConstraintName, MaxLen: String;
ColNames: TStringList;
// Return fitting schema clause for queries in IS.TABLES, IS.ROUTINES etc.
@ -1857,8 +1857,13 @@ begin
);
while not Cols.Eof do begin
Result := Result + CRLF + #9 + QuoteIdent(Cols.Col('COLUMN_NAME')) + ' ' + UpperCase(Cols.Col('DATA_TYPE'));
if not Cols.IsNull('CHARACTER_MAXIMUM_LENGTH') then
Result := Result + '(' + Cols.Col('CHARACTER_MAXIMUM_LENGTH') + ')';
if not Cols.IsNull('CHARACTER_MAXIMUM_LENGTH') then begin
MaxLen := Cols.Col('CHARACTER_MAXIMUM_LENGTH');
if MaxLen = '-1' then
Result := Result + '(max)'
else
Result := Result + '(' + MaxLen + ')';
end;
if Cols.Col('IS_NULLABLE') = 'NO' then
Result := Result + ' NOT';
Result := Result + ' NULL';