文件名称：对oracle操作-tcl脚本入门
文件大小：168KB
文件格式：PPT
更新时间：2024-05-14 17:57:06
tcl 脚本 入门
对oracle操作 初始化及连接 load libOratcl25.so set dbuser "aiobs5/obs5ai@AIOBS5" if {[catch {oralogon $dbuser} logon]} { puts "connected failed,check your oracle user name and password" exit 1 } if {[catch {oraopen $logon} DBHandle ]} { puts "open cursor failed" exit 1 } if {[catch {oraopen $logon} DBHandle2 ]} { ;#可以开多个事务 puts "open cursor failed”; exit 1 } set DBSQL orasql set DBNEXT orafetch set DBCOMMIT oracommit set DBCLOSE oraclose