What's wrong with my "DBI" code? I can NOT connect to the SQL server.
If you find my mistake, PLEASE be specific as possible with the syntax, please? (Even down to if I'm using the curley brackets correctly or not.)
I've been using DBI::Oracle for 2 years now, and have never seen a problem - but I just can't seem to use DBI to connect to the SQL server.
Thanks In Advance!
# Normal Perl Intro, /perl/bin/perl stuff goes here.
#
#
# Let The Users Know There Was A Problem
my $Error_Message = "\nThere Was A Problem Connecting To The Database\n";
my $q = new CGI;
use CGI;
# The Below Line - Takes Care Of Letting The User Know There Was An Error In The Web-Page!
use CGI::Carp (fatalsToBrowser);
use DBI;
# The Below Line Is Not Needed, Correct?
# use DBD::ODBC;
#
# print $q->header;
$dbusername = 'domain\user.name';
$dbpassword = 'password_here';
$server = 'server_name_here';
$database = 'Northwind';
$dbh = DBI->connect("DBI:ODBC:dri
ver={SQL Server};Server=$server;Dat
abase=$dat
abase;UID=
$dbusernam
e;PWD=$dbp
assword") || die "$Error_Message $DBI::errstr";
die $DBI::errstr if ($DBI::errstr);
$sql_statement = ('select * from northwind.employees');
$statementHandle = $dbh->prepare($sql_stateme
nt);
$statementHandle->execute(
)||die $statementHandle->errstr;
while (($cat1) = $statementHandle->fetchrow
_array )
{
print $cat1."\n";
}
$statementHandle->disconne
ct();
====================
Here Are My Errors Reported
====================
[Fri Oct 28 13:18:24 2005] test_mssql.cgi:
[Fri Oct 28 13:18:24 2005] test_mssql.cgi: There Was A Problem Connecting To The Database
[Fri Oct 28 13:18:24 2005] test_mssql.cgi: [Microsoft][ODBC SQL Server Driver]Client unable to establish connection (SQL-08001)
[Fri Oct 28 13:18:24 2005] test_mssql.cgi: [Microsoft][ODBC SQL Server Driver][Named Pipes]ConnectionOpen (CreateFile()). (SQL-01000
)(DBD: db_login/SQLConnect err=-1) at test_mssql.cgi line 54.
Start Free Trial