Program to insert a new record into the database : ODBC « Database « Perl






  1. Perl
  2. Database
  3. ODBC

Program to insert a new record into the database

   

#!/usr/bin/perl


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

my $dbh = DBI->connect( "dbi:ODBC:employeeDB", "", "", { RaiseError => 1 } );
 
my $newemploy = "1";
my $newfirst = "first";
my $newlast = "last";

my $querystring = "INSERT INTO employee VALUES ( '$newemploy','$newfirst','$newlast');";

# Execute the statement
$dbh->do( $querystring );

# Now print the updated database
my $sth = $dbh->prepare( q{ SELECT * FROM employee  } );

$sth->execute();

my @array;

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

# Clean up
warn( $DBI::errstr ) if $DBI::err;
$sth->finish();
$dbh->disconnect();

format STDOUT = 
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<<<
$array[ 0 ], $array[ 1 ], $array[ 2 ], $array[ 3 ], $array[ 4 ]

.








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.Query a database and display the contents in a table