Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > PostgreSQL > не работает insert

Автор: L0GA4 29.4.2010, 16:01

Не работает INSERT в perl:

код:

Код


#!/usr/bin/perl

use DBI;
use LWP::Simple;
use Encode;
use strict;

my $dbh;
my $db_base = 'postgres';
my $db_login= 'postgres';
my $db_password = 'password';

$dbh = DBI->connect("DBI:Pg:dbname=$db_base",$db_login, $db_password,{AutoCommit => 0});
$dbh->do("INSERT INTO info.types(id,title) VALUES(2,'test')");

my $sth = $dbh->prepare("SELECT * FROM info.types");
$sth->execute();
while(my $row = $sth->fetchrow_hashref)
{
    print $row->{'id'}.$row->{'title'}."\n";
}
$sth->finish();
$dbh->disconnect();

после выполнение скрипта выводится:

Код


2test

НО данные в базу не заносятся, либо при отключении удаляются...
если переподключиться, то уже пустой результат...

тоже самое с UPDATE.
SELECT работает отлично, а вот INSERT и UPDATE не работают

Автор: L0GA4 29.4.2010, 16:20

тупанул.
либо {AutoCommit => 1}
либо не забывать $dbh->commit(); при {AutoCommit => 0}