Select Code to Download

  use DBI;
  use DBD::ODBC;
...
my ( $data_source, $database, $user_id, $password ) = qw( LocalHost tg
+ sa aaa );
my $conn_string = "driver={SQL Server};server=gz-datebase;database=tg;
+uid=sa;pwd=aaa";
my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;

DBI connect('driver={SQL Server};server=gz-datebase;database=tg;uid=sa
+;pwd=aaa
il','',...) failed:  at C:\DOCUME~1\gzcnc\LOCALS~1\Temp\dir70.tmp\t.pl
+ line 6
[Microsoft][ODBC SQL Server Driver][SQL Server]user 'GZ-DATEBASE\gzcnc
+' login failed
�B (SQL-28000)(DBD: db_login/SQLConnect err=-1) at C:\DOCUME~1\gzcnc\L
+OCALS~1\Te
mp\dir70.tmp\t.pl line 6.