Archive for 10月 21st, 2012

  1. Hello, JDBC Type4(Tcl/Java) World!

    Posted on 10月 21st, 2012 by cx20

    JDBC Type4

    JDBC（Java Database Connectivity）は、Java 用のデータベース接続 API である。実装方法によりType1～4の４つのタイプが存在する。
    Type4 は DBMS のクライアントライブラリを使用しない Pure Java の DBMS ドライバである。
    以下は Tcl/Java による JDBC ライブラリの使用例となっている。

    ソースコード（Tcl/Java + JDBC Type4 + SQL Server）

    Hello.tcl
    raw download
    package require java
java::import -package java.sql DriverManager
java::call Class forName "com.microsoft.sqlserver.jdbc.SQLServerDriver"
set conn [java::call DriverManager getConnection "jdbc:sqlserver://;serverName=localhost" "sa" "P@ssW0rd"]
set stmt [$conn createStatement]
set rs [$stmt executeQuery "SELECT 'Hello, JDBC Type4 World!' AS Message"]
while { [$rs next] } {
    puts [$rs {getString int} 1]
}
$rs close
$stmt close
$conn close

    実行方法（Tcl/Java + JDBC Type4 + SQL Server）

    C:¥> SET CLASSPATH=sqljdbc4.jar;%CLASSPATH%
C:¥> jaclsh Hello.tcl

    ソースコード（Tcl/Java + JDBC Type4 + Oracle）

    Hello.tcl
    raw download
    package require java
java::import -package java.sql DriverManager
java::call Class forName "oracle.jdbc.driver.OracleDriver"
set conn [java::call DriverManager getConnection "jdbc:oracle:thin:@localhost:1521:orcl" "scott" "tiger"]
set stmt [$conn createStatement]
set rs [$stmt executeQuery "SELECT 'Hello, JDBC Type4 World!' AS Message FROM DUAL"]
while { [$rs next] } {
    puts [$rs {getString int} 1]
}
$rs close
$stmt close
$conn close

    実行方法（Tcl/Java + JDBC Type4 + Oracle）

    C:¥> SET CLASSPATH=ojdbc6.jar;%CLASSPATH%
C:¥> jaclsh Hello.tcl

    ソースコード（Tcl/Java + JDBC Type4 + MySQL）

    Hello.tcl
    raw download
    package require java
java::import -package java.sql DriverManager
java::call Class forName "com.mysql.jdbc.Driver"
set conn [java::call DriverManager getConnection "jdbc:mysql://localhost:3306" "root" "P@ssW0rd"]
set stmt [$conn createStatement]
set rs [$stmt executeQuery "SELECT 'Hello, JDBC Type4 World!' AS Message"]
while { [$rs next] } {
    puts [$rs {getString int} 1]
}
$rs close
$stmt close
$conn close

    実行方法（Tcl/Java + JDBC Type4 + MySQL）

    C:¥> SET CLASSPATH=mysql-connector-java-5.1.22-bin.jar;%CLASSPAH%
C:¥> jaclsh Hello.tcl

    実行結果

    Hello, JDBC Type4 World!