bb.donnay-software.com

Code: Select all

#include "Common.ch"

// PostgresSQL DBE header file is required
#include "pgdbe.ch"

PROCEDURE Main
  LOCAL cConnect
  LOCAL oSession

  // Load the PostgreSQL DatabaseEngine
  IF(!DbeLoad("pgdbe"))
    Alert( "Unable to load the PostgreSQL DatabaseEngine", {"Quit"} )
    QUIT
  ENDIF

  // Establish the connection
  cConnect := "DBE=pgdbe;SERVER=localhost;DB=northwind;UID=postgres;PWD=aboservice"
  oSession := DacSession():New( cConnect )

  // Check for connection success
  IF .NOT. oSession:isConnected()
    ? oSession:GetLastMessage()
    Alert( "Unable to establish connection to server", {"Quit"} )
    QUIT
  ENDIF
  // Perform simple select and browse
  // the result set
  SELECT * FROM customers VIA (oSession)   // IMPORTANT oSession MUST be between (  )  !!!!

  Browse()

  // Up to here it is working.
  alert("Use and show name of first record")
  use customers alias klant  via PGDBE
  klant->(dbgoto(1))
  alert( klant->companyname )

  // Disconnect from server
  oSession:disconnect()
RETURN

Code: Select all

PROCEDURE Main()

LOCAL oSession
LOCAL cConnStr

DbeLoad("pgdbe")
DbeSetDefault("pgdbe")

cConnStr := "DBE=pgdbe;SERVER=localhost;"
cConnStr += "DB=northwind;UID=postgres;PWD=aboservice"

oSession := DacSession():New(cConnStr)
IF(!oSession:IsConnected())
  MsgBox("Connection failed ("+Var2Char(oSession:GetLastMessage())+")")
  QUIT
ENDIF

//MsgBox("Connected to PostgreSQL server")

// Test of Table exist
IF(!TABLE("Customers"))
   MsgBox("No Customers table")
Else
   MsgBox("Table Customers ok")
ENDIF

USE CUSTOMERS INDEX CustName ALIAS Cust NEW

Cust->( DbsetOrder(1) )
Cust->( DbGoTop() )
Cust->( Browse() )


//......


oSession:disconnect()
DbeUnLoad("pgdbe")
ReTURN