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

2010-10-01 17:24 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/sddpg/sddpg.c
    * added text field support provided by Aleksander Czajczynski with
      some changes
This commit is contained in:
Mindaugas Kavaliauskas
2010-10-01 14:26:49 +00:00
parent 01f66be9d5
commit 846294d34d
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-10-01 17:24 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/sddpg/sddpg.c
* added text field support provided by Aleksander Czajczynski with
some changes
2010-10-01 17:15 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbwin/tests/oletst2.vbs
* restored unintentional commit

5
harbour/contrib/sddpg/sddpg.c
View File

@@ -296,6 +296,11 @@ static HB_ERRCODE pgsqlOpen( SQLBASEAREAP pArea )
pFieldInfo.uiLen = ( HB_USHORT ) PQfmod( pResult, uiCount ) - 4;
break;
case TEXTOID:
pFieldInfo.uiType = HB_FT_MEMO;
pFieldInfo.uiLen = 10;
break;
case NUMERICOID:
pFieldInfo.uiType = HB_FT_DOUBLE;
pFieldInfo.uiLen = ( PQfmod( pResult, uiCount ) - 4 ) >> 16;