#!perl -w
# $Id: identity.pl 14631 2011-01-03 16:48:35Z mjevans $


use strict;
use DBI;

my $dbh = DBI->connect();

# create a temp table with an identity property on a column:
my $sql = qq{CREATE TABLE #TEMP1 (MyCol INT NOT NULL IDENTITY)};
$dbh->do($sql);

# Set the identity insert property for this table on
# this should allow me to explicitly give a value to be inserted into the # identity column:

$sql = qq{SET IDENTITY_INSERT #TEMP1 ON};
$dbh->do($sql);		# Added by JLU
# now try to insert an explicit value into this identity column:

$sql = qq{INSERT INTO #TEMP1 (MyCol) VALUES (1)};
$dbh->do($sql);

$dbh->disconnect;