Re: [INTERFACES] Do cursors work? - Mailing list pgsql-interfaces

From Tom Good
Subject Re: [INTERFACES] Do cursors work?
Date
Msg-id Pine.LNX.3.95.980804082701.23123A-100000@mailhost.nrnet.org
Whole thread Raw
In response to Re: [INTERFACES] Do cursors work?  (Tom Good <tomg@nrnet.org>)
List pgsql-interfaces
George - here is a better example!  That last bit was ripped out
of a longer file and didn't compile - this does!

#include <stdio.h>

EXEC SQL BEGIN DECLARE SECTION;
  int c_id;
  char c_fname[100];
  char c_lname[100];
EXEC SQL END DECLARE SECTION;

EXEC SQL INCLUDE sqlca;

main() {
EXEC SQL CONNECT 'registry';
  if(sqlca.sqlcode) {
    printf("Error connecting to database server.\n");
    exit(0);
  }
  printf("Connected to database server.\n");

EXEC SQL DECLARE cur_sor CURSOR FOR
  SELECT client_lname, client_fname, client_id
  FROM central
  ORDER BY client_lname;
EXEC SQL OPEN cur_sor;

EXEC SQL FETCH cur_sor INTO :c_lname, :c_fname, :c_id;
  while(!sqlca.sqlcode) {

    printf("%20s %20s %5d \n", c_fname, c_lname, c_id);

EXEC SQL FETCH cur_sor INTO :c_lname, :c_fname, :c_id;
  }

EXEC SQL CLOSE cur_sor;
EXEC SQL COMMIT RELEASE;
  exit(0);
}


 Sorry about that!
 Tom

    ----------- Sisters of Charity Medical Center ----------
                    Department of Psychiatry
                              ----
 Thomas Good, System Administrator            <tomg@q8.nrnet.org>
 North Richmond CMHC/Residential Services     Phone: 718-354-5528
 75 Vanderbilt Ave, Quarters 8                Fax:   718-354-5056
 Staten Island, NY   10304                    www.panix.com/~ugd
                              ----
 Powered by PostgreSQL 6.3.2 / Perl 5.004 / DBI-0.91::DBD-PG-0.69


pgsql-interfaces by date:

Previous
From: Tom Good
Date:
Subject: Re: [INTERFACES] Do cursors work?
Next
From: Mariano Herrero
Date:
Subject: About connecting to a database