I was able to fix the errors. The first error was because I had two separate values going in one bind "$date $time". I used a temp variable to store them and that worked. The second erorr was due to the string I was trying to Bind for the 1st value, it had "\" in it and that causing the string failure. See the revised code that works fine. Thanks for your help.
my $temp_date = $date.' '.$time; if($DB_insert =~ /true/i) { my $DSN = "driver={SQL Server};server=$server_name;database=$datab +ase_name;uid=$database_user;pwd=$database_pass;"; eval { my $dbh = DBI->connect("dbi:ODBC:$DSN"); DBI->trace(2,'C:\db_test_log.txt'); if (!$dbh) { #testing connection to DB print "Could not connect to database: $DBI::errstr"; } my $sql = "INSERT INTO RecordCount VALUES (?,?,?,?,?,?)"; my $sth = $dbh->prepare($sql); $sth->bind_param(1, $env); $sth->bind_param(2, $partner); $sth->bind_param(3, $id); $sth->bind_param(4, $filename); $sth->bind_param(5, $temp_date); $sth->bind_param(6, $line_count); $sth->execute(); $dbh->disconnect(); }; if($@) { print "DB Failure: $@"; } }
In reply to Re^3: DB Exception Handling
by sowais
in thread DB Exception Handling
by sowais
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |