Refresh datagridview!!!!!

[junior1920]

Hola nuevamente aqui con otro problemita y es el siguiente:
Estroy trabajando en capas
En la capa presentación tengo los formularios:
menuprincipal - MDI
listacategoria
Registrarcategoria
Lo que pasa es que al insertar un nuevo registro no me actualiza o no me refresca el datagridview para ver el registro insertado; acabo de ver en los foros y hay unos que utilizan

Código vb:

form.showdialog 
cargarlista
 

Pero no me parece lo mejor en fin por ahi alguna idea de como puedo lograr eso
les dejo el codigo

1*CApaAccesodatos
clase: CategoriaAD

Código vb:

Imports System.Data
Imports Npgsql
Imports NpgsqlTypes
imports EntidadNegocio
Public Class CategoriaAD
    Private conn As New NpgsqlConnection
    Private comando As New NpgsqlCommand
    #Region "Cadena de conexion"
    Public Sub New()
        Dim Objconexion As New conexion
        conn = Objconexion.abrir
        comando.Connection=conn
    End Sub
    #End Region
    #Region "Función convertir datos"
    Private Shared Function Convertircategoria(ByVal reader As IDataReader) As CategoriaEN
        Dim categoria As New CategoriaEN()
        categoria.gidcat = Convert.ToInt32(reader("idcat"))
        categoria.gnom_cat = lTrim(RTrim(Convert.ToString(reader("nom_cat"))))
        categoria.gdesc_cat = LTrim(RTrim(Convert.ToString(reader("desc_cat"))))
        Return categoria
    End Function
    #End Region
    #Region "Función listar"
    Public Function listado() As List(Of CategoriaEN)
        Dim listcat As New List(Of CategoriaEN)
        Dim reader As NpgsqlDataReader
        Dim Objcat As CategoriaEN
        Try
            conn.Close()
            conn.Open()
            comando.CommandType=CommandType.Text
            comando.CommandText="SELECT idcat,nom_cat,desc_cat FROM categoria order by nom_cat,idcat asc"
            reader=comando.ExecuteReader
            While reader.Read()
                listcat.Add(Convertircategoria(reader))
            End While
            Return listcat
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools
        End Try
    End Function
    #End Region
    #Region "Función insertar"
    Public Sub agregar(ByVal ObjCategoriaEN As CategoriaEN)
        Try
        comando.CommandType=CommandType.StoredProcedure
        comando.CommandText="agrega_categ"
        
        Dim _nom_cat As New NpgsqlParameter("_nom_cat",NpgsqlTypes.NpgsqlDbType.Varchar)
        _nom_cat.Value=ObjcategoriaEN.gnom_cat
        _nom_cat.Direction=ParameterDirection.Input
        comando.Parameters.Add(_nom_cat)
        
        Dim _desc_cat As New NpgsqlParameter("_desc_cat",NpgsqlTypes.NpgsqlDbType.Text)
        _desc_cat.Value=ObjCategoriaEN.gdesc_cat
        _desc_cat.Direction=ParameterDirection.Input
        comando.Parameters.Add(_desc_cat)
        comando.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools
        End Try
    End Sub
    #End Region
End Class
 

*2.- Capa: EntidadNegocio
clase: CategoriaEN

Código vb:

Public Class CategoriaEN
    Private idcat As Integer
    Private nom_cat As String
    Private desc_cat As String
    '--------------------------
    Public Property gidcat()
        Get
            Return idcat
        End Get
        Set(ByVal value)
            idcat=value
        End Set
    End Property
    '--------------------------
    Public Property gnom_cat()
        Get
            Return nom_cat
        End Get
        Set(ByVal value)
            nom_cat=value
        End Set
    End Property
    '--------------------------
    Public Property gdesc_cat()
        Get
            return desc_cat
        End Get
        Set(ByVal value)
            desc_cat=value
        End Set
    End Property
    '--------------------------
End Class
 

*3.- Capa: LogicaNegocio
Clase: CategoriaLN

Código vb:

Imports AccessoDatos
imports EntidadNegocio
Public Class CategoriaLN
    Private ObjCategoriaAD As CategoriaAD
    Public Sub New()
        ObjCategoriaAD=New CategoriaAD
    End Sub
    Public Sub agregar(ByVal ObjCategoriaEN As CategoriaEN)
        ObjCategoriaAD.agregar(ObjCategoriaEN)
    End Sub
    Public Function listado() As List(Of CategoriaEN)
        return ObjCategoriaAD.listado
    End Function
End Class
 

*4.- Capa: Presentacion
Form: listcategoria

Código vb:

