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

2009-11-17 15:40 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* 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.
This commit is contained in:
Mindaugas Kavaliauskas
2009-11-17 13:42:46 +00:00
parent 1013e3d7c3
commit 418da50390
3 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

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

3
harbour/contrib/rddsql/sddodbc/odbcdd.c
View File

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

2
harbour/contrib/rddsql/sddodbc/tests/test2.prg
View File

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