PostgreSql Libs not ready yet ?

[salamandra]

Hi Jimmy,
Finally I got to install PostgreSql v8.3 succesfully.
With this version, I got connect an create a table named 'Test", and also insert and load all records in the table in a browse (not Grid) control.

PgSql_ok.JPG (103.04 KiB) Viewed 2944 times

But, nothing it´s perfect. Take a look to the Browse control....YES, it don´t has Vertical scrollbar.
When you set VScrollBar to .T. it happens this runtime error...

PgSql_error.JPG (56.67 KiB) Viewed 2944 times

This error it´s related to this function in h_browse.prg:

Code: Select all

Procedure _BrowseVscrollUpdate (i)
*------------------------------------------------------------------------------*
Local ActualRecord , RecordCount , KeyCount 

	// If vertical scrollbar is used it must be updated
	If _HMG_SYSDATA [  5 ] [i] != 0

		KeyCount := OrdKeyCount()
		If KeyCount > 0
			ActualRecord := OrdKeyNo()
			RecordCount := KeyCount
		Else
			ActualRecord := RecNo()
			RecordCount := RecCount()
		EndIf

		_HMG_SYSDATA [ 37 ] [i] := RecordCount

		If RecordCount < 100
			SetScrollRange (_HMG_SYSDATA [  5 ] [i] , 2 , 1 , RecordCount , .t. )
			SetScrollPos ( _HMG_SYSDATA [  5 ] [i] , 2 , ActualRecord , .T. )
		Else
			SetScrollRange (_HMG_SYSDATA [  5 ] [i] , 2 , 1 , 100 , .t. )
			SetScrollPos ( _HMG_SYSDATA [  5 ] [i] , 2 , Int ( ActualRecord * 100 / RecordCount ) , .T. )
		EndIf

	EndIf

Return

I did not get to load the table succesfully in a Grid control, there was too many runtime errors. I´ll try again with a Grid Control.
Did you get ?


Best regards,


Salamandra, Brazil

[salamandra]

Hi JairPinho,

hello follows a functional example tested with postgresql-9.1.1-1-windows version, install and set password 123456

Thank you very much for your help. I´ll try your sample.


Best regards,

Salamandra, Brazil

[AUGE_OHR]

hi,

thx for your Tip.

Code: Select all

   for nPos:=1 to len(aTable)
      doMethod("Main", "Grid_1", "ADDITEM", aTable[nPos])

to transfer Result-Set into Array is the normal way
but what about "RDD" as you have to modify your Code.

---

PGRDD.PRG was from harbour v1.x and not include in harbour v3.x any more
as edk found out DbStruct() give Type "U" what Debugger show.

i have check Type and foundout that all is OK ...

Code: Select all

   FOR EACH aFieldStruct IN aStruct
       ...
       cType := aFieldStruct[ DBS_TYPE ]
       IF VALTYPE( cType ) = "U"
         aField[ UR_FI_TYPE ]  := "C"
       ELSE
         aField[ UR_FI_TYPE ]  := cType
       ENDIF
       ...
       UR_SUPER_ADDFIELD( nWA, aField )
   NEXT       
   /* Call SUPER OPEN to finish allocating work area (f.e.: alias settings) */
   nResult := UR_SUPER_OPEN( nWA, aOpenInfo )
RETURN nResult

USRRDD01.JPG (97.86 KiB) Viewed 2935 times

as you see i try GO TOP and other "navigation". it does not give Error

i don´t understand how USRRDD work but i think we have to go that way to made it easy

[dragancesu]

DBF vs MySQL / PostgreSQL / Oracle is a big difference and it would really be ideal not to rewrite the program (to work as with dbf) but it's not like that

At work i use oracle and the attempt to work with hmg failed
PostgreSQL is in some ways more similar to oracle than other databases, although mariadb gets some features of oracle database (plsql)

Sqlite works but not for serious work (single user)

My experience with mysql is good, but the program needs a little rewrite to work properly, rdd is a nice thing but ... not for serious work

Simply, make a sql query and send the result to a grid, which in my opinion is a winning combination

[AUGE_OHR]

hi,

have try to "change" Field Type

Code: Select all

CASE cType = "C"
   aField[ UR_FI_TYPE ]  := HB_FT_STRING

or

Code: Select all

CASE cType = "C"
   aField[ UR_FI_TYPE ]  := ASC("C")-64

both are Number but i get "some" Result

Num_Type.JPG (16.82 KiB) Viewed 2854 times

but Type still does not match.
searching for any other Idea

[AUGE_OHR]

hi,

that is what i get with Number instead of "C","M","N","D","L"

Code: Select all

1	C:BEU
2	L
3	D
4	N:+	
5	F:+
6	I:+
7	B:+
8	T
9	@
10	=
11	^
12	+:+
13	Y
14	Z
15	Q:BEU
16	M:BEU
17	V:BEU
18	P
19	W
20	G

above 20 it is "U"

Question : what is ":BEU"

[AUGE_OHR]

hi,

have try to ask harbour Developer an got this Answer

> Question : is PGRDD still valid ?

You seem to request support for a module that was deleted ten years ago.
Please check changelog.txt before posting.

2010-11-21 20:42 UTC+0100 Viktor Szakats (vszakats.net/harbour)
* contrib/hbpgsql/postgres.c
+ Added PQPREPARE(), PQEXECPREPARED(). Based on code donated by
Lorenzo Fiorini. Modified to compile with current Harbour,
changed parameter handling and error checking, and changed
to return GC collected result pointer. (I didn't make any
tests, so pls do)

* contrib/hbpgsql/hbpgsql.hbp
- contrib/hbpgsql/pgrdd.prg
- contrib/hbpgsql/tests/tstpgrdd.prg
- Deleted experimental USRRDD for PGSQL.

Regards,
Klas

so no RDD for PostgreSQL ... or is there other Way

[mol]

Hi!
Sample working fine with postgresql.
But I want to save pictures and .pdfs into database.
Did anybody realize that?
in Postgresql we have BYTEA type which looks OK for it. But,, how to send content of file to server?

[serge_girard]

Marek,

I store large files (EXE, PDF, DOCX) in SQL database (type longblob) with this function:

Code: Select all

cEXE_File   := File_To_Buff("'C:\test\test.exe" ) // something large

cQuery1	:= " INSERT INTO TABLE " 
cQuery1	+= " (F1, F2, EXE_FILE)"  
cQuery1	+= " VALUES( "  
cQuery1  +=	" '" + xNR2    + "', "   
cQuery1  +=	" 'BETOZPDF', "
cQuery1  +=	" '" + cEXE_File       + "') "   
cQuery1	:= dbo:Query( cQuery1 )

IF cQuery1:NetErr()		
   ?  PROCNAME(), cQuery1:ErrOR() 
ENDIF




FUNCTION File_To_Buff(cFile)
/***************************/
LOCAL cBuff      := ""
LOCAL fh, nLen
LOCAL lRetVal   :=.f.
LOCAL cFile_in := cFile


fh := FOPEN(cFile_in,0)

IF fh > -1
   nLen := FSEEK(fh, 0, 2)

   IF nLen > 0
      //MOVE FILE POINTER BACK TO BEGIN OF FILE
      FSEEK(fh, 0, 0)
      cBuff   := SPACE(nLen)
      FREAD(fh, @cBuff, nLen)

      // ESCAPES
      cBuff   :=   STRTRAN(cBuff, CHR(92), "\\")
      cBuff   :=   STRTRAN(cBuff, CHR(0),  "\0")
      cBuff   :=   STRTRAN(cBuff, CHR(39), "\'")
      cBuff   :=   STRTRAN(cBuff, CHR(34), '\"')
   ENDIF  
ELSE
   cBuff := "OFF"        
ENDIF
      
FCLOSE(fh)

RETURN(cBuff)

Is this what you want?

Serge

[AUGE_OHR]

hi Mol,

i have not made it under harbour but under Xbase++
as you say i use Type "bytea" for Image and convert it to HEX using "cBin2Hex()"

not sure what under harbour can be use to convert a "String" into "HEX" and back

Code: Select all

   CASE aStrut[ i, DBS_TYPE ] = 'M'
      // if you have Bitmap in Memo
      //
      IF ::lBlob = .T.
         cIns += " '\x" + cBin2Hex( FIELDGET( i ) ) + "',"
         lUseBlob := .T.
      ELSE
         IF ::lANSI = .T.
            cIns += " '" + STRTRAN( ::OEM_ANSI( FIELDGET( i ) ), "'", '"' ) + "',"
         ELSE
            cIns += " '" + STRTRAN( FIELDGET( i ), "'", '"' ) + "',"
         ENDIF

to "show" Image i use "cHex2Bin()"

Code: Select all

FUNCTION ShowBMPFunc( cBuffer )

   // get rid of "\x" 
   IF SUBSTR( cBuffer, 1, 2 ) = "\x"
      cBuffer := SUBSTR( cBuffer, 3, LEN( cBuffer ) - 2 )
   ENDIF

   oBMP := XBPBITMAP() :new() :create( oPS )
   // Hex to Bin Format using ot4xb
   oBMP:setBuffer( cHex2Bin( cBuffer ) )

   // "paint" Image
   oDlg:drawingarea:paint := { | aRect, uNIL, oSelf | ;
                               oBMP:draw( oPS, { 0, 0, aRect[ 3 ], aRect[ 4 ] }, ;
                               { 0, 0, oBMP:xSize, oBMP:ySize },, ;
                               GRA_BLT_BBO_IGNORE ) }