23/06/2011, 12:50
|
| | | Fecha de Ingreso: abril-2011 Ubicación: Salto
Mensajes: 437
Antigüedad: 13 años, 8 meses Puntos: 6 | |
Respuesta: borrar varios registros con delete sql hola de nuevo le hice una corrección al código:
en el botón:
Private Sub cmdeliminarproveedor()
For contarfilas = 1 To Me.LVWproveedores.ListItems.Count Step 1
If Me.LVWproveedores.ListItems(contarfilas).Selected = True Then
contarfilasmarcadas = contarfilasmarcadas + 1
End If
Next contarfilas
If contarfilasmarcadas > 1 Then
mjeborrar = MsgBox("¿Desea Eliminar " & contarfilasmarcadas & " Proveedores?", vbExclamation + vbYesNo, "Advertencia")
Else
mjeborrar = MsgBox("¿Desea Eliminar el Proveedor Seleccionado?", vbExclamation + vbYesNo, "Advertencia")
End If
If mjeborrar = vbYes Then
Call borrarproveedoresseleccionados
Else
contarfilasmarcadas = 0
End If
End Sub
y en la función:
Private Sub borrarproveedoresseleccionados()
For contarfilas = Me.LVWproveedores.ListItems.Count To 1 Step -1
If Me.LVWproveedores.ListItems(contarfilas).Selected = True Then
cnnADODB.Execute ("Delete from proveedores where codigoproveedor= " & Me.LVWproveedores.ListItems(contarfilas).Text)
End If
Next contarfilas
Call cargarListViewprov(LVWproveedores)
contarfilasmarcadas = 0
End Sub
después lo demás se mantiene. |