1 package DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
7 DBIx::Class::Storage::DBI::Sybase
8 DBIx::Class::Storage::DBI::MSSQL
12 use DBIx::Class::Carp;
14 __PACKAGE__->datetime_parser_type(
15 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format'
20 my $dbh = $self->_get_dbh;
22 return if ref $self ne __PACKAGE__;
23 if (not $self->_use_typeless_placeholders) {
25 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars;
27 'DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars';
32 sub _run_connection_actions {
35 # LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
36 # huge on some versions of SQL server and can cause memory problems, so we
37 # fix it up here (see ::DBI::Sybase.pm)
40 $self->next::method(@_);
46 $self->_get_dbh->do('BEGIN TRAN');
52 or $self->throw_exception('cannot COMMIT on a disconnected handle');
59 or $self->throw_exception('cannot ROLLBACK on a disconnected handle');
63 sub _get_server_version {
66 my $product_version = $self->_get_dbh->selectrow_hashref('master.dbo.xp_msver ProductVersion');
68 if ((my $version = $product_version->{Character_Value}) =~ /^(\d+)\./) {
72 $self->throw_exception(
73 "MSSQL Version Retrieval Failed, Your ProductVersion's Character_Value is missing or malformed!"
78 =head2 connect_call_datetime_setup
82 on_connect_call => 'datetime_setup'
84 In L<connect_info|DBIx::Class::Storage::DBI/connect_info> to set:
86 $dbh->syb_date_fmt('ISO_strict'); # output fmt: 2004-08-21T14:36:48.080Z
88 On connection for use with L<DBIx::Class::InflateColumn::DateTime>
90 This works for both C<DATETIME> and C<SMALLDATETIME> columns, although
91 C<SMALLDATETIME> columns only have minute precision.
95 sub connect_call_datetime_setup {
97 my $dbh = $self->_get_dbh;
99 if ($dbh->can('syb_date_fmt')) {
100 # amazingly, this works with FreeTDS
101 $dbh->syb_date_fmt('ISO_strict');
105 'Your DBD::Sybase is too old to support '
106 . 'DBIx::Class::InflateColumn::DateTime, please upgrade!';
111 package # hide from PAUSE
112 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::DateTime::Format;
114 my $datetime_parse_format = '%Y-%m-%dT%H:%M:%S.%3NZ';
115 my $datetime_format_format = '%Y-%m-%d %H:%M:%S.%3N'; # %F %T
117 my ($datetime_parser, $datetime_formatter);
121 require DateTime::Format::Strptime;
122 $datetime_parser ||= DateTime::Format::Strptime->new(
123 pattern => $datetime_parse_format,
126 return $datetime_parser->parse_datetime(shift);
129 sub format_datetime {
131 require DateTime::Format::Strptime;
132 $datetime_formatter ||= DateTime::Format::Strptime->new(
133 pattern => $datetime_format_format,
136 return $datetime_formatter->format_datetime(shift);
143 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft
144 SQL Server via DBD::Sybase
148 This subclass supports MSSQL server connections via L<DBD::Sybase>.
152 This driver tries to determine whether your version of L<DBD::Sybase> and
153 supporting libraries (usually FreeTDS) support using placeholders, if not the
154 storage will be reblessed to
155 L<DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server::NoBindVars>.
157 The MSSQL specific functionality is provided by
158 L<DBIx::Class::Storage::DBI::MSSQL>.
162 See L<DBIx::Class/CONTRIBUTORS>.
166 You may distribute this code under the same terms as Perl itself.