URGENTE: ¿por qué no funciona?
Publicado por Francisco (3 intervenciones) el 28/11/2002 09:23:32
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%>
'tratamiento del recordset
....
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
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%>
'tratamiento del recordset
....
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
Valora esta pregunta


0