elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problemas con mi ListView y mi BD Access
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problemas con mi ListView y mi BD Access  (Leído 1,496 veces)
Alverigk

Desconectado Desconectado

Mensajes: 11


Serenidad y paciencia, mi querido Solín.


Ver Perfil
Problemas con mi ListView y mi BD Access
« en: 19 Septiembre 2007, 10:18 am »

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.


« Última modificación: 19 Septiembre 2007, 19:11 pm por Sirdarckcat » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problemas winsock y listview
Programación Visual Basic
XxDarkxX13 1 1,401 Último mensaje 16 Octubre 2011, 23:47 pm
por $Edu$
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines