Purpose: Accumulate simple examples demonstrating the use of the [ Oratcl ] database library
A simple logon routine
package require Oratcl set lda [oralogon user/pass@dbname -async] set sth [oraopen $lda] set sql {select CUSTOMER_NAME from TICKETS} if {[oramsg $sth rc] == 0} { puts "Successfully connected" } else { puts "Unable to connect to the database." } oralogoff $lda