URGENTE: ¿por qué no funciona?

Francisco
02 de Diciembre del 2002
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.

Francisco

visillac
02 de Diciembre del 2002
Te envie un e-mail por que no te entendi bien