dbi

I have a user id, password, database name and datasource details. I want to connect with Perl to a MSSQL server. I just used the following snippet, but I am getting an error. #!/usr/bin/perl -w use strict; use DBI; my $data_source = q/dbi:ODBC:192.168.3.137/; my $user = q/bharani/; my $password = q/123456/; # Connect to the data source and get a handle for that connection. my $dbh = DBI->connect($data_source, $user, $password) or die "Can't connect to $data_source: $DBI::errstr"; My error is: DBI connect('192.168.3.137','bharani',...) failed: [Microsoft][ODBC Driver Manager] Data source name

Note: I have corrected the variable differences and it does print the query from the first set but it returns nothing from the second set. If I use the second set only it works. In the code below, I have some_array which is array of array the array contains text like name. So @some_array= ([sam, jon, july],[Mike, Han,Tommy],[angie, sita, lanny]); Now when I querying the list like 'sam jon july' first and 'mike han tommy' . Only the execute return the result from the first list others is undef. I don't know why any help will be appreciated. my $pointer; my $db = $db->prepare_cached(" begin

Been dealing with this since 2011. Usually able to work around it. Now a situation has arisen where I really need to be able to handle errors, and I'm thinking, people have known about this problem for years, it seems like the sort of thing high up on the fix list, but the latest DBI upgrade and the problem still has not been resolved. Has anyone found a work-around, or know how to hack the libraries and get DBI::errstr to carry a value when there is an error? Here's my code (And yes I am aware of the problems w/ a blank root password): use strict; use DBI; use DBD::mysql; use Data::Dumper; my

I'm writing a perl script in which I've to shutdown my mssql server ,do some operation and then I've to restart it.I know 1 way is to use netstat to stopt the service but I cann't use that. So I tried installing DBI and DBD::ODBC module.I'm able to connect and execute queries by following code use DBI; my $data_source = q/dbi:ODBC:AUTOMATION_WOW64/; my $user = q/pa/; my $password = q/DCE/; # Connect to the data source and get a handle for that connection. my $dbh = DBI->connect($data_source, $user, $password) or die "Can't connect to $data_source: $DBI::errstr"; my $str=$dbh->prepare("select

I am trying to make a call to a stored procedure from with in a transaction in its simplified form: my $dbh= DBI->connect(............ ); my $sth = $dbh->prepare("call sp_get_workitems (1,1)"); $dbh->begin_work or die $dbh->errstr; $sth->execute(); my ($result)= $sth->fetchrow_array(); $dbh->commit; this gives the following error : DBD driver has not implemented the AutoCommit attribute If I replace the begin_work statement with $dbh->{'AutoCommit'} = 0; (before or after the prepare), I get this error: DBD::mysql::db commit failed: Commands out of sync; you can't run this command now If I

#!/usr/bin/env perl use warnings; use strict; use DBI; my $dbh = DBI->connect( "DBI:CSV:", '', '', { RaiseError => 1 } ) or die DBI->errstr; my $table = 'my_test_table_1.csv'; $dbh->do( "CREATE TEMP TABLE $table( id INTEGER, name CHAR(64) )" ); my $sth = $dbh->prepare( "INSERT INTO $table ( id, name ) VALUES( ?, ? )" ); $sth->execute( 1, 'Ruth' ); $sth->execute( 2, 'John' ); $sth->execute( 3, 'Nena' ); $sth->execute( 4, 'Mark' ); $sth = $dbh->prepare( "SELECT * FROM $table WHERE id > ? LIMIT ?" ); $sth->execute( 1, 2 ); $sth->dump_results; # Bad limit clause! at /usr/local/lib/perl5/site_perl