From: Øystein Torget Date: Tue, 5 Feb 2008 08:55:39 +0000 (+0000) Subject: Initial import of storage class for MS Acccess X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbe552a3fbfa23dd300ee51c02dd10a112a4bd44;p=dbsrgits%2FDBIx-Class-Historic.git Initial import of storage class for MS Acccess --- diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm b/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm new file mode 100644 index 0000000..1f0bfd9 --- /dev/null +++ b/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm @@ -0,0 +1,104 @@ +package DBIx::Class::Storage::DBI::ODBC::ACCESS; +use strict; +use warnings; + +use Data::Dump qw( dump ); + +use base qw/DBIx::Class::Storage::DBI/; + +my $ERR_MSG_START = __PACKAGE__ . ' failed: '; + +sub insert { + my $self = shift; + my ( $source, $to_insert ) = @_; + + my $bind_attributes = $self->source_bind_attributes( $source ); + my ( undef, $sth ) = $self->_execute( 'insert' => [], $source, $bind_attributes, $to_insert ); + + #store the identity here since @@IDENTITY is connection global and this prevents + #possibility that another insert to a different table overwrites it for this resultsource + my $identity = 'SELECT @@IDENTITY'; + my $max_sth = $self->{ _dbh }->prepare( $identity ) + or $self->throw_exception( $ERR_MSG_START . $self->{ _dbh }->errstr() ); + $max_sth->execute() or $self->throw_exception( $ERR_MSG_START . $max_sth->errstr ); + + my $row = $max_sth->fetchrow_arrayref() + or $self->throw_exception( $ERR_MSG_START . "$identity did not return any result." ); + + $self->{ last_pk }->{ $source->name() } = $row; + + return $to_insert; +} + +sub last_insert_id { + my $self = shift; + my ( $result_source ) = @_; + + return @{ $self->{ last_pk }->{ $result_source->name() } }; +} + +sub sqlt_type { 'ACCESS' } + +1; + +=head1 NAME + +DBIx::Class::Storage::ODBC::ACCESS - Support specific to MS Access over ODBC + +=head1 WARNING + +I am not a DBI, DBIx::Class or MS Access guru. Use this module with that in +mind. + +This module is currently considered alpha software and can change without notice. + +=head1 DESCRIPTION + +This class implements support specific to Microsoft Access over ODBC. It currently only +implements functions necessary for working with auto-incremented primary keys. + +It is loaded automatically by by DBIx::Class::Storage::DBI::ODBC when it +detects a MS Access back-end. + +=head1 SUPPORTED VERSIONS + +This module have currently only been tested on MS Access 2003 using the Jet 4.0 engine. + +As far as my knowledge it should work on MS Access 2000 or later, but that have not been tested. +Information about support for different version of MS Access is welcome. + +=head1 IMPLEMENTATION NOTES + +MS Access supports the @@IDENTITY function for retriving the id of the latest inserted row. +@@IDENTITY is global to the connection, so to support the possibility of getting the last inserted +id for different tables, the insert() function stores the inserted id on a per table basis. +last_insert_id() then just returns the stored value. + +=head1 IMPLEMENTED FUNCTIONS + +=head2 insert + +=head2 last_insert_id + +=head2 sqlt_type + +=head1 BUGS + +Most likely. Bug reports are welcome. + +=head1 AUTHORS + +Øystein Torget C<< >> + +=head1 COPYRIGHT + +You may distribute this code under the same terms as Perl itself. + +Det Norske Veritas AS (DNV) + +http://www.dnv.com + + + +=cut +