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

2005-10-05 03:08 UTC-0500 David Arturo Macias Corona <dmacias@mail.udg.mx>

Browse Source 
* harbour/include/hbextern.ch
    ! added missing declarations:
      DBRELATION, DBRSELECT, MENUMODAL, _PUSHBUTT_, _LISTBOX_
  * harbour/contrib/mysql/tmysql.prg
    ! added conversion from tiny int MySQL type into numeric DBF. (an error before).
      Supplied by Mitja Podgornik
This commit is contained in:
David Arturo Macias Corona
2005-10-05 09:27:26 +00:00
parent b7321e3a01
commit 410d3ac469
3 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2005-10-05 03:08 UTC-0500 David Arturo Macias Corona <dmacias@mail.udg.mx>
* harbour/include/hbextern.ch
! added missing declarations:
DBRELATION, DBRSELECT, MENUMODAL, _PUSHBUTT_, _LISTBOX_
* harbour/contrib/mysql/tmysql.prg
! added conversion from tiny int MySQL type into numeric DBF. (an error before).
Supplied by Mitja Podgornik
2005-09-28 13:05 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
* makefile.bc
* makefile.nt

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

@@ -240,7 +240,8 @@ METHOD FieldType(nNum) CLASS TMySQLRow
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_LONG_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_LONGLONG_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_FLOAT_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DOUBLE_TYPE
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DOUBLE_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DECIMAL_TYPE
cType := "N"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DATE_TYPE
@@ -255,10 +256,10 @@ METHOD FieldType(nNum) CLASS TMySQLRow
cType := "C"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE
cType := "I"
cType := "N"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_MEDIUM_BLOB_TYPE
cType := "B"
cType := "M"
otherwise
cType := "U"
@@ -775,7 +776,8 @@ METHOD FieldType(nNum) CLASS TMySQLQuery
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_LONG_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_LONGLONG_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_FLOAT_TYPE .OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DOUBLE_TYPE
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DOUBLE_TYPE.OR.;
::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DECIMAL_TYPE
cType := "N"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_DATE_TYPE
@@ -790,10 +792,10 @@ METHOD FieldType(nNum) CLASS TMySQLQuery
cType := "C"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE
cType := "I"
cType := "N"
case ::aFieldStruct[nNum][MYSQL_FS_TYPE] == MYSQL_MEDIUM_BLOB_TYPE
cType := "B"
cType := "M"
otherwise
cType := "U"
@@ -871,7 +873,6 @@ METHOD GetRow(nRow) CLASS TMySQLTable
::aOldvalue:={}
for i := 1 to ::nNumFields
// ::aOldValue[i] := ::FieldGet(i)
aadd(::aOldvalue,::fieldget(i))
next
@@ -1396,6 +1397,7 @@ CLASS TMySQLServer
DATA cPassword // his/her password
DATA lError // .T. if occurred an error
DATA cCreateQuery
METHOD New(cServer, cUser, cPassword) // Opens connection to a server, returns a server object
METHOD Destroy() // Closes connection to server

7
harbour/include/hbextern.ch
View File

@@ -116,8 +116,10 @@ EXTERNAL DBGOTO
EXTERNAL DBGOTOP
EXTERNAL DBRECALL
EXTERNAL DBREINDEX
EXTERNAL DBRELATION
EXTERNAL DBRLOCK
EXTERNAL DBRLOCKLIST
EXTERNAL DBRSELECT
EXTERNAL DBRUNLOCK
EXTERNAL DBSEEK
EXTERNAL DBSELECTAREA
@@ -227,6 +229,7 @@ EXTERNAL MEMOREAD
EXTERNAL MEMORY
EXTERNAL MEMOTRAN
EXTERNAL MEMOWRIT
EXTERNAL MENUMODAL
EXTERNAL MEMVARBLOCK
EXTERNAL MIN
EXTERNAL MLCOUNT
@@ -576,6 +579,8 @@ EXTERNAL SETTYPEAHEAD
EXTERNAL __CAPTION
EXTERNAL __GUICOLOR
EXTERNAL _CHECKBOX_
EXTERNAL _LISTBOX_
EXTERNAL _PUSHBUTT_
EXTERNAL _RADIOGRP_
EXTERNAL CHECKBOX
EXTERNAL CLIPPER530
@@ -689,4 +694,4 @@ EXTERNAL STRPOKE
#endif /* HB_COMPAT_FLAGSHIP */
#endif /* HB_EXTERN_CH_ */
#endif /* HB_EXTERN_CH_ */