On Mon, Sep 20, 2004 at 07:01:32AM -0400, Jeff Urlwin <[EMAIL PROTECTED]> wrote:
>
> Probably true, since somewhere along the line I added support for SQLExecDirect to
> support
> some systems which don't do anything with SQLPrepare and SQLExecute. I suppose I
> could
> try to honor the odbc_execdirect flag, too, that way anyone who wants SQLExecDirect
> could
> truly control it and not get surprised. The odbc_execdirect flag was originally
> intended
> to support SQLExecDirect for prepare/execute, but I could extend it, but this seems
> like
> an edge case and, if it wouldn't cause you a problem, I'd plan on leaving it to not
> break
> others existing code.
I agree. Having the flag work in all cases would be nice, but as long as
I can just do a prepare/execute instead of a do, I'll be happy.
By the way, I did my tests again with an error handler this time. I'm
attaching the modified scripts and the logs in case you'd like to look
through them.
--
David Good [EMAIL PROTECTED]
This space intentionally left blank.
#! perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(
"dbi:ODBC:DEVCYGWIN",
"sa",
"dbcc_die",
{
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
}
);
my $sql = <<EOSQL;
backup database ?
to DISK = 'C:/temp/backup_test'
with init
EOSQL
$dbh->{odbc_err_handler} =
sub {
# Make sure all fields are defined...
my($state, $msg) = map {defined() ? $_ : ""} @_;
my $info = "(state $state): $msg";
warn "Server message:\n$info\n";
return 0;
};
$dbh->do($sql, undef, "foo");
DBI 1.42-ithread default trace level set to Ox9/0 (in pid 1776)
-> DBI->connect(dbi:ODBC:DEVCYGWIN, sa, ****, HASH(0x15d5468))
-> DBI->install_driver(ODBC) for MSWin32 perl=5.008004 pid=1776 ruid=0 euid=0
install_driver: DBD::ODBC version 1.09 loaded from C:/Perl/site/lib/DBD/ODBC.pm
New DBI::dr (for DBD::ODBC::dr, parent=, id=)
dbih_setup_handle(DBI::dr=HASH(0x1b54b2c)=>DBI::dr=HASH(0x1bd9a18), DBD::ODBC::dr,
0, Null!)
dbih_make_com(Null!, 0, DBD::ODBC::dr, 92, 0) thr#15d4574
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a18), Err, Null!) SCALAR(0x1a4c700) (already
defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a18), State, Null!) SCALAR(0x1a4c748)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a18), Errstr, Null!) SCALAR(0x1a4c724)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a18), TraceLevel, Null!) 0 (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a18), FetchHashKeyName, Null!) 'NAME'
(already defined)
<- install_driver= DBI::dr=HASH(0x1b54b2c)
>> connect DISPATCH (DBI::dr=HASH(0x1b54b2c) rc2/3 @5 g0 ima1 pid#1776) at
C:/Perl/site/lib/DBI.pm line 587
!! warn: 0 CLEARED by call to connect method
-> connect for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b2c)~0x1bd9a18 'DEVCYGWIN' 'sa'
**** HASH(0x1bd9d18)) thr#15d4574
New DBI::db (for DBD::ODBC::db, parent=DBI::dr=HASH(0x1bd9a18), id=)
dbih_setup_handle(DBI::db=HASH(0x1bd99dc)=>DBI::db=HASH(0x1bd9d84), DBD::ODBC::db,
1b54880, Null!)
dbih_make_com(DBI::dr=HASH(0x1bd9a18), 1bda504, DBD::ODBC::db, 220, 0) thr#15d4574
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), Err, DBI::dr=HASH(0x1bd9a18))
SCALAR(0x1b5b68c) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), State, DBI::dr=HASH(0x1bd9a18))
SCALAR(0x1b5b6ec) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), Errstr, DBI::dr=HASH(0x1bd9a18))
SCALAR(0x1b5b6bc) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), TraceLevel, DBI::dr=HASH(0x1bd9a18)) 0
(already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), FetchHashKeyName,
DBI::dr=HASH(0x1bd9a18)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), HandleSetErr, DBI::dr=HASH(0x1bd9a18))
undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d84), HandleError, DBI::dr=HASH(0x1bd9a18))
undef (not defined)
Driver connect 'DEVCYGWIN', 'sa', 'dbcc_die'
SQLDriverConnect failed:
SQLConnect 'DEVCYGWIN', 'sa'
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed database context to
'master'.
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed language setting to
us_english.
Connected to: Microsoft SQL Server
SQLGetFunctions - SQL_MoreResults supported: 1
<- connect= DBI::db=HASH(0x1bd99dc) at C:/Perl/site/lib/DBI.pm line 587
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'RaiseError' 1)
thr#15d4574
DBD::ODBC unsupported attribute passed (RaiseError)
STORE DBI::db=HASH(0x1bd9d84) 'RaiseError' => 1
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'PrintError' 0)
thr#15d4574
DBD::ODBC unsupported attribute passed (PrintError)
STORE DBI::db=HASH(0x1bd9d84) 'PrintError' => 0
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'AutoCommit' 1)
thr#15d4574
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
C:/Perl/site/lib/DBI.pm line 634 via ./good line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'Username' 'sa')
thr#15d4574
DBD::ODBC unsupported attribute passed (Username)
STORE DBI::db=HASH(0x1bd9d84) 'Username' => 'sa'
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 634 via ./good line 7
>> FETCH DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @2 g0 ima404 pid#1776) at
C:/Perl/site/lib/DBI.pm line 634
<> FETCH= 'sa' ('Username' from cache) at C:/Perl/site/lib/DBI.pm line 634
<- connect= DBI::db=HASH(0x1bd99dc)
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
C:/Perl/site/lib/DBI.pm line 648 via ./good line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'dbi_connect_closure'
CODE(0x1bce2a4)) thr#15d4574
DBD::ODBC unsupported attribute passed (dbi_connect_closure)
STORE DBI::db=HASH(0x1bd9d84) 'dbi_connect_closure' => CODE(0x1bce2a4)
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 648 via ./good line 7
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d84) rc2/1 @3 g0 ima41c pid#1776) at
./good line 32
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'odbc_err_handler'
CODE(0x1bc03d8)) thr#15d4574
<- STORE= 1 at ./good line 32
>> do DISPATCH (DBI::db=HASH(0x1bd99dc) rc1/1 @4 g0 ima3201 pid#1776) at
./good line 34
-> do for DBD::ODBC::db (DBI::db=HASH(0x1bd99dc)~0x1bd9d84 'backup database ?
to DISK = 'C:/temp/backup_test'
with init
' undef 'foo') thr#15d4574
>> prepare DISPATCH (DBI::db=HASH(0x1bd9d84) rc1/3 @3 g0 ima2201 pid#1776) at
C:/Perl/site/lib/DBI.pm line 1410
1 -> prepare for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER 'backup database ?
to DISK = 'C:/temp/backup_test'
with init
' undef) thr#15d4574
New DBI::st (for DBD::ODBC::st, parent=DBI::db=HASH(0x1bd9d84), id=)
dbih_setup_handle(DBI::st=HASH(0x1bdb11c)=>DBI::st=HASH(0x1bdb224), DBD::ODBC::st,
1bdb128, Null!)
dbih_make_com(DBI::db=HASH(0x1bd9d84), 1bdb8ac, DBD::ODBC::st, 208, 0) thr#15d4574
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), Err, DBI::db=HASH(0x1bd9d84))
SCALAR(0x1b5b68c) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), State, DBI::db=HASH(0x1bd9d84))
SCALAR(0x1b5b6ec) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), Errstr, DBI::db=HASH(0x1bd9d84))
SCALAR(0x1b5b6bc) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), TraceLevel, DBI::db=HASH(0x1bd9d84)) 0
(already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), FetchHashKeyName,
DBI::db=HASH(0x1bd9d84)) 'NAME' (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), HandleSetErr, DBI::db=HASH(0x1bd9d84))
undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x1bdb224), HandleError, DBI::db=HASH(0x1bd9d84))
undef (not defined)
ignore named placeholders = 0
dbd_preparse scanned 1 distinct placeholders
SQLPrepare returned 0
dbd_st_prepare'd sql f30808592, ExecDirect=0
backup database ?
to DISK = 'C:/temp/backup_test'
with init
1 <- prepare= DBI::st=HASH(0x1bdb11c) at C:/Perl/site/lib/DBI.pm line 1410
>> execute DISPATCH (DBI::st=HASH(0x1bdb11c) rc1/1 @2 g0 ima1041 pid#1776) at
C:/Perl/site/lib/DBI.pm line 1411
-> execute for DBD::ODBC::st (DBI::st=HASH(0x1bdb11c)~0x1bdb224 'foo') thr#15d4574
bind 1 <== 'foo' (attribs: ), type 0
SQLDescribeParam idx = 1.
SQLDescribeParam failed reverting to default type for this parameter: 07009
[Microsoft][ODBC SQL Server Driver]Invalid Descriptor Index
07009 [Microsoft][ODBC SQL Server Driver]Invalid parameter number
dbd_st_execute (outparams = 0)...
bind 1 <== 'foo' (size 3/4/0, ptype 4, otype 1, sqltype 12)
bind 1 <== 'foo' (len 3/3, null 0)
bind 1: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=3.
SQLBindParameter: idx = 1: fParamType=1, name=1, fCtype=1, SQL_Type = 12,
cbColDef=80, scale=0, rgbValue = 1ae6734, cbValueMax=3, cbValue = 3
Param value = foo
rebind check char Param 1 (foo)
dbd_st_execute (for hstmt 30808592 before)...
dbd_st_execute (for hstmt 30808592 after, rc = 1)...
dbd_error: err_rc=1 rc=0 s/d/e: 30808592/30806856/30806688
dbd_error: calling odbc_err_handler
Server message:
(state 01000): [Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120 pages for
database 'foo', file 'foo_Data' on file 1.
dbd_error: calling odbc_err_handler
Server message:
(state 01000): [Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for
database 'foo', file 'foo_Log' on file 1.
dbd_error: err_rc=1 rc=0 s/d/e: 0/30806856/30806688
dbd_error: err_rc=1 rc=0 s/d/e: 0/0/30806688
dbd_st_execute getting row count
dbd_st_execute got row count -1
dbd_describe 30808592 getting num fields
Numfields == 0, SQLMoreResults == 1
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Backup or restore operation
successfully processed 4121 pages in 16.443 seconds (2.052 MB/sec).
Numfields == 0, SQLNumResultCols == 0
Numfields == 0, SQLMoreResults == 100
dbd_describe sql 30808592: num_fields=0
dbd_describe skipped (no result cols) (sql f30808592)
dbd_st_execute got no rows: resetting ACTIVE, moreResults
<- execute= -1 at C:/Perl/site/lib/DBI.pm line 1411
>> rows DISPATCH (DBI::st=HASH(0x1bdb11c) rc1/1 @1 g0 ima4 pid#1776) at
C:/Perl/site/lib/DBI.pm line 1412
-> rows for DBD::ODBC::st (DBI::st=HASH(0x1bdb11c)~0x1bdb224) thr#15d4574
<- rows= -1 at C:/Perl/site/lib/DBI.pm line 1412
>> DESTROY DISPATCH (DBI::st=HASH(0x1bdb11c) rc1/1 @1 g0 ima4 pid#1776) at
C:/Perl/site/lib/DBD/ODBC.pm line 289
<> DESTROY ignored for outer handle DBI::st=HASH(0x1bdb11c) (inner
DBI::st=HASH(0x1bdb224) has ref cnt 1)
>> DESTROY DISPATCH (DBI::st=HASH(0x1bdb224) rc1/1 @1 g0 ima4 pid#1776) at
C:/Perl/site/lib/DBD/ODBC.pm line 289
-> DESTROY for DBD::ODBC::st (DBI::st=HASH(0x1bdb224)~INNER) thr#15d4574
SQLFreeStmt called, returned 0.
<- DESTROY= undef at C:/Perl/site/lib/DBD/ODBC.pm line 289
DESTROY (dbih_clearcom) (sth 0x1bdb11c, com 0x1bdd3e4, imp DBD::ODBC::st):
FLAGS 0x180091: COMSET Warn RaiseError PrintWarn
PARENT DBI::db=HASH(0x1bd9d84)
KIDS 0 (0 Active)
IMP_DATA undef
NUM_OF_FIELDS 0
NUM_OF_PARAMS 1
dbih_clearcom 0x1bdb11c (com 0x1bdd3e4, type 3) done.
<- do= -1 at ./good line 34
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd99dc) rc1/1 @1 g0 ima4 pid#1776)
<> DESTROY ignored for outer handle DBI::db=HASH(0x1bd99dc) (inner
DBI::db=HASH(0x1bd9d84) has ref cnt 1)
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd9d84) rc1/1 @1 g0 ima4 pid#1776)
-> DESTROY for DBD::ODBC::db (DBI::db=HASH(0x1bd9d84)~INNER) thr#15d4574
DBD::ODBC Disconnected!
<- DESTROY= undef
DESTROY (dbih_clearcom) (dbh 0x1bd99dc, com 0x1bdb8ac, imp DBD::ODBC::db):
FLAGS 0x180291: COMSET Warn RaiseError PrintWarn AutoCommit
PARENT DBI::dr=HASH(0x1bd9a18)
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1bd99dc (com 0x1bdb8ac, type 2) done.
-- DBI::END
>> disconnect_all DISPATCH (DBI::dr=HASH(0x1b54b2c) rc1/3 @1 g0 ima801 pid#1776)
at C:/Perl/site/lib/DBI.pm line 657 via ./good line 0
-> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b2c)~0x1bd9a18) thr#15d4574
<- disconnect_all= '' at C:/Perl/site/lib/DBI.pm line 657 via ./good line 0
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1bd9a18) rc1/1 @1 g0 ima4 pid#1776) during
global destruction
! -> DESTROY for DBD::ODBC::dr (DBI::dr=HASH(0x1bd9a18)~INNER) thr#15d4574
! <- DESTROY= (not implemented) during global destruction
DESTROY (dbih_clearcom) (drh 0x1b54b2c, com 0x1bda504, imp global destruction):
FLAGS 0x180215: COMSET Active Warn PrintWarn AutoCommit
PARENT undef
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1b54b2c (com 0x1bda504, type 1) done.
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1b54b2c) rc1/1 @1 g0 ima4 pid#1776) during
global destruction
! <> DESTROY for DBI::dr=HASH(0x1b54b2c) ignored (inner handle gone)
#! perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(
"dbi:ODBC:DEVCYGWIN",
"sa",
"dbcc_die",
{
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
}
);
my $sql = <<EOSQL;
backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
EOSQL
$dbh->{odbc_err_handler} =
sub {
# Make sure all fields are defined...
my($state, $msg) = map {defined() ? $_ : ""} @_;
my $info = "(state $state): $msg";
warn "Server message:\n$info\n";
return 0;
};
$dbh->do($sql);
DBI 1.42-ithread default trace level set to Ox9/0 (in pid 1804)
-> DBI->connect(dbi:ODBC:DEVCYGWIN, sa, ****, HASH(0x15d5468))
-> DBI->install_driver(ODBC) for MSWin32 perl=5.008004 pid=1804 ruid=0 euid=0
install_driver: DBD::ODBC version 1.09 loaded from C:/Perl/site/lib/DBD/ODBC.pm
New DBI::dr (for DBD::ODBC::dr, parent=, id=)
dbih_setup_handle(DBI::dr=HASH(0x1b54b64)=>DBI::dr=HASH(0x1bd9a0c), DBD::ODBC::dr,
0, Null!)
dbih_make_com(Null!, 0, DBD::ODBC::dr, 92, 0) thr#15d4574
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a0c), Err, Null!) SCALAR(0x1a4c6f4) (already
defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a0c), State, Null!) SCALAR(0x1a4c73c)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a0c), Errstr, Null!) SCALAR(0x1a4c718)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a0c), TraceLevel, Null!) 0 (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd9a0c), FetchHashKeyName, Null!) 'NAME'
(already defined)
<- install_driver= DBI::dr=HASH(0x1b54b64)
>> connect DISPATCH (DBI::dr=HASH(0x1b54b64) rc2/3 @5 g0 ima1 pid#1804) at
C:/Perl/site/lib/DBI.pm line 587
!! warn: 0 CLEARED by call to connect method
-> connect for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b64)~0x1bd9a0c 'DEVCYGWIN' 'sa'
**** HASH(0x1bd9d0c)) thr#15d4574
New DBI::db (for DBD::ODBC::db, parent=DBI::dr=HASH(0x1bd9a0c), id=)
dbih_setup_handle(DBI::db=HASH(0x1bd99d0)=>DBI::db=HASH(0x1bd9d78), DBD::ODBC::db,
1b548b8, Null!)
dbih_make_com(DBI::dr=HASH(0x1bd9a0c), 1bda504, DBD::ODBC::db, 220, 0) thr#15d4574
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), Err, DBI::dr=HASH(0x1bd9a0c))
SCALAR(0x1b5b6c4) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), State, DBI::dr=HASH(0x1bd9a0c))
SCALAR(0x1b5b724) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), Errstr, DBI::dr=HASH(0x1bd9a0c))
SCALAR(0x1b5b6f4) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), TraceLevel, DBI::dr=HASH(0x1bd9a0c)) 0
(already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), FetchHashKeyName,
DBI::dr=HASH(0x1bd9a0c)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), HandleSetErr, DBI::dr=HASH(0x1bd9a0c))
undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9d78), HandleError, DBI::dr=HASH(0x1bd9a0c))
undef (not defined)
Driver connect 'DEVCYGWIN', 'sa', 'dbcc_die'
SQLDriverConnect failed:
SQLConnect 'DEVCYGWIN', 'sa'
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed database context to
'master'.
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed language setting to
us_english.
Connected to: Microsoft SQL Server
SQLGetFunctions - SQL_MoreResults supported: 1
<- connect= DBI::db=HASH(0x1bd99d0) at C:/Perl/site/lib/DBI.pm line 587
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'RaiseError' 1)
thr#15d4574
DBD::ODBC unsupported attribute passed (RaiseError)
STORE DBI::db=HASH(0x1bd9d78) 'RaiseError' => 1
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'PrintError' 0)
thr#15d4574
DBD::ODBC unsupported attribute passed (PrintError)
STORE DBI::db=HASH(0x1bd9d78) 'PrintError' => 0
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'AutoCommit' 1)
thr#15d4574
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
C:/Perl/site/lib/DBI.pm line 634 via ./bad line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'Username' 'sa')
thr#15d4574
DBD::ODBC unsupported attribute passed (Username)
STORE DBI::db=HASH(0x1bd9d78) 'Username' => 'sa'
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 634 via ./bad line 7
>> FETCH DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @2 g0 ima404 pid#1804) at
C:/Perl/site/lib/DBI.pm line 634
<> FETCH= 'sa' ('Username' from cache) at C:/Perl/site/lib/DBI.pm line 634
<- connect= DBI::db=HASH(0x1bd99d0)
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
C:/Perl/site/lib/DBI.pm line 648 via ./bad line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'dbi_connect_closure'
CODE(0x1bce368)) thr#15d4574
DBD::ODBC unsupported attribute passed (dbi_connect_closure)
STORE DBI::db=HASH(0x1bd9d78) 'dbi_connect_closure' => CODE(0x1bce368)
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 648 via ./bad line 7
>> STORE DISPATCH (DBI::db=HASH(0x1bd9d78) rc2/1 @3 g0 ima41c pid#1804) at
./bad line 32
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER 'odbc_err_handler'
CODE(0x1bc03f8)) thr#15d4574
<- STORE= 1 at ./bad line 32
>> do DISPATCH (DBI::db=HASH(0x1bd99d0) rc1/1 @2 g0 ima3201 pid#1804) at
./bad line 34
-> do for DBD::ODBC::db (DBI::db=HASH(0x1bd99d0)~0x1bd9d78 'backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
') thr#15d4574
SQLExecDirect sql backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
<- do= -1 at ./bad line 34
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd99d0) rc1/1 @1 g0 ima4 pid#1804)
<> DESTROY ignored for outer handle DBI::db=HASH(0x1bd99d0) (inner
DBI::db=HASH(0x1bd9d78) has ref cnt 1)
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd9d78) rc1/1 @1 g0 ima4 pid#1804)
-> DESTROY for DBD::ODBC::db (DBI::db=HASH(0x1bd9d78)~INNER) thr#15d4574
DBD::ODBC Disconnected!
<- DESTROY= undef
DESTROY (dbih_clearcom) (dbh 0x1bd99d0, com 0x1bdb8ac, imp DBD::ODBC::db):
FLAGS 0x180291: COMSET Warn RaiseError PrintWarn AutoCommit
PARENT DBI::dr=HASH(0x1bd9a0c)
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1bd99d0 (com 0x1bdb8ac, type 2) done.
-- DBI::END
>> disconnect_all DISPATCH (DBI::dr=HASH(0x1b54b64) rc1/3 @1 g0 ima801 pid#1804)
at C:/Perl/site/lib/DBI.pm line 657 via ./bad line 0
-> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b64)~0x1bd9a0c) thr#15d4574
<- disconnect_all= '' at C:/Perl/site/lib/DBI.pm line 657 via ./bad line 0
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1bd9a0c) rc1/1 @1 g0 ima4 pid#1804) during
global destruction
! -> DESTROY for DBD::ODBC::dr (DBI::dr=HASH(0x1bd9a0c)~INNER) thr#15d4574
! <- DESTROY= (not implemented) during global destruction
DESTROY (dbih_clearcom) (drh 0x1b54b64, com 0x1bda504, imp global destruction):
FLAGS 0x180215: COMSET Active Warn PrintWarn AutoCommit
PARENT undef
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1b54b64 (com 0x1bda504, type 1) done.
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1b54b64) rc1/1 @1 g0 ima4 pid#1804) during
global destruction
! <> DESTROY for DBI::dr=HASH(0x1b54b64) ignored (inner handle gone)
