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

* Bugfix: Zeos croaked on 32-bit integer values.

Browse Source 
* Bugfix: Don't special case based on length of integer fields, the server doesn't care anyway.
* Make ConvertMySQLHandleToSQLType() more readable.
This commit is contained in:
rosenfield
2007-06-28 12:19:38 +00:00
parent e8d51a7c11
commit 4183af3ec7
1 changed files with 13 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
components/zeosdbo/src/dbc/ZDbcMySqlUtils.pas
View File

@ -165,30 +165,32 @@ end;
}
function ConvertMySQLHandleToSQLType(PlainDriver: IZMySQLPlainDriver;
FieldHandle: PZMySQLField; FieldFlags: Integer): TZSQLType;
function Signed: Boolean;
begin
Result := (UNSIGNED_FLAG and FieldFlags) = 0;
end;
begin
case PlainDriver.GetFieldType(FieldHandle) of
FIELD_TYPE_TINY:
begin
if (UNSIGNED_FLAG and FieldFlags) = 0 then
Result := stByte
if Signed then Result := stByte
else Result := stShort;
end;
FIELD_TYPE_YEAR, FIELD_TYPE_SHORT:
begin
if (UNSIGNED_FLAG and FieldFlags) = 0 then
Result := stShort
if Signed then Result := stShort
else Result := stInteger;
end;
FIELD_TYPE_INT24, FIELD_TYPE_LONG:
begin
if (UNSIGNED_FLAG and FieldFlags) = 0 then
Result := stInteger
if Signed then Result := stInteger
else Result := stLong;
end;
FIELD_TYPE_LONGLONG:
begin
if (UNSIGNED_FLAG and FieldFlags) = 0 then
Result := stLong
if Signed then Result := stLong
//else Result := stBigDecimal;
else Result := stString;
end;
@ -270,22 +272,9 @@ begin
end
else if TypeName = 'MEDIUMINT' then
Result := stInteger
else if TypeName = 'INT' then
begin
if StartsWith(TypeNameFull, 'INT(10)') or
StartsWith(TypeNameFull, 'INT(11)') then
begin
if IsUnsigned then
Result := stLong
else Result := stInteger;
end else
Result := stInteger;
end
else if TypeName = 'INTEGER' then
begin
if IsUnsigned then
Result := stLong
else Result := stInteger;
else if (TypeName = 'INT') or (TypeName = 'INTEGER') then begin
if IsUnsigned then Result := stLong
else Result := stInteger
end
else if TypeName = 'BIGINT' then
begin