Hola:
Tengo esta function que crea/devuleve un obj connection
para conectar con una base datos oracle.
function conectar()
Const server_oracle="URLORACLE"
Const usr_oracle="USR"
Const pwd_oracle="PWD"
Set conexion = Server.CreateObject("ADODB.Connection")
conexionStr = "DRIVER={Microsoft ODBC for
Oracle};SERVER="+server_oracle+";UID="+usr_oracle+ ";PWD="+p
wd_oracle+";"
conexion.Open conexionStr
conectarPostventa=conexion
end function
Tengo este otro codigo,
Dim conexionOracle
conexionOracle = conectar()
conexionOracle.Execute("DELETE FROM TABLA WHERE CONDICION")
if conexionOracle.Errors.Count <= 0 then
sentenciaSQL = "SELECT * FROM PV_SESIONS"
Set recordSet = Server.CreateObject("ADODB.RecordSet")
recordset.CursorType = adOpenStatic
recordSet.Open sentenciaSQL, conexionOracle%>
<br>
<%if (recordset.RecordCount > 0) then%>
<table align="center" border="1">
<caption>Listado Registros</caption>
<tr>
<%for i=0 to recordset.Fields.Count-1%>
<th><%= recordset.Fields(i).Name %></th>
<%next%>
</tr>
<%do until recordset.Eof
<tr>
<%for each valor in recordset.Fields
Response.write("<td>"+valor+"</td>")
next
recordset.MoveNext%>
</tr>
<%loop%>
</table>
<%else%>
....
en el que se llama a esta function, creando la conexion
llamada conexionOracle. Después hago un delete y después
un select.
Pues el delete no funciona, no lo hace, mientras que el
select si.
Es decir, la conexion funciona, pero parece que no permite
borrar, insertar (que tambien lo he probado),y supongo que
tampoco modificar.
¿Alguién sabe por qué?.
Muuuchas gracias por anticipado.
Tomahawk
