• Viernes 29 de Marzo de 2024, 16:05

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

marcela1513

  • Nuevo Miembro
  • *
  • Mensajes: 15
  • Nacionalidad: cl
    • Ver Perfil
ELIMINAR UNA LISTVIEW A SQL
« en: Jueves 6 de Enero de 2011, 16:33 »
0
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