MIME-Version: | 1.0 |
X-Protective-Marking: | VER=2012.3, NS=gov.au, SEC=UNCLASSIFIED, ORIGIN=mts [...] ansto.gov.au |
X-Spam-Flag: | NO |
X-Virus-Checked: | Checked |
Content-Type: | multipart/alternative; boundary="_000_0E5BB4F945105948AF5D21EE077891F101AD9E44EXMBS2B51anstog_" |
X-Virus-Scanned: | Debian amavisd-new at bestpractical.com |
X-Spam-Score: | -4.2 |
Received: | from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com (Postfix) with ESMTP id 42353240389 for <cpan-bug+DBD-ODBC [...] hipster.bestpractical.com>; Tue, 2 Feb 2016 01:31:25 -0500 (EST) |
Received: | from hipster.bestpractical.com ([127.0.0.1]) by localhost (hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id o9cbD84pWYo8 for <cpan-bug+DBD-ODBC [...] hipster.bestpractical.com>; Tue, 2 Feb 2016 01:31:23 -0500 (EST) |
Received: | from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by hipster.bestpractical.com (Postfix) with SMTP id 960A32400C1 for <bug-DBD-ODBC [...] rt.cpan.org>; Tue, 2 Feb 2016 01:31:22 -0500 (EST) |
Received: | (qmail 30901 invoked by alias); 2 Feb 2016 06:31:21 -0000 |
Received: | from ironport1.ansto.gov.au (HELO ironport1.ansto.gov.au) (137.157.2.13) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 01 Feb 2016 22:30:56 -0800 |
Received: | from emailgw2.ansto.gov.au ([137.157.2.5]) by ironport1.ansto.gov.au with ESMTP; 02 Feb 2016 17:30:46 +1100 |
Received: | from exchange.ansto.gov.au (exch1-b51-nlb.ansto.gov.au [137.157.12.51]) by emailgw2.ansto.gov.au (8.13.8+Sun/8.13.8) with ESMTP id u126UhQ0015299 for <bug-DBD-ODBC [...] rt.cpan.org>; Tue, 2 Feb 2016 17:30:46 +1100 (EST) |
Received: | from EXMBS2-B51.ansto.gov.au ([169.254.2.17]) by EXCH1-B51.ansto.gov.au ([137.157.12.50]) with mapi id 14.01.0289.001; Tue, 2 Feb 2016 17:30:43 +1100 |
Delivered-To: | cpan-bug+DBD-ODBC [...] hipster.bestpractical.com |
Subject: | DBI - Access OBDC bug [SEC=UNCLASSIFIED] |
Thread-Index: | AdFdgz0w5TH/VwXgSj2pX8sUUPz6Sw== |
X-Spam-Check-BY: | la.mx.develooper.com |
Date: | Tue, 2 Feb 2016 06:30:42 +0000 |
X-Spam-Level: | |
To: | "bug-DBD-ODBC [...] rt.cpan.org" <bug-DBD-ODBC [...] rt.cpan.org> |
X-Spam-Status: | No, score=-4.2 tagged_above=-99.9 required=10 tests=[BAYES_00=-1.9, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_MED=-2.3, RP_MATCHES_RCVD=-0.001] autolearn=ham |
X-Ansto-PM-Filtering: | accepted by emailgw2.ansto.gov.au; message from <mts [...] ansto.gov.au> (exch1-b51-nlb.ansto.gov.au [137.157.12.51]); Tue, 02 Feb 2016 17:30:46 +1100 [1454394646] auth=407a0376b3adcb6da7f719c48ec20184799bf6f6 |
X-Janusnet-Dialogconfirmed: | True |
X-Ansto-Senderip: | 137.157.12.51 |
Received-SPF: | Pass (ironport1.ansto.gov.au: domain of mts [...] ansto.gov.au designates 137.157.2.5 as permitted sender) identity=mailfrom; client-ip=137.157.2.5; receiver=ironport1.ansto.gov.au; envelope-from="mts [...] ansto.gov.au"; x-sender="mts [...] ansto.gov.au"; x-conformance=spf_only; x-record-type="v=spf1" |
Received-SPF: | None (ironport1.ansto.gov.au: no sender authenticity information available from domain of postmaster [...] emailgw2.ansto.gov.au) identity=helo; client-ip=137.157.2.5; receiver=ironport1.ansto.gov.au; envelope-from="mts [...] ansto.gov.au"; x-sender="postmaster [...] emailgw2.ansto.gov.au"; x-conformance=spf_only |
Content-Language: | en-US |
Message-ID: | <0E5BB4F945105948AF5D21EE077891F101AD9E44 [...] EXMBS2-B51.ansto.gov.au> |
X-MS-Tnef-Correlator: | |
X-Classifier: | janusSEAL for Outlook 2.6.2 |
Return-Path: | <mts [...] ansto.gov.au> |
X-Original-To: | cpan-bug+DBD-ODBC [...] hipster.bestpractical.com |
X-RT-Mail-Extension: | dbd-odbc |
Thread-Topic: | DBI - Access OBDC bug [SEC=UNCLASSIFIED] |
X-MS-Has-Attach: | |
X-Originating-Ip: | [137.157.126.44] |
Accept-Language: | en-AU, en-US |
From: | "SALE, Matthew" <mts [...] ansto.gov.au> |
X-RT-Interface: | |
Content-Length: | 0 |
content-type: | text/plain; charset="utf-8" |
Content-Transfer-Encoding: | quoted-printable |
X-RT-Original-Encoding: | ascii |
Content-Length: | 1011 |
Good Day
I have been doing some work with DBI/OBDC/ACCESS 2010
Unfortunately, some of the time when I ask for my data it ends up corrupted.
For example, the following code produces corruption...
#!perl
use strict;
use warnings;
use DBI;
use Data::Dumper;
my $dbh = DBI->connect('dbi:ODBC:Test');
my $sqlstatementExisting = "
SELECT *
FROM Table1
";
my $sth = $dbh->prepare($sqlstatementExisting);
$sth->execute # ([$name])
|| die "Could not execute SQL statement ... maybe invalid? ".$dbh->errstr;
while (my @row = $sth->fetchrow_array) {
print Dumper (@row);
}
This produces the following result...
$VAR1 = 1;
$VAR2 = 'E-6';
However, the data stored in the database is as follows...
Table1
ID
Field1
1
8.93601020357839E-06
For some reason, my data is being truncated to just the exponent values and text.
I am unsure how to fix this as it appears to be a bug in either the perl modules or hopefully not in the OBDC or ACCESS part of the code.
Matt
content-type: | text/html; charset="utf-8" |
Content-Transfer-Encoding: | quoted-printable |
X-RT-Original-Encoding: | ascii |
Content-Length: | 7116 |