Imports System.Data
Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class listcategoria
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private ObjCategoriaEN As CategoriaEN
    Private ObjCategoriaLN As CategoriaLN
    Public Sub cargarlista()
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            dgwlistcategoria.DataSource=Me.ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
    Sub ListcategoriaLoad(sender As Object, e As EventArgs)
       cargarlista()
    End Sub
    Sub Button2Click(sender As Object, e As EventArgs)
        frm_insert_cat.Show()
    End Sub
    Sub Button5Click(sender As Object, e As EventArgs)
        cargarlista()
    End Sub
End Class
 

Form: frm_insert_cat

Código vb:

imports System.Windows.Forms
Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class frm_insert_cat
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private ObjCategoriaEN As CategoriaEN
    Private ObjCategoriaLN As CategoriaLN
    
    Sub Button2Click(sender As Object, e As EventArgs)
        me.Close()
    End Sub
    
    Sub Button1Click(sender As Object, e As EventArgs)
        Dim listcat As New listcategoria
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            ObjCategoriaEN.gnom_cat=Ltrim(Rtrim(txtnom_cat.Text))
            ObjCategoriaEN.gdesc_cat=Ltrim(Rtrim(txtdesc_cat.Text))
            ObjCategoriaLN.agregar(ObjCategoriaEN)
            Listcat.cargarlista()
            MessageBox.Show("Se grabo correctamente")
            If MessageBox.Show("¿Desea Continuar agregando registros ?","Mensaje",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=Windows.Forms.DialogResult.Yes Then
                txtnom_cat.Text=""
                txtdesc_cat.Text=""
                txtnom_cat.Focus
            Else
                Me.close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try
    End Sub
End Class
 

Como veran en el form: frm_insert_cat hago un llamado a cargarlista() pero no pasa nada alguien que me pueda orientar

[Aquaventus]

Hola junior1920, el dgwlistcategoria en tu clase listcategoria existe? Porque no lo veo declarado en ningun lado, sería ideal que en vez que hagas esto en tu clase listcategoria :

Código vb:

Public Sub cargarlista()
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            dgwlistcategoria.DataSource=Me.ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
 

Le hagas un return :

Código vb:

Public Sub cargarlista() As List(Of CategoriaEN)
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            return ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
 

y eso se lo pases a tu frm_insert_cat :

Código vb:

Sub Button1Click(sender As Object, e As EventArgs)
        Dim listcat As New listcategoria
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            ObjCategoriaEN.gnom_cat=Ltrim(Rtrim(txtnom_cat.Text))
            ObjCategoriaEN.gdesc_cat=Ltrim(Rtrim(txtdesc_cat.Text))
            ObjCategoriaLN.agregar(ObjCategoriaEN)
            dgwlistcategoria.DataSource = Listcat.cargarlista()
            MessageBox.Show("Se grabo correctamente")
            If MessageBox.Show("¿Desea Continuar agregando registros ?","Mensaje",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=Windows.Forms.DialogResult.Yes Then
                txtnom_cat.Text=""
                txtdesc_cat.Text=""
                txtnom_cat.Focus
            Else
                Me.close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try
    End Sub
 

Nos Cuentas!. Saludos!.

[junior1920]

Hola Aquaventus muchas gracias por responder con respecto al datagridview esta en el formulario listcategoria y en dicho formulario hay 3 botones: Agregar, Modificar,Eliminar
Cuando yo haga click en Agregar ó modificar se abre otro formulario donde ingreso o modifico datos pero esos datos ingresado ó modificados no se refrescan en el datagridview que esta en el formulario listcategoria.
listcategoria no es una clase es un formulario :/

Ojo que cuando doy click en agregar llama al formulario: frm_insert_cat

[Aquaventus]

Con eso ya vi cual es el error, lo que pasa es que tú creas un nuevo formulario listcategoría, y en ese formulario que crear haces el llamado del listado, mas no en el formulario verdadero. Para eso tendrás que ir a tu formulario listcategoria y en las propiedades de tu datagridview, busca uno que se llama Modifiers y colocalo en public. Luego cambiarás el llamado de tu button2 :

Código vb:

frm_insert_cat.Show()
 

a esto :

Código vb:

Dim dialog As New frm_insert_cat(Me)
dialog.ShowDialog()
 

Luego cambiar el constructor de tu form frm_insert_car :

Código vb:

Dim dialog As listcategoria
 
Public Sub New(Dim _dialog As listcategoria)
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        dialog = _dialog
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
 

Y finalmente lo llamas asi en el mismo formulario frm_insert_cat :

Código vb:

dialog.cargarlista()
 

Saludos!.

[junior1920]

Me da error
eso lo de dialog.showdialog()
solo hace q cuando el formulario: frm_insert_cat
se cierre el cargarlista() se ejecute
ya lo habia hecho asi pero solo funca cuando se cierra

[Aquaventus]

Hola pues a mi no me da nada de eso que mencionas... cuando hago esa llamada se refleja en el que lo invocó, sin necesidad de cerrar la ventana. Pero que error menciona?

[junior1920]

Código vb:

Dim dialog As New frm_insert_cat(Me)
 

Error:
Demasiados argumentos para 'Public Sub New()'. (BC30057)

Este error es en el form:listcategoria

Otra cosa estoy usando sharpdevelop y postgres :)

[Aquaventus]

Cometí un error en esta parte... le coloqué Dim cuando deberia ser Byval :

Código vb:

Dim dialog As listcategoria
 
Public Sub New(Byval _dialog As listcategoria)
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        dialog = _dialog
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
 

Ojo que la modificación del constructor se la tienes que hacer ah frm_insert_cat y la declaración del form en el listcategoria. Saludos!.

[junior1920]

Bien funca bien; ahora cuando cierro el form: frm_insert_cat se queda pegado a de ser por la ram :$ o me equivoco

[Aquaventus]

se queda pegado?? como es eso??

[junior1920]

Entonces queda así por si alguien quiera tambien la ayuda =)

