14 lines
584 B
Plaintext
14 lines
584 B
Plaintext
BEGIN
|
|
FILE db; STRING result;
|
|
STRING conninfo = "dbname=testdb user=gmgauthier password=thx1138gg host=localhost port=5432";
|
|
INT status = pq connect db(db, conninfo, result);
|
|
IF status = 0 THEN
|
|
INT qstatus = pq exec(db, "SELECT data FROM test");
|
|
IF qstatus = 0 THEN
|
|
print(("Rows: ", pq ntuples(db), newline));
|
|
IF pq get value(db, 1, 1) = 0 THEN print(("Data: ", result, newline)) FI
|
|
FI;
|
|
INT finish = pq finish(db);
|
|
print(("Finish: ", finish, newline))
|
|
ELSE print(("Failed: ", result, newline)) FI
|
|
END |