From 36b4358c329cd3aa726cf00f59c8ec58e01a8e96 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 11 Jul 2007 10:04:57 +0000 Subject: [PATCH] 2007-07-11 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/mysql/tmysql.prg ! Some fixes for the previous fixes. --- harbour/ChangeLog | 4 ++++ harbour/contrib/mysql/tmysql.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c02595a01f..93f0242e32 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-07-11 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * contrib/mysql/tmysql.prg + ! Some fixes for the previous fixes. + 2007-07-11 09:58 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/mysql/tmysql.prg ! Some further date fixes. (pls test) diff --git a/harbour/contrib/mysql/tmysql.prg b/harbour/contrib/mysql/tmysql.prg index 6758c3b55b..0eb547fcb2 100644 --- a/harbour/contrib/mysql/tmysql.prg +++ b/harbour/contrib/mysql/tmysql.prg @@ -604,7 +604,7 @@ METHOD GetRow(nRow) CLASS TMySQLQuery ::aRow[i] := hb_SToD("") else // Date format YYYY-MM-DD - ::aRow[i] := hb_SToD(SubStr(::aRow[i], 6, 2) + Right(::aRow[i], 2) + Left(::aRow[i], 4)) + ::aRow[i] := hb_SToD(Left(::aRow[i], 4) + SubStr(::aRow[i], 6, 2) + Right(::aRow[i], 2)) endif case ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_BLOB_TYPE @@ -1756,7 +1756,7 @@ static function ClipValue2SQL(Value) case Valtype(Value) == "D" if !Empty(Value) // MySQL dates are like YYYY-MM-DD - cValue := "'"+StrZero(Year(Value), 4) + "." + StrZero(Month(Value), 2) + "." + StrZero(Day(Value), 2) + "'" + cValue := "'"+StrZero(Year(Value), 4) + "-" + StrZero(Month(Value), 2) + "-" + StrZero(Day(Value), 2) + "'" else cValue := "''" endif