paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 02:09:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed mysql ftLargeIntField + enabled test

Browse Source 
git-svn-id: trunk@9609 -
This commit is contained in:
joost 2008-01-01 19:44:00 +00:00
parent 4b43848d66
commit 2cc3f2ebf3
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -717,6 +717,7 @@ function TConnectionName.MySQLWriteData(AType: enum_field_types;ASize: Integer;
var
VI: Integer;
VL: LargeInt;
VS: Smallint;
VF: Double;
VC: Currency;
@ -749,10 +750,10 @@ begin
FIELD_TYPE_LONGLONG:
begin
if (Src<>'') then
VI := StrToInt64(Src)
VL := StrToInt64(Src)
else
VI := 0;
Move(VI, Dest^, SizeOf(LargeInt));
VL := 0;
Move(VL, Dest^, SizeOf(LargeInt));
end;
{$ifdef mysql50}
FIELD_TYPE_NEWDECIMAL,

2
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -103,6 +103,8 @@ begin
if SQLDbType = MYSQL40 then Fconnection := tMySQL40Connection.Create(nil);
if SQLDbType = MYSQL41 then Fconnection := tMySQL41Connection.Create(nil);
if SQLDbType = MYSQL50 then Fconnection := tMySQL50Connection.Create(nil);
if SQLDbType in MySQLdbTypes then
FieldtypeDefinitions[ftLargeint] := 'BIGINT';
if SQLDbType = sqlite3 then
begin
Fconnection := TSQLite3Connection.Create(nil);