Hola a todos bueno queria saber komo puedo eliminar a una listview a sql tengo este codigo solo me elimina a a la list solo me falta en eliminar a la sql 2000
Private Sub cmddelete_Click()
Dim X As Long
X = 0
Do While X < List1.ListCount
If List1.Selected(X) = True Then
List1.RemoveItem X
Else
X = X + 1
End If
Loop
MsgBox "Si quiere Eliminar seleccione un elemento de la lista", vbInformation + vbOKOnly, ""
'traer el codigo de la seleccion del list, para despues pasarlo como parametro al SP que elimina
'Set Rst5 = mobjelimi.borrar_cod_estado(strCString, txtinfo1.Text) 'List
'If Rst5.BOF And Rst5.EOF Then
'MsgBox "No Existen Datos Asociados", vbOKOnly + vbCritical, "Advertencia"
cmddelete.Enabled = True
List1.Enabled = True
'Else
txtinfo1.Enabled = True
'****devuelve en la caja de texto los campos que correspoden
'Rst5.MoveFirst
'Do While Not Rst5.EOF
'List1.AddItem CStr(Rst5!cod_estado)
'Elimina un dato de la lista. Aquel cuya dirección u orden figure en txtinfo1.Text
'List1.AddItem CStr(Rst5!descrip_estado)
'List1.RemoveItem List1.ListIndex
'Label1.Caption = "Hay " & List1.ListCount & " Elementos"
'Rst5.MoveNext
'End If
End Sub
