下面是我数据库的连接文件<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConnSub ConnectOracleDB()
On Error Resume Next
strDbUser = "数据库用户"
strDbPwd = "数据库密码"
strDbConn = "数据库名称"
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) If Err.Number>0 Then
Response.Write "<font color=red>错误 :" & err.description & "</font>"
Response.End
End If
End Sub
Sub EndOracleDB()
Set objOraDB = Nothing
Set objOraSession = Nothing
End Sub
%>strSql 是我的sql语句,然后我使用以下两句执行,都报错
objOraDb.dbEXECUTESQL(strSql)
objOraDb.DbCreateDynaset(strSql)
错误来源: Microsoft VBScript 运行时错误
错误代码: 438
错误说明: 对象不支持此属性或方法请问该如何写sql执行语句。
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConnSub ConnectOracleDB()
On Error Resume Next
strDbUser = "数据库用户"
strDbPwd = "数据库密码"
strDbConn = "数据库名称"
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) If Err.Number>0 Then
Response.Write "<font color=red>错误 :" & err.description & "</font>"
Response.End
End If
End Sub
Sub EndOracleDB()
Set objOraDB = Nothing
Set objOraSession = Nothing
End Sub
%>strSql 是我的sql语句,然后我使用以下两句执行,都报错
objOraDb.dbEXECUTESQL(strSql)
objOraDb.DbCreateDynaset(strSql)
错误来源: Microsoft VBScript 运行时错误
错误代码: 438
错误说明: 对象不支持此属性或方法请问该如何写sql执行语句。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货