【文件属性】：
文件名称：对oracle操作-tcl脚本入门
文件大小：168KB
文件格式：PPT
更新时间：2021-04-25 00:10:26
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