Re: [INTERFACES] Take two: Simple CREATE TABLE in DBI::Pg?

>>In article <199806210737(dot)AAA20815(at)ralf(dot)serv(dot)net>, Ken McGlothlen <mcglk(at)serv(dot)net> writes:

> [This is the second time I've asked this on this list. Is anyone
> else getting my messages? I would *really* like to get an answer
> here.]

> Here's the program, in Perl; I've pared it down to the bare minimum:

> #!/usr/local/bin/perl

> use DBI;

> sub tbl_easy_init {
> local( $dbh ) = shift;
> local( $sth ) = $dbh->prepare( "create table tbl_easy (id int4)" );
> $sth->execute();
=====> $dbh->commit;
> }

> $dbh = DBI->connect( "dbi:Pg:dbname=booga", "", "",
> { "PrintError" => 0, "AutoCommit" => 0 } );

> $rv = &tbl_easy_init( $dbh );

> This program fails. I've tried it with all global variables, tried
> a number of different CREATE TABLE statements, and so on, and $rv
> always winds up being equal to -1. Yet, typing in the CREATE TABLE
> statement in psql works.

--
... _._. ._ ._. . _._. ._. ___ .__ ._. . .__. ._ .. ._.
Felix Finch: scarecrow repairman & rocket surgeon / felix(at)crowfix(dot)com
PGP = 91 B3 94 7C E9 E8 76 2D E1 63 51 AA A0 48 89 2F ITAR license #4933
I've found a solution to Fermat's Last Theorem but I see I've run out of room o