perl - 如何使用 Perl 连接到 SQL Server？

Question

我有用户 ID、密码、数据库名称和数据源详细信息。我想用 Perl 连接到 MSSQL 服务器。我刚刚使用了以下代码片段，但收到错误。

#!/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";

我的错误是:

DBI connect('192.168.3.137','bharani',...) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002) at my sqlconnect.pl line 14
Can't connect to dbi:ODBC:192.168.3.137: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002) at mysqlconnect.pl line 14.

SQL 服务器在另一个系统上运行，我只是尝试连接上述详细信息。请告诉我，我应该在系统中添加 DSN，还是我的程序中缺少任何内容？

Answer 1

连接字符串中 'dbi:ODBC:' 后面的所有内容都会传递到 ODBC 驱动程序。对于 MSSQL，请尝试以下连接字符串:

DBI->connect("dbi:ODBC:Driver={SQL Server};Server=192.168.3.137;UID=$user;PWD=$password")

您可以在 connectionstrings.com 上找到更多替代方案