• Miércoles 17 de Abril de 2024, 07:26

Autor Tema:  ELIMINAR UNA LISTVIEW A SQL  (Leído 1468 veces)

marcela1513

  • Nuevo Miembro
  • *
  • Mensajes: 15
  • Nacionalidad: cl
    • Ver Perfil
ELIMINAR UNA LISTVIEW A SQL
« en: Viernes 7 de Enero de 2011, 14:43 »
0
Hola a todos bueno queria saber komo puedo eliminar a una listview a sql tengo este codigo solo me elimina a la list solo me falta en eliminar a la sql 2000 para un mantendor saludos seria de muxa ayuda
 :hitcomp:  :hola:  :ouch:  :wacko:

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