Refresh datagridview!!!!!

[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