VPF::не работает insert - Форум программистов

L0GA4

Дата 29.4.2010, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.6.2005

Репутация: нет
Всего: нет

Не работает 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.6.2005

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| PostgreSQL \| Следующая тема »