Using a Placeholder : select « Database « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Database » select 
Using a Placeholder
   

use DBI;
my $driver="DBI:mysql";
my $database="sample_db";
my $user="root";
my $host="localhost";

my $dbh = DBI->connect("$driver:$database:$host;user=$user;
password=quigley1")or die "Can't connect: ". DBI->errstr;
my $sth=$dbh->prepare("SELECT name FROM Employee WHERE name = ?"or die "Can't prepare sql statement" . DBI->errstr;

$name="Tom";
$sth->execute($name);
print "Selected data for team \"$name\".\n\n";

while(my @val = $sth->fetchrow_array()){
      print "name=$val[0]\n";
}
$sth->finish();
$dbh->disconnect();

   
    
    
  
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.The First SQL Query
6.Creating a Web Page Integrated with SQL Data
7.Creating an HTML Table
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.