DBI im Überblick

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


`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