From 418da503908b20b11fe36fc04c9921b0fe3084f7 Mon Sep 17 00:00:00 2001 From: Mindaugas Kavaliauskas Date: Tue, 17 Nov 2009 13:42:46 +0000 Subject: [PATCH] 2009-11-17 15:40 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * harbour/contrib/rddsql/sddodbc/tests/test2.prg ! fixed small error in DSN * harbour/contrib/rddsql/sddodbc/odbcdd.c + added support of SQL_WCHAR, SQL_WVARCHAR, SQL_WLONGVARCHAR ; NOTE: I get more and more complains about not working sddodbc, because of these data types. I'm unable to get such situation in my programming environvent. So, this addition can be buggy. Please, report any strange behavior of string types data. --- harbour/ChangeLog | 12 ++++++++++++ harbour/contrib/rddsql/sddodbc/odbcdd.c | 3 +++ harbour/contrib/rddsql/sddodbc/tests/test2.prg | 2 +- 3 files changed, 16 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 83282d9d2e..d0c2870ab0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,18 @@ past entries belonging to author(s): Viktor Szakats. */ + +2009-11-17 15:40 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) + * harbour/contrib/rddsql/sddodbc/tests/test2.prg + ! fixed small error in DSN + + * harbour/contrib/rddsql/sddodbc/odbcdd.c + + added support of SQL_WCHAR, SQL_WVARCHAR, SQL_WLONGVARCHAR + ; NOTE: I get more and more complains about not working sddodbc, + because of these data types. I'm unable to get such situation + in my programming environvent. So, this addition can be buggy. + Please, report any strange behavior of string types data. + 2009-11-17 02:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + contrib/hbide + contrib/hbide/hbide.prg diff --git a/harbour/contrib/rddsql/sddodbc/odbcdd.c b/harbour/contrib/rddsql/sddodbc/odbcdd.c index b2df9afecd..9d4c1cd2f1 100644 --- a/harbour/contrib/rddsql/sddodbc/odbcdd.c +++ b/harbour/contrib/rddsql/sddodbc/odbcdd.c @@ -312,6 +312,9 @@ static HB_ERRCODE odbcOpen( SQLBASEAREAP pArea ) case SQL_CHAR: case SQL_VARCHAR: case SQL_LONGVARCHAR: + case SQL_WCHAR: + case SQL_WVARCHAR: + case SQL_WLONGVARCHAR: pFieldInfo.uiType = HB_FT_STRING; break; diff --git a/harbour/contrib/rddsql/sddodbc/tests/test2.prg b/harbour/contrib/rddsql/sddodbc/tests/test2.prg index 7debaaa5c1..7cde750177 100644 --- a/harbour/contrib/rddsql/sddodbc/tests/test2.prg +++ b/harbour/contrib/rddsql/sddodbc/tests/test2.prg @@ -12,7 +12,7 @@ LOCAL nConnection, nI, aI RDDSETDEFAULT( "SQLMIX" ) SET( _SET_DATEFORMAT, "yyyy-mm-dd" ) - nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ=Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) + nConnection := RDDINFO( RDDI_CONNECT, { "ODBC", "Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) IF nConnection == 0 ? "Unable connect to server" RETURN