Oratcl Examples
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
|