Access - Recordset solo lectura

 
Vista:

Recordset solo lectura

Publicado por Nattanahel Chaves Moya (1 intervención) el 16/10/2002 18:02:37
Estoy haciendo un formulario directamente desde Access para que borre unos registros de una tabla intermedia (Adjunto el código). La consulta SQL Funciona bien, pero luego al hacer el rs.delete access me dice que no puede porque es "SOLO LECTURA". ¿Cómo hago para que el recordset sea también de escritura para que me permita borrar una vez que hice la consulta?

Agradeceré toda la ayuda que me puedan brindar.

-------Código------

Private Sub Comando8_Click()
Dim db As Database
Dim rs As Recordset
Dim sql As String

If Lista0.ListIndex < 0 Then
MsgBox "Debe seleccionar algún centro de la lista"
Else
Set db = OpenDatabase("Hmédico.mdb") 'Busca la base de datos HMedico
MsgBox Lista0.Value
sql = "SELECT historiaxcentro.codhistoria, historiaxcentro.codcentro "
sql = sql & "from historiaxcentro, centros where historiaxcentro.codcentro=centros.codcentro "
sql = sql & "and descripcion='" & Lista0.Value
sql = sql & "' and historiaxcentro.codhistoria='" & Texto0.Value & "'"
MsgBox sql
Set rs = db.OpenRecordset(sql)
If Not rs.EOF Then
rs.Delete
Else
MsgBox "la consulta es 0"
End If
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Recordset solo lectura

Publicado por Luis Fdo Melo (323 intervenciones) el 16/10/2002 21:01:14
Hola
Si necesitas solo borrar de la tabla historiacentros, no inclyas la tabla centros en la consulta, ya que es innecesario... si el campos descripción que apecere en el SQL es la descripción del Centro, te recomiento que hagas la busqueda por el codigo del centro...

Para tener un resgitros modificable.... haga lo siguiente
set Rs = db.openrecordset(sql,dbOpenDynaset)

Para una mayor eficiecnai en tu elimnación usa un SQL de eliminación directoamenet y no trabajes con Recordset
ejempl:
sql="Select from MYTABLA where " & myCondicional
db.excete sql

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar