Eliminar registro de base de datos y de flexgrid
Publicado por Risesa (1 intervención) el 08/07/2012 18:51:11
Hola buenas, necesito que me ayudeis a solucionar como puedo eliminar el registro de la base de datos y del flexgrid, este ultimo lo elimina correctamente cuando lo selecciono pero tambien quiero que lo elimine de la base de datos. Como puedo hacerlo?
Os dejo el codigo para que me digais si esta bien o le falta algo:
Private Sub Form_Load()
Data1.DatabaseName = "Base de Datos.mdb"
Data1.RecordSource = "Productos"
With MSFlexGrid1
.FixedCols = 0
.FormatString = "Col 1"
.ColWidth(0) = 3000
End With
End Sub
Private Sub Command1_Click()
If MSFlexGrid1.Row <= 0 Then
MsgBox "Debe Seleccionar una fila"
Else
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
MsgBox "El producto se ha eliminado correctamente", vbInformation, "Información"
End If
End Sub
Os dejo el codigo para que me digais si esta bien o le falta algo:
Private Sub Form_Load()
Data1.DatabaseName = "Base de Datos.mdb"
Data1.RecordSource = "Productos"
With MSFlexGrid1
.FixedCols = 0
.FormatString = "Col 1"
.ColWidth(0) = 3000
End With
End Sub
Private Sub Command1_Click()
If MSFlexGrid1.Row <= 0 Then
MsgBox "Debe Seleccionar una fila"
Else
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
MsgBox "El producto se ha eliminado correctamente", vbInformation, "Información"
End If
End Sub
Valora esta pregunta


0