Buenas a todos... a ver si alguien me puede ayudar...
En una pagina web, quiero que al cargarse me borre los registros que contiene una tabla, a la que posteriormente añadire otros en su caso.
Unicamente quiero eso... el borrado de todos los datos.
Utilizo Dreamweaver y he añadido el codigo insertado entre asteriscos..
No me funciona y entiendo que si debe hacerlo....
<%
Dim RSINFORMEPGR
Dim RSINFORMEPGR_numRows
Set RSINFORMEPGR = Server.CreateObject("ADODB.Recordset")
RSINFORMEPGR.ActiveConnection = MM_ConectaRRLL_STRING
RSINFORMEPGR.Source = "SELECT * FROM VERINFORMEPGR"
RSINFORMEPGR.CursorType = 0
RSINFORMEPGR.CursorLocation = 2
RSINFORMEPGR.LockType = 1
RSINFORMEPGR.Open()
RSINFORMEPGR_numRows = 0
' *********************************
RSINFORMEPGR.MoveFirst
while (Not RSINFORMEPGR.EOF)
RSINFORMEPGR.Delete
RSINFORMEPGR.MoveNext
Wend
' ***********************************
%>
El mensaje de error es el siguiente:
************************************************** *****
ADODB.Recordset error '800a0cb3'
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.
/RRLL/PIRYPGR/VerPgr.asp, line 305
************************************************** ******
La linea 305 corresponde a -------> RSINFORMEPGR.Delete
Alguien me puede hechar una mano....
Gracias y Saludos.......