17/06/2011, 19:36
|
| | | Fecha de Ingreso: abril-2011 Ubicación: Salto
Mensajes: 437
Antigüedad: 13 años, 7 meses Puntos: 6 | |
Respuesta: borrar varios registros con delete sql hola gracias x tu respuesta lokoman y para los que quieren el código sé los doy:
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
If MsgBox("¿Desea Eliminar " & contarfilasmarcadas & " Proveedores?", vbExclamation + vbYesNo, "Advertencia") = vbYes Then
Call borrarproveedoresseleccionados
contarfilasmarcadas = 0
Else
contarfilasmarcadas = 0
End If
Else
If MsgBox("¿Desea Eliminar el Proveedor Seleccionado?", vbExclamation + vbYesNo, "Advertencia") = vbYes Then
Call borrarproveedoresseleccionados
contarfilasmarcadas = 0
Else
contarfilasmarcadas = 0
End If
End If
End Sub
las variables contarfilas y contarfilasmarcadas son enteras y la función que uso para borrar los proveedores seleccionados es esta:
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)
End Sub
y la función para cargar mi listview de nuevo es esta:
Public Sub cargarListViewprov(LVWproveedores As ListView)
Set rstproveedores = cnnADODB.Execute("select * from proveedores order by nombreproveedor")
LVWproveedores.ListItems.Clear
While Not rstproveedores.EOF
On Error Resume Next
Set listaproveedores = LVWproveedores.ListItems.Add(, , rstproveedores(0))
listaproveedores.SubItems(1) = rstproveedores(1)
listaproveedores.SubItems(2) = rstproveedores(2)
listaproveedores.SubItems(3) = rstproveedores(3)
listaproveedores.SubItems(4) = rstproveedores(4)
rstproveedores.MoveNext
Wend
End Sub
aclaro que esta función está en mi módulo, y gracias a todos. |