Following example uses the sample database in the Oracle8i.

package require Oratcl

logon to POLITE database

set logstr "SYSTEM/NULL@ODBC:POLITE"
set logon [oralogon $logstr]

open statement handle

set h [oraopen $logon] 

call sql and output the result

orasql $h "select ename, job from emp order by job"
orafetch $h { puts [format "%s %s" @1 @2]}

close statement handle and logoff

oraclose $h
oralogoff $logon