DBIを使用してSQL Serverに接続

Question

Perlスクリプトを使用してMS SQLサーバーに接続しようとしています。ここにコードがあります。

#!/usr/bin/perl 
use strict; 
use warnings; 

use DBI; 

#my $dbfile = "sample.db"; 

my $dsn  = "dbi:ODBC:SQLServer:dpnsql"; 
my $user  = "xxx"; 
my $password = "******"; 
my $dbh = DBI->connect($dsn, $user, $password, 
{ 
    PrintError  => 0, 
    RaiseError  => 1, 
    AutoCommit  => 1, 
    FetchHashKeyName => 'NAME_lc', 
} 
); 


$dbh->disconnect; 

しかし、私はこの問題で私を助けてください

以下のようにエラーを取得しています。新しいコードもありがとうございます。

TIA

Answer 1

エラーは、データソース名が見つかりませんでした。

あなたのdsnが間違っていることを意味します。

x64サーバーで作業している場合は、x86およびx64アプリケーション用に異なるODBC設定があることに注意してください。 [参照：https://stackoverflow.com/a/5034297/257635]

正しいDSNで以下の構文を試してみてください。

my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=<IP>;UID=$user;PWD=$password", 
    { 
     PrintError  => 0, 
     RaiseError  => 1, 
     AutoCommit  => 1, 
     FetchHashKeyName => 'NAME_lc', 
    } 
);