Borrar registros FlexGrid (error)
Publicado por Dr0gNan (3 intervenciones) el 18/02/2007 18:45:52
Bien, he conseguido programar un boton para que me borre la fila seleccionada de un FlexGrid pero si borro todos los registros del FlexGrid (y de la tabla Passwords de Acess) me da un error:
Error 30015
No se puede quitar la ultima fila no fija.
Hay alguna forma para conseguir que se borren todos los registros?
Os pongo a continuacion como he hecho el borrado:
Private Sub cmdborraru_Click()
Dim res As String
With MSFlexGrid
If .Row <= 0 Then
MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation
Exit Sub
End If
El_dato = .TextMatrix(.Row, 1)
SQL = "DELETE * FROM Passwords WHERE usuario ='" & El_dato & "'"
res = MsgBox("Eliminar el Registro ?", vbQuestion + vbYesNo)
If res = vbYes Then
.RemoveItem (.RowSel)
bd.Execute SQL
.Redraw = False
rspassword.Requery
.Redraw = True
Else
Exit Sub
End If
End With
End Sub
Gracias! :D
Error 30015
No se puede quitar la ultima fila no fija.
Hay alguna forma para conseguir que se borren todos los registros?
Os pongo a continuacion como he hecho el borrado:
Private Sub cmdborraru_Click()
Dim res As String
With MSFlexGrid
If .Row <= 0 Then
MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation
Exit Sub
End If
El_dato = .TextMatrix(.Row, 1)
SQL = "DELETE * FROM Passwords WHERE usuario ='" & El_dato & "'"
res = MsgBox("Eliminar el Registro ?", vbQuestion + vbYesNo)
If res = vbYes Then
.RemoveItem (.RowSel)
bd.Execute SQL
.Redraw = False
rspassword.Requery
.Redraw = True
Else
Exit Sub
End If
End With
End Sub
Gracias! :D
Valora esta pregunta


0