develop:perl:mssql

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

--- develop:perl:mssql [2011/11/14 10:04]
starlits [예제코드로 테스트 하기]
+++ develop:perl:mssql [2011/11/14 10:55] (현재)
starlits [Perl을 이용하여 MS SQL Server 활용하기]
@@ 줄 1: / 줄 1: @@
-====== Debian Linux에서 MS SQL Server 접근하기 ======
+====== Perl을 이용하여 MS SQL Server 연동하기 ======
 ===== Installation =====
@@ 줄 18: / 줄 18: @@
+===== Configuration =====
+  - freetds.conf 파일은 연다.
+    - 데비안 패키지인 경우에는 /etc/freetds/freetds.conf 이며, 소스로 설치되어 있을 경우에는 소스 설정 경로는 참조한다.
+  - 필요한 경우에만 아래의 주석을 해제한다. <code>
+try server login = yes
+try domain login = no
+tds version = 7.0
+</code>
+  - 맨 아래 부분에 Microsoft SQL Server 설정을 한다. <code>
+[admindb]
+        host = 192.168.100.2
+        port = 1433
+        tds version = 8.0
+</code>
+  - 설정이 정상적으로 되었는지 command-line 툴인 tsql 을 이용하여 확인한다. <code>
+$ tsql -S admindb -U mssql_username
+$ tsql -S admindb -U mssql_username -P mssql_password
+</code>
 ===== Example =====
-  * [[develop:perl:oracle| DBI를 이용하여 Oracle 연동하기]] 를 참조한다.
+  - 샘플소스를 만들어보자 <code perl>
+#!/usr/bin/perl
+use DBI;
+$dsn = 'DBI:Sybase:server=admindb';
+my $dbh = DBI->connect($dsn, "mssql_username", "mssql_password");
+  die "unable to connect to server $DBI::errstr" unless $dbh;
+$dbh->do("use mssql_database");
+$query = "SELECT * FROM scott";
+$sth = $dbh->prepare ($query) or die "prepare failed\n";
+$sth->execute( ) or die "unable to execute query $query   error $DBI::errstr";
+while ( @first = $sth->fetchrow_array ) {
+   foreach $field (@first) {
+      print "field: $field\n";
+   }
+}
+$dbh->disconnect;
+</code>
+  - [[develop:perl:oracle| DBI를 이용하여 Oracle 연동하기]] 도 참조해 보자.
@@ 줄 33: / 줄 78: @@
 ===== Reference =====
   - http://www.freetds.org/
+  - http://www.perlmonks.org/?node_id=392385
   - http://www.peppler.org/freeware/dbd-sybase.html

develop/perl/mssql.1321232664.txt.gz · 마지막으로 수정됨: 2011/11/14 10:04 저자 starlits