Using Placeholders to Insert Multiple Records : insert « Database « Perl






Using Placeholders to Insert Multiple Records

   


use DBI;
my $dbh=DBI->connect("DBI:mysql:host=localhost;user=root;password=;database=sample_db");

my $sth=$dbh->prepare("INSERT INTO Employee(name)VALUES(?)");
my @rows = (['A'],
             ['B'],
             ['C'],
             ['D'],
            );

foreach my $row (@rows ){
     $name = $row->[0];
     $sth->execute($name);
}
$sth=$dbh->prepare("SELECT * FROM employee");
$sth->execute();
while(my @row = $sth->fetchrow_array()){
   print "name=$row[0]\n";
}
$sth->finish();
$dbh->disconnect();

   
    
    
  








Related examples in the same category

1.Simple Inserts
2.Using Multiple Placeholders
3.do() method prepares and executes nonselect, nonrepeating statements in one step.