oo4o吧,程序是用vb写的,机器上面没有装,所以代码考不出来。。
解决方案 »
- oracle导入问题
- hql生成的SQL语句查询结果与HQL查询结果不同?
- 请问PL/SQL怎么判断2个字符串变量是否相等
- 请问DATEADD(hh,DATEDIFF(hh,0,dateadd(hh,7-datepart(hh,getdate()),getdate())),0))也就定位到当天的早上7点,在oracle中怎么表达?
- 一个极其奇怪的错误(A component named Field58 already exists!!)
- 如何高效查询15000000记录的表
- 需要用程序读取oracle中存储过程的参数个数和类型以及是输入还是输出,如何?
- ORA-03127: 在活动操作结束之前不允许进行新的操作
- 中文问题
- 请教:哪里有关于ORACLE数据库安装、备份和恢复的文档,请尽快告知网址
- 感谢大虾给指点一下-----为什么不能启动数据库?net8?console为何有时进不去?
- 请问各位高手,为什么我执行数据库链的查询会有如此错误?(在线等)
2、用asp做一函数。
暂时没有源码
<%@ Language=VBScript %>
<% dim dbname
dim cnuser
on error resume next
dbname = "xuna"
cnuser = "xuna/xuna*"
'** oo4o
if isempty(session("OraSession")) then
Set session("OraSession") = Server.CreateObject("OracleInProcServer.XOraSession")
if err <> 0 then
response.write("<P>database erro <BR>" _
& "CreateObject - Oracle oo4o erro</P>")
end if
end if if isempty(session("OraDatabase")) then
Set session("OraDatabase") = session("OraSession").OpenDatabase(dbname, cnuser, ORADB_DEFAULT)
if err <> 0 then
response.write("<P>データベースに接続出来ません。<BR>" _
& err & ": " & error & "</P>")
end if
end if on error goto 0 if RdbShori() then
response.write("<P>-- RDB 更新正常終了 --</P>")
end iffunction RdbShori()
RdbShori = FALSE on error resume next
session("OraDatabase").LastServerErrReset session("OraSession").BeginTrans session("OraDatabase").ExecuteSQL "insert into test_st values " _
& "(9999, 'Peter')"
if err <> 0 or session("OraDatabase").LastServerErr <> 0 then
session("OraSession").Rollback
response.write("<P>RDB 更新1 に失敗しました。<BR>" _
& err & ": " & error & "<BR>" _
& "oo4o: " & session("OraDatabase").LastServerErrText & "</P>")
exit function
end if
session("OraSession").CommitTrans on error goto 0
RdbShori = TRUEend function
%>
[email protected]