前会社でSql Server へPerlからアクセスしたときのメモ。
ちなみに今回はActive PerlからDBIモジュールを使用してのメモ。
- Sql Server を構築する（これは適当に作成する。）
-
perlのモジュールでDBD：：ODBCを入れる。
- これで終了。(DBIモジュールはインストール済みの場合)
サンプルソース
use DBI;
my $Server = "サーバー名";
my $DBConnect = "データベース名";
$dataSource = "dbi:ODBC:".
"driver={SQL Server};".
"Server=$Server;database=$DBConnect;".
"Trusted_Connection=no;". # yesだとWindows認証
"AutoTranslate=No;";
#データベースに接続
$user="tuser"; #ユーザ名
$pwd="tuser"; #パスワード
$dbh=DBI->connect($dataSource,$user,$pwd)
or die $DBI::errstr;
