Problemas con mi ListView y mi BD Access

Iniciado por Alverigk, 19 Septiembre 2007, 10:18 AM

0 Miembros y 1 Visitante están viendo este tema.

Alverigk

Hola a todos.
Estoy haciendo una pequeña aplicaión y tengo un Listview con 3 registros en mi tabla de Access y quiero que cuando guarde no me borre el primer registro sino que lo guarde al final de la lista. ¿Existe alguna forma de indicarle a Visual Studio 2005 que lo guarde al final de los registros?

EL código de los Botones Nuevo y Guardar es el siguiente

Botón Nuevo:
Private Sub cmdNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNuevo.Click
        '"Agregar una nueva fila a un Datatable"

        Dim newMascotaRow As VeterinariaDS.MascotaRow
        newMascotaRow = VeterinariaDS.Mascota.NewMascotaRow

        VeterinariaDS.Mascota.Rows.Add(newMascotaRow)

        NombreTextBox.Focus()   'Envia el foco a esta caja de texto.

    End Sub

Botón Guardar:
NombreTextBox.Focus()

        '"Guardar los datos a la BD"
        Try
            Me.Validate()
            Me.MascotaBindingSource.AddNew()
            Me.MascotaTableAdapter.Update(Me.VeterinariaDS.Mascota)
            'MsgBox("Update successful")

        Catch ex As Exception
            MsgBox("Update failed")
        End Try

        'Limpia las cajas de texto
        NombreTextBox.Text = ""
        EspecieTextBox.Text = ""
        EdadTextBox.Text = ""

        'Actualizar la Lista de Mascotas
        LlenarLista()

El código para llenar el ListView con los datos de la tabla es:
Private Sub LlenarLista()
        lsvMascota.Items.Clear()
        Dim i As Integer
        For i = 0 To VeterinariaDS.Tables("Mascota").Rows.Count - 1
            lsvMascota.Items.Add(VeterinariaDS.Tables("Mascota").Rows(i)("IDMascota"))
            lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Nombre"))
            lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Especie"))
            lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Edad"))
        Next
    End Sub

Si alguien puede orientarme con esto se lo agradeceré mucho.