My question has been answered: $dbh = DBI->connect($data_source, $username, $password, 'Sybase')
is deprecated, I should be using: $dbh = DBI->connect($data_source, $username, $password) > -----Original Message----- > From: Russell Kroboth [mailto:[EMAIL PROTECTED] > Sent: Thursday, February 27, 2003 12:14 PM > To: [EMAIL PROTECTED] > Subject: Problem with "update" statement > > > I am having a problem using the UPDATE statement in a Perl > program, this > program does not update the field as expected: > > #!/usr/bin/perl > use DBI; > require "DBconnect.cgi"; > $dbh = DBI->connect($data_source, $username, $password, > 'Sybase') || die > &DBerror; > $dbh->do("use Partners") || die &DBerror; > $sql="UPDATE deals SET accountno = 'somethingelse' WHERE > hotdealnum=15"; > $rows=$dbh->do($sql) || die &DBerror; > print "$rows affected\n"; > exit; > > result: "-1 rows affected" > > > However if I use a different query it works. For example, the > following > script works fine, so I know that the SQL commands are being > passed and > executed by the script: > > #!/usr/bin/perl > use DBI; > require "DBconnect.cgi"; > $dbh = DBI->connect($data_source, $username, $password, > 'Sybase') || die > &DBerror; > $dbh->do("use Partners") || die &DBerror; > $sql="SELECT accountno FROM deals WHERE hotdealnum = 15"; > $sth=$dbh->prepare($sql) || die &DBerror; > $sth->execute() || die &DBerror; > $hashref=$sth->fetchrow_hashref(); > print "Value is ".$hashref->{'accountno'}."\n"; > $sth->finish(); > exit; > > result: works as expected, can verify looking at actual value using > enterprise manager. > > > I tried the same query (UPDATE CVB_hotdeals SET accountno = > 'somethingelse' > WHERE hotdealnum=15) and it worked fine. > > I also tried the query using isql to make sure my Freetds > driver seemed to > be working, and the query worked. > > I am using unixodbc , freeTDS, DBD:Sybase > > Any feedback would be appreciated! Thanks! > > -Rusty > >