*1.- CAPA:AccessoDatos
CLASE: conexion

Código vb:

Imports Npgsql
Public Class conexion
    Private Server,Database,User_Id,Password As String
    Public Sub New()
        Try
        Server=System.Configuration.ConfigurationSettings.AppSettings("Server").ToString
        Database=System.Configuration.ConfigurationSettings.AppSettings("Database").ToString
        User_Id=System.Configuration.ConfigurationSettings.AppSettings("User_Id").ToString
        Password=System.Configuration.ConfigurationSettings.AppSettings("Password").ToString
        Catch ex as Exception
        MsgBox(ex.Message)
        End Try
    End Sub
    Public Function abrir() As NpgsqlConnection
    Dim cCon As String
    Dim conexion As NpgsqlConnection
    cCon="Server="+ Server + ";" & _
         "Database="+ Database + ";" & _
         "User Id="+ User_Id + ";" & _
         "Password="+ Password + ";"
    conexion=New NpgsqlConnection(cCon)
    conexion.Open()
    Return conexion
    End Function
End Class
 

CLASE:CategoriaAD

Código vb:

Imports System.Data
Imports Npgsql
Imports NpgsqlTypes
imports EntidadNegocio
Public Class CategoriaAD
    Private conn As New NpgsqlConnection
    Private comando As New NpgsqlCommand
    #Region "Cadena de conexion"
    Public Sub New()
        Dim Objconexion As New conexion
        conn = Objconexion.abrir
        comando.Connection=conn
    End Sub
    #End Region
    #Region "Función convertir datos"
    Private Shared Function Convertircategoria(ByVal reader As IDataReader) As CategoriaEN
        Dim categoria As New CategoriaEN()
        categoria.gidcat = Convert.ToInt32(reader("idcat"))
        categoria.gnom_cat = lTrim(RTrim(Convert.ToString(reader("nom_cat"))))
        categoria.gdesc_cat = LTrim(RTrim(Convert.ToString(reader("desc_cat"))))
        Return categoria
    End Function
    #End Region
    #Region "Función listar"
    Public Function listado() As List(Of CategoriaEN)
        Dim listcat As New List(Of CategoriaEN)
        Dim reader As NpgsqlDataReader
        Dim Objcat As CategoriaEN
        Try
            conn.Close()
            conn.Open()
            comando.CommandType=CommandType.Text
            comando.CommandText="SELECT idcat,nom_cat,desc_cat FROM categoria order by nom_cat,idcat asc"
            reader=comando.ExecuteReader
            While reader.Read()
                listcat.Add(Convertircategoria(reader))
            End While
            Return listcat
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools
        End Try
    End Function
    #End Region
    #Region "Función insertar"
    Public Sub agregar(ByVal ObjCategoriaEN As CategoriaEN)
        Try
        comando.CommandType=CommandType.StoredProcedure
        comando.CommandText="agrega_categ"
        
        Dim _nom_cat As New NpgsqlParameter("_nom_cat",NpgsqlTypes.NpgsqlDbType.Varchar)
        _nom_cat.Value=ObjcategoriaEN.gnom_cat
        _nom_cat.Direction=ParameterDirection.Input
        comando.Parameters.Add(_nom_cat)
        
        Dim _desc_cat As New NpgsqlParameter("_desc_cat",NpgsqlTypes.NpgsqlDbType.Text)
        _desc_cat.Value=ObjCategoriaEN.gdesc_cat
        _desc_cat.Direction=ParameterDirection.Input
        comando.Parameters.Add(_desc_cat)
        comando.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools
        End Try
    End Sub
    #End Region
End Class
 

*2.-CAPA:EntidadNegocio
CLASE:CategoriaEN

Código vb:

