I posted this yesterday on the Win32-database list and got no response. Can
anyone help with this problem?
I am trying to debug this script of mine, but I cannot seen to understand
why I get the following error...
"Tk::Error: Can't locate object method "new" via package "XBase" at
C:/Perl/site/lib/DBD/XBase.pm line 327."
This application worked under 628. I recently wiped my AS perl build 628
and installed build 804. I then used the VPM and installed these two
modules, so I believe I have the current versions as there are no updates
available. Anyone have any thoughts? Thanks for any assistance.
__BEGINSNIP__
DBI->trace(1);
my $OUTdbh = DBI->connect('dbi:XBase:' . cwd()) or die "Cannot Connect to
XBase DB: $DBI::errstr\n";
print "(BuildTemporaryDatabase) Connect XBase\n";
#unlink cwd() . $OUTtable . '.dbf' or die "Cannot Drop Table $OUTtable:
$!\n" if (-f cwd() . $OUTtable . '.dbf') ; #Drop the XBase table if it
exists
my $DROPsth = $OUTdbh->prepare("DROP TABLE $OUTtable") or warn "Table
doesn't Exist: $DBI::errstr\n";
$DROPsth->execute or die "Table Doesn't Exist and cannot drop:
$DBI::errstr\n";
DBI->trace(0);
__ENDSNIP__
__BEGINTRACE__
DBI 1.30-ithread dispatch trace level set to 3
Note: perl is running without the recommended perl -w option
-> DBI->connect(dbi:XBase:C:/Documents and
Settings/Adam/Desktop/tycoproj/RemoteSI, , ****)
-> DBI->install_driver(XBase) for MSWin32 perl=5.008 pid=168 ruid=0
euid=0
install_driver: DBD::XBase version 0.231 loaded from
C:/Perl/site/lib/DBD/XBase.pm
New DBI::dr (for DBD::XBase::dr, parent=, id=)
dbih_setup_handle(DBI::dr=HASH(0x1d2c844)=>DBI::dr=HASH(0x1d2cf04),
DBD::XBase::dr, 0, Null!)
dbih_make_com(Null!, DBD::XBase::dr, 172) thr#2243ac
<- install_driver= DBI::dr=HASH(0x1d2c844)
-> default_user in DBD::_::dr for DBD::XBase::dr
(DBI::dr=HASH(0x1d2c844)~0x1d2cf04 undef undef HASH(0x2c720dc)) thr#2243ac
<- default_user= ( undef undef ) [2 items] at DBI.pm line 500 via
C:/Perl/site/lib/Tk.pm line 228
-> connect (StartReport) Report Value: Shipto
for DBD::XBase::dr (DBI::dr=HASH(0x1d2c844)~0x1d2cf04 'C:/Documents and
Settings/Adam/Desktop/tycoproj/RemoteSI' undef **** HASH(0x2c720dc))
thr#2243ac
New DBI::db (for DBD::XBase::db, parent=DBI::dr=HASH(0x1d2cf04), id=)
dbih_setup_handle(DBI::db=HASH(0x1d2cee0)=>DBI::db=HASH(0x1d2cdf0),
DBD::XBase::db, 1d2cba4, Null!)
dbih_make_com(DBI::dr=HASH(0x1d2cf04), DBD::XBase::db, 172) thr#2243ac
<- connect= DBI::db=HASH(0x1d2cee0) at DBI.pm line 503 via
C:/Perl/site/lib/Tk.pm line 228
-> STORE for DBD::XBase::db (DBI::db=HASH(0x1d2cdf0)~INNER 'PrintError'
1) thr#2243ac
STORE DBI::db=HASH(0x1d2cdf0) 'PrintError' => 1
<- STORE= 1 at DBI.pm line 545 via C:/Perl/site/lib/Tk.pm line 228
-> STORE for DBD::XBase::db (DBI::db=HASH(0x1d2cdf0)~INNER 'AutoCommit'
1) thr#2243ac
<- STORE= 1 at DBI.pm line 545 via C:/Perl/site/lib/Tk.pm line 228
<- connect= DBI::db=HASH(0x1d2cee0)
-> prepare for DBD::XBase::db (DBI::db=HASH(0x1d2cee0)~0x1d2cdf0 'DROP
TABLE CBSAL') thr#2243a(BuildTemporaryDatabase) Report Value: Shipto
(BuildTemporaryDatabase) Connect CSV
(BuildTemporaryDatabase) Connect XBase
c
New DBI::st (for DBD::XBase::st, parent=DBI::db=HASH(0x1d2cdf0), id=)
dbih_setup_handle(DBI::st=HASH(0x1d2cec8)=>DBI::st=HASH(0x1d2ce2c),
DBD::XBase::st, 1d2ce5c, Null!)
dbih_make_com(DBI::db=HASH(0x1d2cdf0), DBD::XBase::st, 172) thr#2243ac
<- prepare= DBI::st=HASH(0x1d2cec8) at currentmonthbooked.pl line 408
via C:/Perl/site/lib/Tk.pm line 228
-> execute for DBD::XBase::st (DBI::st=HASH(0x1d2cec8)~0x1d2ce2c)
thr#2243ac
<> DESTROY ignored for outer handle DBI::st=HASH(0x1d2cec8) (inner
DBI::st=HASH(0x1d2ce2c))
-> DESTROY for DBD::XBase::st (DBI::st=HASH(0x1d2ce2c)~INNER) thr#2243ac
<- DESTROY= undef at perl5db.pl line 1503 via C:/Perl/site/lib/Tk.pm
line 340
<> DESTROY ignored for outer handle DBI::db=HASH(0x1d2cee0) (inner
DBI::db=HASH(0x1d2cdf0))
-> DESTROY for DBD::XBase::db (DBI::db=HASH(0x1d2cdf0)~INNER) thr#2243ac
<- DESTROY= undef at perl5db.pl line 1503 via C:/Perl/site/lib/Tk.pm
line 340
<> DESTROY ignored for outer handle DBI::db=HASH(0x1d2c7c0) (inner
DBI::db=HASH(0x1c89a14))
-> DESTROY in DBD::File::db for DBD::CSV::db
(DBI::db=HASH(0x1c89a14)~INNER) thr#2243ac
<- DESTROY= undef at perl5db.pl line 1503 via C:/Perl/site/lib/Tk.pm
line 340
Tk::Error: Can't locate object method "new" via package "XBase" at
C:/Perl/site/lib/DBD/XBase.pm line 327.
[\&main::__ANON__[C:\Documents and
Settings\Adam\Desktop\tycoproj\RemoteSI\currentmonthbooked.pl:157]]
Tk callback for .button1
Tk::__ANON__[C:/Perl/site/lib/Tk.pm:228] at C:/Perl/site/lib/Tk.pm line 228
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 113
(command bound to event)
-- DBI::END
-> disconnect_all in DBD::File::dr for DBD::CSV::dr
(DBI::dr=HASH(0x1e121ac)~0x1d2c0dc) thr#2243ac
<- disconnect_all= undef at DBI.pm line 565
-> disconnect_all for DBD::XBase::dr (DBI::dr=HASH(0x1d2c844)~0x1d2cf04)
thr#2243ac
<- disconnect_all= 1 at DBI.pm line 565
-> DESTROY in DBD::File::dr for DBD::CSV::dr
(DBI::dr=HASH(0x1d2c0dc)~INNER) thr#2243ac
<- DESTROY= undef at currentmonthbooked.pl line 1505 during global
destruction
-> DESTROY in DBD::_::common for DBD::XBase::dr
(DBI::dr=HASH(0x1d2cf04)~INNER) thr#2243ac
<- DESTROY= undef at currentmonthbooked.pl line 1505 during global
destruction
<> DESTROY for DBI::dr=HASH(0x1e121ac) ignored (inner handle gone)
<> DESTROY for DBI::dr=HASH(0x1d2c844) ignored (inner handle gone)
__ENDTRACE__
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
