Leser: 1
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
sub db_funtction {
my $dbh = DBI->connect("dbi:Oracle:$db_name",$db_username,$db_password, \%attr) or die "Fehler beim Datenbankconnect:
$DBI::errstr";
my $sql = "SELECT count (*) FROM tabelle...";
my $aref = $dbh->selectall_arrayref($sql,undef) or die "Fehler beim Ausfuehren des Selects: $DBI::errstr";
$dbh->disconnect();
return $aref;
}
Quote
use DBI;
my $dbh =DBI->connect("dbi:Oracle:$db_name",$db_username,$db_password, \%attr) or die "Fehler beim Datenbankconnect:
my $sql = qq{select count(*) FROM Table ... };
my $sth = $dbh->prepare($sql) or die 'Fehler:', $DBI::errstr, "\n" ;
$sth->execute();
if ($sth->err()){die 'Fehler Datenbank: ', $sth->errstr() ,"\n$sql\n";
($count) = $sth->fetchrow_array();
return $count
7 Einträge, 1 Seite |