Leser: 1
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
my $connection_check = DBI->connect( 'DBI:Oracle:'.$current_db, $current_user, $current_password, { RaiseError=> 0, PrintError => 0, AutoCommit => 0 } );
if ( defined $connection_check)
{
print "Verbindung OK";
}
else
{
print "Verbindung NICHT OK";
}
my $dbh = DBI->connect( 'DBI:Oracle:'.$current_db, $current_user, $current_password, { RaiseError=> 0, PrintError => 0, AutoCommit => 0 } ) or print "Keine Verbindung zur Datenbank";
7 Einträge, 1 Seite |