Public Class CategoriaEN
    Private idcat As Integer
    Private nom_cat As String
    Private desc_cat As String
    '--------------------------
    Public Property gidcat()
        Get
            Return idcat
        End Get
        Set(ByVal value)
            idcat=value
        End Set
    End Property
    '--------------------------
    Public Property gnom_cat()
        Get
            Return nom_cat
        End Get
        Set(ByVal value)
            nom_cat=value
        End Set
    End Property
    '--------------------------
    Public Property gdesc_cat()
        Get
            return desc_cat
        End Get
        Set(ByVal value)
            desc_cat=value
        End Set
    End Property
    '--------------------------
End Class
 

*3.- CAPA: LogicaNegocio
CLASE:CategoriaLN

Código vb:

Imports AccessoDatos
imports EntidadNegocio
Public Class CategoriaLN
    Private ObjCategoriaAD As CategoriaAD
    Public Sub New()
        ObjCategoriaAD=New CategoriaAD
    End Sub
    Public Sub agregar(ByVal ObjCategoriaEN As CategoriaEN)
        ObjCategoriaAD.agregar(ObjCategoriaEN)
    End Sub
    Public Function listado() As List(Of CategoriaEN)
        return ObjCategoriaAD.listado
    End Function
End Class
 

*4.- CAPA:Presentacion
FORMULARIO: listcategoria

Código vb:

Imports System.Data
Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class listcategoria
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private ObjCategoriaEN As CategoriaEN
    Private ObjCategoriaLN As CategoriaLN
    Public Sub cargarlista()
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            dgwlistcategoria.DataSource=ObjCategoriaLN.listado
       Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
       End Try
    End Sub
    Sub ListcategoriaLoad(sender As Object, e As EventArgs)
        cargarlista()
    End Sub
    Sub Button2Click(sender As Object, e As EventArgs)
        Dim dialog As frm_insert_cat
        dialog= New frm_insert_cat(Me)
        dialog.ShowDialog()
    End Sub
    Sub Button5Click(sender As Object, e As EventArgs)
        cargarlista()
    End Sub
End Class
 

FORMULARIO: frm_insert_cat

Código vb:

imports System.Windows.Forms
Imports EntidadNegocio
Imports LogicaNegocio
Public Partial Class frm_insert_cat
    Dim dialog As listcategoria
    Public Sub New(ByVal _dialog as listcategoria)
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
         dialog=_dialog
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private ObjCategoriaEN As CategoriaEN
    Private ObjCategoriaLN As CategoriaLN
    
    Sub Button2Click(sender As Object, e As EventArgs)
        me.Close()
    End Sub
    
    Sub Button1Click(sender As Object, e As EventArgs)
        Dim listcat As New listcategoria
        Try
            ObjCategoriaEN=New CategoriaEN
            ObjCategoriaLN=New CategoriaLN
            ObjCategoriaEN.gnom_cat=Ltrim(Rtrim(txtnom_cat.Text))
            ObjCategoriaEN.gdesc_cat=Ltrim(Rtrim(txtdesc_cat.Text))
            ObjCategoriaLN.agregar(ObjCategoriaEN)
            dialog.cargarlista()
            MessageBox.Show("Se grabo correctamente")
            If MessageBox.Show("¿Desea Continuar agregando registros ?","Mensaje",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=Windows.Forms.DialogResult.Yes Then
                txtnom_cat.Text=""
                txtdesc_cat.Text=""
                txtnom_cat.Focus
            Else
                Me.close()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try
    End Sub
End Class
 

[junior1920]

Iniciado por Aquaventus

se queda pegado?? como es eso??

Umm puede que sea de la ram o no se pero cuando lo cierro se queda la imagen del formulario: frm_insert_cat en el formulario:listcategoria

[junior1920]

Asi se queda

[Aquaventus]

a tu datagrid hazle un Update() despues del listado. Se me hace raro que te ocurra eso...

[cristiantorres]

Lo que quieres hacer es actualizar los datos del datagriedview al insertar un registro desde otro formulario?

Porque si es así lo que deverias de hacer es detectar el cierre del formulario donde agregas el registro y luego actualizar los datos.

[junior1920]

Iniciado por cristiantorres

Lo que quieres hacer es actualizar los datos del datagriedview al insertar un registro desde otro formulario?

Porque si es así lo que deverias de hacer es detectar el cierre del formulario donde agregas el registro y luego actualizar los datos.

Hola cristiantorres lo anterior esta bien me actualiza el datagridview la imagen muestra que el formulario frm_insert_cat queda asi como una imagen pegada no te a pasado que cuando abres un archivo y demora en cargar y abres otra ventana y la minimizas se queda pegada la imagen eso es lo que pasa cuando cierro el formulario.

Otra que tu comentas que cuando cierre o detecte el cierre del formulario suponiendo que aún no quiero salir del formulario no me va mostrar lo q ingreso...

Lo anterior corre me actualiza el registro del datagridview solo que se queda pegada la imagen del formulario frm_insert_cat cuando lo cierro