Query a database and display the contents in a table : ODBC « 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 » ODBC 
Query a database and display the contents in a table
   

#!/usr/bin/perl


use warnings;
use strict;
use DBI;
use DBD::ODBC;

my $dbh = DBI->connect"DBI:ODBC:employeeDB""""" or die"Could not make connection to database: $DBI::errstr" );

my $sth = $dbh->prepareqSELECT FROM employee } ) or die"Cannot prepare statement: ", $dbh->errstr()"\n" );
     
my $rc = $sth->execute() or die"Cannot execute statement: ", $sth->errstr()"\n" );

my @array;

while @array = $sth->fetchrow_array() ) {
   write();
}

warn$DBI::errstr if $DBI::err;

$sth->finish();
$dbh->disconnect();

format STDOUT =  
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<<<<
$array], $array], $array], $array], $array]

.

   
    
    
  
Related examples in the same category
1.DBI ODBC
2.Delete a record from the database
3.Delete statement and DBI ODBC connection
4.Insert statement with DBI connection
5.Program to insert a new record into the database
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.