tinycobol/cobroutines/sql_exec_query.c

24 lines
589 B
C

/* test program for libpq (postgresql) */
#include <stdio.h>
#include <stdlib.h>
#include <libpq-fe.h>
/* this function assumes a command buffer of 80 characters */
void
sql_exec_query( int *dbhandle, char *query, int *qryhandle, int *status ) {
char /* *r,*/ *s=query;
//int nfields, i, j;
PGconn *conn = (PGconn *)*dbhandle;
PGresult *res;
/* detect end of query with 2 successive ';' */
while ( *s != ';' || *(s+1) != ';' ) s++;
*s=0;
// linha abaixo causa mensagem do primary key
res = PQexec(conn, query);
*status = PQresultStatus(res);
*qryhandle = (int) res;
}