|
my $db = DBI->connect($data_source, | |
$username, $auth, %attr); | Aufbau einer Verbindung |
use Mysql::Admin qw(dbi_connect); | |
my $db = DBI->connect( | |
dbi_connect($dbdir), "", ""); | Aufbau einer Verbindung zur ``privaten'' MySQL-Datenbank bei uns (in den Übungen) |
$db->{RaiseError} = 1; | Alle DBI-Fehler zu fatalen Ausnahmen werden lassen. |
my $tuple = join(", ", ("?") x $cols); | |
my $st = $db->prepare(qq{ | |
insert into $table values ($tuple) | |
}); | Einfügen von Datensätzen vorbereiten |
$st->execute(@tuple); | und durchführen |
my $st = $db->prepare(qq{ | |
select * from $table | |
}"); | Abfrage vorbereiten |
$record = $st->fetch() | Einen Datensatz abholen |
$st->finish; | Freigabe eines Abfragehenkels |
$db->disconnect; | Verbindung zur Datenbank ``sanft'' schließen |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |