Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Alverigk

#1
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.
#2
.NET (C#, VB.NET, ASP) / Dudas con Botones
19 Septiembre 2007, 07:33 AM
Hola a todos.
saben hace un tiempo que he estado tratando de hacer un programa que quergade información con los botones Nuevo y Guardar pero no funcionan como lo quiero. He creado un paginilla para explicarlo, si alguno puede hecharle un vistazo y orientarme como arreglar el problema se lo agradeceré mucho.
La dirección es: http://mx.geocities.com/alverigk/Datos.htm
Aqui explico todo lo referente a la duda.
Gracias de antemano.
#3
Hola a todos.

Sabes estoy haciendo un programa y agregue un DateTimePicker para mostrar la fecha y resulta, lo que no resulta es que cuando lo guardo a la BD de Access, me marca un error y no lo guarda, deja en blanco el campo en la BD, alquien puede indicarme como arreglar esto?

De antemano muchas gracias.
alverigk
#4
Hola a todos,

Saben, estoy haciendo un programa pero cuando guardo un nuevo registro a mi BD, siempre me borra el primer registro de la BD.

Alguien me puede ayudar con esto!!

Alverigk
#5
Hola a todos.

Necesito ayuda, estoy haciendo una agenda con VS 2005, con botones Nuevo y Guardar.
El código del Botón Nuevo.

         Dim newContactoRow As GenteDataSet.ContactoRow --------------->(1)
         newContactoRow = GenteDataSet.Contacto.NewContactoRow() ---->(2)

         GenteDataSet.Contacto.Rows.Add(newContactoRow)---------------->(3)

        NombreTextBox.Text = ""
        ApellidosTextBox.Text = ""
        NombreTextBox.Focus()      

El código del Botón Guardar.

Try
    Me.Validate()
    Me.CustomersBindingSource.EndEdit()----------------------------------->(4)
    Me.CustomersTableAdapter.Update(Me.NorthwindDataSet.Customers)
    MsgBox("Update successful")

        NombreTextBox.Text = ""
        ApellidosTextBox.Text = ""
        NombreTextBox.Focus()

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


Cuando corro el programa tal y como arriba indiqué, no guarda nada.

Cuando cambio el EndEdit por Addnew en la línea de código 4; corro el programa, no guarda el primer registro, el segundo sí, y así sucecivamente. El BD deja un registro en blanco entre cada regsitro.
Cuando elimino las líneas de código 1, 2 y 3; y cambio el EndEdit por AddNew en la línea 4; corro el programa y comienzo a ingresar datos, el primer registro no lo guarda, el segundo, sí, y así sucesivamente.
Cuando no modifico nada del código mostrado arriba, hago click en Nuevo y aparta espacio en la BD y guarda el registro, pero cuando vuelvo a guardar un registro nuevo, edita el registro que guarde anteriormente.

Lo que quiero hacer es guardar los datos a la primera y que no modifique los registros ya guardados.
Podráin indicarme que estoy haciendo mal?

De antemano muchas gracias!!!

Alverigk
#6
Programación Visual Basic / Visual Studio 2005
24 Diciembre 2006, 09:02 AM
Hola a todos.
Les tengo una pregunta, ¿Existe alguna forma de poder cambiar de idioma al Visual Studio, del Ingles a Español? :huh: