Request : new PostgreSQL OLEDb-Provider

[Jimmy]

hi,

i have search for FREE OLEDB-Provider for PostgreSQL and found at Sourceforge.net

PM PostgreSQL OLEDB Files
https://sourceforge.net/projects/pmpostgresqlole/files/

it include 32 / 64 Bit Version and Source

---

i have regsvr32 PMDAPGS.dll and got this when call OdbcConnect()


i can "connect" to PostgreSQL Server


but there are "no Table" shown ...



---

i have "check" FW_RDBMSName() but it seems "empty" ... hm

Code: Select all  Expand view

     c += IfNil( oCn:Properties( "DBMS Name" ) :Value, "" ) + " " + ;
                  IfNil( oCn:Properties( "Extended Properties" ) :Value, "" )
      CATCH
fwlog c

i "guess" Fivewin dows not "know" this Driver (String)

Code: Select all  Expand view

"Provider=PMDAPGS;Server=<server_name>;Database=<db_name>;User=<user>;Password=<password>;Port=<port>"

---

i have put DLL into
c:\Program Files\Common Files\System\Ole DB\PMDAPGS.dll
as Readme say
NOT under
c:\Program Files\Common Files\System\ado\

i have not Idea what is going wrong ... need some help please

[nageswaragunupudi]

I am not even able to register the dll.
Got this error.

Unable to proceed

[nageswaragunupudi]

i have "check" FW_RDBMSName() but it seems "empty" ... hm

Do not worry at all about this function.
This is basically intended for internal usage to help the function FW_ValToSQL()
It has no effect on Opening ADO connctions, Opening RecordSets and using the recordsets in any manner we need.

[Jimmy]

hi,

I am not even able to register the dll.
Got this error.
Unable to proceed

have you "RegSvr32" 32 / 64 Bit DLL "as Administrator"

on 64 Bit OS i have use 64 Bit DLL "only" and copy it to
c:\Program Files\Common Files\System\Ole DB\PMDAPGS.dll

[Jimmy]

It has no effect on Opening ADO connctions, Opening RecordSets and using the recordsets in any manner we need.

hi,

ok ... but why "is"

Code: Select all  Expand view

  oCn:Properties( "DBMS Name" ):Value

and/or

Code: Select all  Expand view

  oCn:Properties( "Extended Properties" ):Value

Empty() ...

it is "listed" when call

Code: Select all  Expand view

  oDL := CreateObject( "Datalinks" ) :PromptNew()

[nageswaragunupudi]

If you want to see all properties of any connection object:

Code: Select all  Expand view

oCn := FW_OpenAdoConnection( <your-connectionstring>, .t. )
if oCn == nil
   ? "Fail"
else
   XBOWSER oCn  // this shows all properties
   // other works
   oCn:Close()
endif

[Jimmy]

hi

thx for Answer.

Code: Select all  Expand view

oCn := FW_OpenAdoConnection( <your-connectionstring>, .t. )
if oCn == nil
   ? "Fail"
else
   XBOWSER oCn  // this shows all properties
   // other works
   oCn:Close()
endif

there is a Typo in CODE
XBOWSER must be XBROWSER

---

i have use it and got this

i have put all Variable into String which was wrong

this is right

Code: Select all  Expand view

  EDITVARS cServer, cDatabase, cUserName, cPassword TITLE "PMDAPGS" + " : Server login"
   oCn:Open( "Provider='PMDAPGS';Server='"+cServer+"';Database='"+cDataBase+"';User='"+cUsername+"';Password='"+cPassword+"'")

now i got to Table and can XBROWSER it

than i try "edit" ... but it does not work
need any Tip what i´m doing wrong

[nageswaragunupudi]

Can I see your code for opening ado connection and recordset?

[Jimmy]

here is the CODE

Code: Select all  Expand view

PROCEDURE USE_Postgre()
LOCAL oCn     := TOleAuto() :New( "ADODB.Connection" )
LOCAL oCat    := TOleAuto() :New( "ADOX.Catalog" )
LOCAL oRs     := TOleAuto() :New( "ADODB.Recordset" )
LOCAL aTables := {}, cTable
LOCAL oError, lFalse := .F.

LOCAL cServer   := "192.168.2.118"
LOCAL cDataBase := "mdidemo"
LOCAL cUsername := "postgres"
LOCAL cPassword := "********"
LOCAL cPort := "5432"

   EDITVARS cServer, cDatabase, cUserName, cPassword TITLE "PMDAPGS" + " : Server login"

   try
      oCn:Open( "Provider='PMDAPGS';Server='"+cServer+"';Database='"+cDataBase+"';User='"+cUsername+"';Password='"+cPassword+"'") // ;Port="+cPort )

   CATCH oError
      MsgInfo( oError:Description, "open Error PostgreSQL" )
      lFalse := .T.
   END TRY

   IF EMPTY( oCn ) .OR. EMPTY( oCat ) .OR. lFalse
      RETURN
   ENDIF

   oCat:ActiveConnection := oCn
   oRs := oCn:OpenSchema( 20 )                                        // adSchemaTables

   WHILE !oRs:Eof()
      AADD( aTables, oRs:Fields:Item( "Table_Name" ) :Value )
      oRs:MoveNext()
   END

   XBROWSER aTables SELECT cTable := aTables[ oBrw:nArrayAt ]
   oRs:Close()

   oRs:CursorType := 1                                                // opendkeyset
   oRs:CursorLocation := 3                                            // local cache
   oRs:LockType := 3                                                  // lockoportunistic

   IF !EMPTY( cTable )
      try
         oRs:Open( "SELECT * FROM " + cTable, oCn )                   // Password="abc" )
      catch oError
         MsgInfo( oError:Description )
      END TRY

      XBROWSER( oRS ) FASTEDIT AUTOFIT
   ENDIF

RETURN

it work under Windows 10 32 Bit AND 64 Bit in Version 10.0.19045.3448
but it crash under Windows 11 Version 10.0.22621.2283 without any *.LOG

FWH 23.07 32 Bit BCC
FWH 23.04 64 Bit MSVC

[Jimmy]

hi,

as i have no "real" OLEDB Driver for PostgreSQL i try to use PMDAPGS.DLL
i can XBOWSER / XBROWSE PostgreSQL Table but "save" seems not work

have found out that PMDAPGS.dll was "identify" as "XBR" when try to "save" PostgreSQL Data
but i need

Code: Select all  Expand view

METHOD SAVE( lCheckValid, lSilent ) CLASS TDataRow
   ...
   ELSEIF ::cSrcType == "PQQ"

what do i miss ...

[nageswaragunupudi]

but "save" seems not work

Try inline edit.

Any valid ADO recordset is recognized as RecordSet.

To start with just use

Code: Select all  Expand view

XBROWSER oRs FASTEDIT

Try to add CursorLocation of connection object also as adUseClient.'

[Jimmy]

hi,

thx for Answer.

i do have already CursorLocation and FASTEDIT in Sample ...

what do you mean with "inline edit" , how