Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: andaluz en 26 Febrero 2012, 20:09 PM

Título: Insertar datos en la base de datos
Publicado por: andaluz en 26 Febrero 2012, 20:09 PM
hola a todos, estoy realizando una aplicación en la cual quiero insertar registros en la base de datos, insertarlo me lo inserta bien, pero el iconveniente esta en que al lado de los textbox de insertar tengo un DataGrid en el cual tengo la tabla y no me muestra el registro que he insertado al pulsar el botón de insertar.

que tengo que hacer para actualizar la tabla???

aqui os dejo el codigo que he realizado:

Código (vbnet) [Seleccionar]

Private Sub btn_Insertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Insertar.Click
       Dim nombre, dni As String
       Dim edad As Double

       For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
           nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
           dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
           edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)

           
           ' si el dni que quiero insertar ya esta en la tabla muestra un error
           If txt_DNI.Text = dni Then
               MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
               Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
               Exit Sub
           Else
               ' en caso contrario lo inserta
               Try
                   Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
                   Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                   Exit Try
               Catch ex As Exception

               End Try

               MessageBox.Show("Usuario insertado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
               Exit For
           End If
       Next

       Me.Validate()
       Me.Usuarios2BindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.Bd_pruebaDataSet1)

   End Sub


Espero que me puedan ayudar,

Saludos
Título: Re: Insertar datos en la base de datos
Publicado por: seba123neo en 26 Febrero 2012, 23:33 PM
no trabajo con datagrid, pero con actualizar o hacer un refresh al datasource que tiene asignado ese datagrid te tendria que mostrar el registro nuevo.
Título: Re: Insertar datos en la base de datos
Publicado por: andaluz en 27 Febrero 2012, 10:55 AM
Bueno no es un datagrid creado por mi, es al arrastrar la tabla al formulario para que me muestre los datos que se han insertado en esa tabla lo que quiero que se me actualice.

Saludos
Título: Re: Insertar datos en la base de datos
Publicado por: abel_c_b en 27 Febrero 2012, 18:20 PM
Hola, tal y como dice Sebas, debes refrescar el datagrid; una función para ello es:

DataGrid1.ResetBindings()

Saludos
Título: Re: Insertar datos en la base de datos
Publicado por: andaluz en 27 Febrero 2012, 18:23 PM
vale ya lo he conseguido.

lo que no comprendo es porque utilizando ese codigo, me inserta usuarios con el mismo dni, cuando me deberia de dar error al comprobar que el dni que introduzco ya existe en la base de datos.

Código (vbnet) [Seleccionar]

For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
                nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
                dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
                edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
                ' si el dni que quiero insertar ya esta en la tabla muestra un error
               If txt_DNI.Text = dni Then
                   MessageBox.Show("txt_dni: " & txt_DNI.Text & "DNI: " & dni)
                   MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                   Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                   Exit Sub
               Else
                   ' inserto el usuario en la base de datos
                   Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
               End If
Next


gracias por tu aportacion abel_c_b

Saludos
Título: Re: Insertar datos en la base de datos
Publicado por: seba123neo en 27 Febrero 2012, 21:12 PM
la logica del codigo esta mal, por ejemplo si tengo 3 DNI en la base, supongamos los numeros:

1, 2 y 3

supongamos que yo quiero ingresar el 2 (que ya existe), me deberia decir que ya existe, pero ahi en ese codigo lo que hace es recorrer secuencialmente cada uno, y cuando este recorriendo el primer registro, me va a comparar el 2 con el 1, y como no es igual me lo va a insertar de nuevo.

lo que deberias hacer es recorrer todo y una variable que diga si existe o no, y esa validacion dejarla fuera del bucle For, algo asi:

Código (vbnet) [Seleccionar]
        Dim vExiste As Boolean = False

        For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
            nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
            dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
            edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
            ' si el dni que quiero insertar ya esta en la tabla muestra un error

            If txt_DNI.Text = dni Then
                vExiste = True
                Exit For
            End If

        Next

        If vExiste Then
            MessageBox.Show("txt_dni: " & txt_DNI.Text & "DNI: " & dni)
            MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
            Exit Sub
        Else
            ' inserto el usuario en la base de datos
            Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
        End If


saludos.