RE:Modificar y eliminar datos
Capte... Estamos hablando de Base de Datos Nativa de VB...
La Rutina .... Para Editar (Modificar) y AGregar (Insertar)
Primero completas tus controles edl Form y luego aplicas las siguientes rutinas; esto esta hecho con MSFlexGrid, pero puedes cambiarlo por cualquier control Standar
Private Sub Guardar_Click()
Dim registro As Integer
Dim linea As Integer
On Error Resume Next
Set GenIsap = base.OpenRecordset("select * from GenIsapre")
For linea = 1 To fg2.Rows - 1
registro = Val(fg2.TextMatrix(linea, 1))
strbusca = "idisap =" & registro
GenIsap.FindFirst strbusca
If GenIsap.NoMatch Then ' Si no existe lo Agrega
GenIsap.AddNew
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
If fg2.TextMatrix(linea, 2) = "" Then GoTo siguiente
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
Else: ' De lo contrario
GenIsap.Edit ' Lo Modificamos
GenIsap!idisap = registro
GenIsap!noisap = fg2.TextMatrix(linea, 2)
GenIsap!poisap = fg2.TextMatrix(linea, 3)
GenIsap.Update
End If
siguiente:
Next linea
MsgBox "Proceso terminado exitosamente", vbInformation, "Grabado"
GenIsap.Close
End Sub
Ahora Eliminamos un Registro...
Private Sub command1_Click()
'borra un determinado registro
Dim d As Integer
Set GenIsap = base.OpenRecordset("select * from Genisapre")
d = Val(fg2.TextMatrix(fg2.Row, 1))
strbusca = "idisap =