fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-07-11 12:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/mysql/tmysql.prg
     ! Some fixes for the previous fixes.
This commit is contained in:
Viktor Szakats
2007-07-11 10:04:57 +00:00
parent dbe672e499
commit 36b4358c32
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
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)

4
harbour/contrib/mysql/tmysql.prg
View File

@@ -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