my $dbh = DBI->connect($dsn,$username,$password,{RaiseError=>1, AutoCommit=>1}) or
die $DBI::errstr;
####
my $insert1 = $dbh->prepare("
INSERT INTO HR.Tempest (
ID,
NAME,
TITLE,
DEPT
) VALUES (?,?,?,?)
");
for (...whatever...)
{
$insert1->execute($id,$name,$title,$dept);
}
##
##
my $resultset = $dbh->prepare("Select * from Tempest");
while(@row = $resultset->fetchrow_array()){
print"@row\n\n";
}
##
##
my $resultset = $dbh->prepare("Select * from Hr.Tempest");
$resultset->execute();
while(@row = $resultset->fetchrow_array()){
print"@row\n\n";
}
##
##
foreach my $year (sort keys %yr2dir)
{
create_table($dbh,$year);
$dbh->begin_work;
populate_table($dbh,$year,$yr2dir{$year});
$dbh->commit;
}