From 56d7ec14baab8533ac4ec759f2eff651d90cc358 Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Wed, 7 Apr 2010 21:33:04 +0000 Subject: [PATCH] 2010-04-08 00:32 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/contrib/sddodbc/sddodbc.c + VARBINARY, LONGVARBINARY type support --- harbour/ChangeLog | 4 ++++ harbour/contrib/sddodbc/sddodbc.c | 6 ++++++ 2 files changed, 10 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 65216652c8..6d84556b24 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-08 00:32 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/contrib/sddodbc/sddodbc.c + + VARBINARY, LONGVARBINARY type support + 2010-04-07 09:44 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/ideprojmanager.prg ! Added some more debug code for *nix users to understand diff --git a/harbour/contrib/sddodbc/sddodbc.c b/harbour/contrib/sddodbc/sddodbc.c index f64ce11669..98a435b277 100644 --- a/harbour/contrib/sddodbc/sddodbc.c +++ b/harbour/contrib/sddodbc/sddodbc.c @@ -434,6 +434,12 @@ static HB_ERRCODE odbcOpen( SQLBASEAREAP pArea ) pFieldInfo.uiType = HB_FT_STRING; break; + case SQL_VARBINARY: + case SQL_LONGVARBINARY: + pFieldInfo.uiType = HB_FT_STRING; + pFieldInfo.uiFlags = HB_FF_BINARY; + break; + case SQL_TINYINT: case SQL_SMALLINT: case SQL_INTEGER: