Hi all,
I'm new to the usage of the FreeTDS and DBD::Sybase combination.
I am seemingly able to connect to the DB correctly. It may perhaps
be as simple as my MSSQL syntax is failing? I have verified that
I am at all able to communicate correctly with the database by
using the tool "tsql" which work like a charm giving me the
expected results.
However, when executing the classical test PERL script to fetch
the server version:
--- snip ---
#!/usr/bin/perl
use DBI;
#DBI->trace(3);
$ENV{'SYBASE'} = '/usr' unless $ENV{'SYBASE'};
my $dbh = DBI->connect("dbi:Sybase:server=192.168.0.1", 'user',
'password', {PrintError => 0, AutoCommit => 0});
die "Unable to connect to server: $DBI::errstr" unless $dbh;
my ($src, $sth);
$sth = $dbh->prepare("SELECT [EMAIL PROTECTED]@Servername");
if($sth->execute) {
@dat = $sth-fetchrow;
print "@dat\n";
}
--- snip ---
I get very strange results. The output results in a number, eg:
136916248
and if I use the 'fetchrow' statement in a while loop, the list
of numbers continue endlessly until interupting with CTRL+C:
136916248
136916248
136916248
136916248
136916248
...
I noticed that the end part of the number changes for each
execution, indicating that it is perhaps time or session number
related?
The versions of each package I'm using are the following:
FreeTDS: v0.64
DBD::Sybase: v1.08
Perl: v5.8.8
MSSQL: 2005 on Win2k3
Distro: Gentoo
/etc/freetds.conf:
[SQLSERVER1]
host = 192.168.0.1
port = 1433
tds version = 8.0
the "$SYBASE=/usr" environment varable is set according to
my distro and was set when compiling DBD::Sybase.
The rest is default
Anyhow, to further help you in helping me I have included a
trace log below:
--- snip ---
DBI 1.601-nothread default trace level set to 0x0/3 (pid 13518) at
dbtest line 5
Note: perl is running without the recommended perl -w option
-> DBI->connect(dbi:Sybase:server=192.168.0.1, user, ****, HASH(0x8142180))
-> DBI->install_driver(Sybase) for linux perl=5.008008 pid=13518
ruid=0 euid=0
syb_init() -> DBD::Sybase 1.08 initialized
OpenClient version: freetds v0.64 (threadsafe, default tds version=7.0)
install_driver: DBD::Sybase version 1.08 loaded from
/usr/lib/perl5/site_perl/5.8.8/i686-linux/DBD/Sybase.pm
New 'DBI::dr' (for DBD::Sybase::dr, parent='', id=undef)
dbih_setup_handle(DBI::dr=HASH(0x81d547c)=>DBI::dr=HASH(0x81ce680),
DBD::Sybase::dr, 0, Null!)
dbih_make_com(Null!, 0, DBD::Sybase::dr, 84, 0) thr#0
<- install_driver= DBI::dr=HASH(0x81d547c)
!! warn: 0 CLEARED by call to connect method
-> connect for DBD::Sybase::dr (DBI::dr=HASH(0x81d547c)~0x81ce680
'server=192.168.0.1' 'user' **** HASH(0x81e1eec))
New 'DBI::db' (for DBD::Sybase::db,
parent=DBI::dr=HASH(0x81ce680), id=undef)
dbih_setup_handle(DBI::db=HASH(0x82941e0)=>DBI::db=HASH(0x829415c),
DBD::Sybase::db, 8217cc4, Null!)
dbih_make_com(DBI::dr=HASH(0x81ce680), 81cb8b0, DBD::Sybase::db,
2764, 0) thr#0
syb_db_login() -> using global CS_LOCALE data
syb_db_login() -> checking for chained transactions
syb_db_login() -> ct_option is supported
syb_db_login() -> chained transactions are supported
get_server_version() -> ct_command(select @@version)
get_server_version() -> ct_results(4040)
get_server_version() -> version = Microsoft SQL Server 2005 -
9.00.3042.00 (Intel X86)
Feb 9 2007 22:47:07
Copyright (c) 1988-2005 Microsoft Corporation
Standard Edition on Windows NT 5.2 (Build 3790: Service Pack 2)
get_server_version() -> version = Unknown
get_server_version() -> ct_results(4046)
<- connect= DBI::db=HASH(0x82941e0) at DBI.pm line 639
-> STORE for DBD::Sybase::db (DBI::db=HASH(0x829415c)~INNER 'PrintError' 0)
STORE DBI::db=HASH(0x829415c) 'PrintError' => 0
<- STORE= 1 at DBI.pm line 691
-> STORE for DBD::Sybase::db (DBI::db=HASH(0x829415c)~INNER 'AutoCommit' 1)
syb_db_commit() -> ct_command(
COMMIT TRAN
)
syb_db_commit() -> ct_send() OK
syb_db_commit() -> ct_results(4048) == 1
syb_db_commit() -> ct_results(4046) == 1
ERROR: 3902 'Server message number=3902 severity=16 state=1
line=2 server=SQLSERVER1 text=The COMMIT TRANSACTION request has no
corresponding BEGIN TRANSACTION.' (err#0)
<- STORE= 1 at DBI.pm line 691
-> STORE for DBD::Sybase::db (DBI::db=HASH(0x829415c)~INNER
'Username' 'user')
STORE DBI::db=HASH(0x829415c) 'Username' => 'user'
ERROR: 3902 'Server message number=3902 severity=16 state=1
line=2 server=SQLSERVER1 text=The COMMIT TRANSACTION request has no
corresponding BEGIN TRANSACTION.' (err#0)
<- STORE= 1 at DBI.pm line 694 via at dbtest line 7
ERROR: 3902 'Server message number=3902 severity=16 state=1
line=2 server=SQLSERVER1 text=The COMMIT TRANSACTION request has no
corresponding BEGIN TRANSACTION.' (err#0)
<> FETCH= 'user' ('Username' from cache) at DBI.pm line 694
-> connected in DBD::_::db for DBD::Sybase::db
(DBI::db=HASH(0x82941e0)~0x829415c 'dbi:Sybase:server=192.168.0.1'
'user' 'password' HASH(0x8142180))
ERROR: 3902 'Server message number=3902 severity=16 state=1
line=2 server=SQLSERVER1 text=The COMMIT TRANSACTION request has no
corresponding BEGIN TRANSACTION.' (err#0)
<- connected= undef at DBI.pm line 700
<- connect= DBI::db=HASH(0x82941e0)
-> STORE for DBD::Sybase::db (DBI::db=HASH(0x829415c)~INNER
'dbi_connect_closure' CODE(0x828c378))
STORE DBI::db=HASH(0x829415c) 'dbi_connect_closure' => CODE(0x828c378)
ERROR: 3902 'Server message number=3902 severity=16 state=1
line=2 server=SQLSERVER1 text=The COMMIT TRANSACTION request has no
corresponding BEGIN TRANSACTION.' (err#0)
<- STORE= 1 at DBI.pm line 709 via at dbtest line 7
!! ERROR: 3902 CLEARED by call to prepare method
-> prepare for DBD::Sybase::db (DBI::db=HASH(0x82941e0)~0x829415c
'SELECT @@Servername')
New 'DBI::st' (for DBD::Sybase::st,
parent=DBI::db=HASH(0x829415c), id=undef)
dbih_setup_handle(DBI::st=HASH(0x829439c)=>DBI::st=HASH(0x8294174),
DBD::Sybase::st, 8217f28, Null!)
dbih_make_com(DBI::db=HASH(0x829415c), 8294f50, DBD::Sybase::st,
420, 0) thr#0
syb_st_prepare() -> inUse = 0
syb_st_prepare() -> set inUse
<- prepare= DBI::st=HASH(0x829439c) at dbtest line 13
-> execute for DBD::Sybase::st (DBI::st=HASH(0x829439c)~0x8294174)
cmd_execute() -> ct_command() OK
cmd_execute() -> ct_send() OK
cmd_execute() -> set inUse flag
st_next_result() -> ct_results(4040) == 1
ct_res_info() returns 1 columns
STORE DBI::st=HASH(0x8294174) 'NUM_OF_FIELDS' => 1
describe() -> col 0, type 0, realtype 0
describe() retcode = 1
st_next_result() -> lasterr = 0, lastsev = 0
<- execute= -1 at dbtest line 15
136922012
<> DESTROY(DBI::st=HASH(0x829439c)) ignored for outer handle
(inner DBI::st=HASH(0x8294174) has ref cnt 1)
-> DESTROY for DBD::Sybase::st (DBI::st=HASH(0x8294174)~INNER)
syb_st_finish() -> ct_cancel(CS_CANCEL_ALL)
clear_sth_flags() -> resetting ACTIVE, moreResults, dyn_execed, exec_done
clear_sth_flags() -> reset inUse flag
syb_st_destroy: called on 82a7348...
syb_st_destroy(): freeing imp_sth->statement
syb_st_destroy(): cmd dropped: 1
<- DESTROY= undef
<> DESTROY(DBI::db=HASH(0x82941e0)) ignored for outer handle
(inner DBI::db=HASH(0x829415c) has ref cnt 1)
-> DESTROY for DBD::Sybase::db (DBI::db=HASH(0x829415c)~INNER)
syb_db_disconnect() -> ct_close()
<- DESTROY= undef
-- DBI::END ($@: , $!: )
-> disconnect_all for DBD::Sybase::dr (DBI::dr=HASH(0x81d547c)~0x81ce680)
<- disconnect_all= 1 at DBI.pm line 718 via at dbtest line 0
! -> DESTROY in DBD::_::common for DBD::Sybase::dr
(DBI::dr=HASH(0x81ce680)~INNER)
! <- DESTROY= undef during global destruction
! <> DESTROY for DBI::dr=HASH(0x81d547c) ignored (inner handle gone)
--- snip ---
According to my interpretation of the trace log, most seems to
be just fine...Or?
I've tried using the ODBC way through FreeTDS as well,
same results...Using Easysoft drivers and other commercial
products is not an option.
This is getting quite urgent and any help is appreciated.
Best regards
/Thomas
