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:oci:@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