This code can't compile.
You are missing a semicolon after use DBD::ODBC
and after my $sql ... and some variables don't match with their declaration ($user $userid, $connect_string $conn_string). You didn't declare $sth and $count.
Moreover, you are assigning the result of fetchrow_hashref
to an array.
You should read Reading from a database to get started
with the DBI, and maybe some of the more basic Tutorials
to use the language more proficiently.
And, please, use CODE tags when you post your code.
Update
Here is your code a little bit better formatted. I won't guarantee that it does what you want, but at least it compiles without errors.
use strict;
use DBI;
#use DBD::ODBC ;
my ($data_source, $database, $userid, $password) =
qw( server webdb webdev webdevpass );
my $connect_string =
"driver={SQL Server};Server=$data_source;Database=$database;UID=$useri
+d;PWD=$password";
my $dbh = DBI ->connect ( "DBI:ODBC:host=localhost;$connect_string" )
or die $DBI::errstr;
my $sql = "select name, wins, losses from teams";
my $sth = $dbh->prepare ( $sql );
$sth->execute;
my $count = 0;
while (my @val = $sth->fetchrow_array ) {
printf "name =%s, wins =%d, losses = %d\n",
$val[0], $val[1], $val[2];
++$count;
}
print "$count rows total\n";
$dbh->disconnect ();
I changed your code to use fetchrow_array instead of fetchrow_hashref.
You really need to read some docs. The DBI documentation (perldoc DBI) will give you good references on how to use things. The tutorial I have mentioned above is a good start. It is true that it uses MySQL, but using DBI, the only thing that is (in principle) different is only the connection statement. After that, the methods are the same.
Good luck.
|