The First SQL Query : select « Database « Perl






  1. Perl
  2. Database
  3. select

The First SQL Query

   


#!\usr\bin\perl

use warnings;
use strict;
use DBI;
my ($dbh, $sth, $name, $id);
$dbh=DBI->connect('dbi:mysql:test','root','password') || die "Error opening database: $DBI::errstr\n";
$sth=$dbh->prepare("SELECT * from employee;") || die "Prepare failed: $DBI::errstr\n";
$sth->execute() || die "Couldn't execute query: $DBI::errstr\n";
while (( $id, $name) = $sth ->fetchrow_array) {
    print "$name has ID $id\n";
}
$sth->finish();
$dbh->disconnect || die "Failed to disconnect\n";








Related examples in the same category

1.Select, Execute, and Dump the Results
2.Select, Execute, and Fetch a Row as a Hash
3.Select, Execute, and Fetch a Row as an Array
4.Simple query
5.Using a Placeholder
6.Creating a Web Page Integrated with SQL Data
7.Creating an HTML Table