Lines Matching refs:dbh
39 my $dbh = DBI->connect ( "dbi:SQLite:dbname=".$errdb, "", "",
41 $dbh->begin_work();
45 $dbh->selectall_arrayref ( "SELECT * FROM errors LIMIT 1" );
49 $dbh->do ( "CREATE TABLE errors (".
57 $dbh->selectall_arrayref ( "SELECT * FROM xrefs LIMIT 1" );
61 $dbh->do ( "CREATE TABLE xrefs (".
67 $dbh->do ( "CREATE INDEX xrefs_errno ON xrefs ( errno )" );
84 $dbh->prepare ( "UPDATE errors SET description = ? WHERE errno = ?" );
85 my $error_insert = $dbh->prepare ( "INSERT INTO errors VALUES ( ?, ? )" );
94 $dbh->do ( "DELETE FROM xrefs" );
95 my $xref_insert = $dbh->prepare ( "INSERT INTO xrefs VALUES ( ?, ?, ? )" );
107 $dbh->commit();
108 $dbh->disconnect();