Pantalla de mantenimiento con campos asociados

Hace tiempo publique como enlazar y traducir campos desde una base de datos a una pantalla de formulario de mantenimiento de datos de visual basic. 

Ahora vamos a ampliar un poco más los conceptos y vamos a ver como hacer un enlace (binding) a otra tabla similar a un INNER JOIN de Oracle pero desde el código de Visual Basic. También veremos como posicionar en el DataGridView  las columnas donde deseemos independientemente de su orden de carga.

Finalmente añadiremos una sub-pantalla para rellenar dos campos de mantenimiento  desde otra pantalla con combos anidadas 

La pantalla de mantenimiento será una pantalla sencilla con un grid,  cuatro campos de filtrado y mantenimiento, los botones Alta, Baja, Modificación. Aceptar, Cancelar y finalmente un botón que nos llevará a la sub-pantalla con dos combos anidadas para la edición de los dos campos nivel 1 y nivel 2.

En el form load indicamos la asociación con los botones de Alta, Baja y Modificación.

Si quieres esta foto.

Private Sub frmCamposaAsociados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.grdResult.DataSource = bs

        txtColumna.MaxLength = 40

  

        CamposAsociados()

        btnModificar.Visible = IIf(ObjetosPermitidos.ContainsKey("btnModificar"), True, False)

        btnBaja.Visible = IIf(ObjetosPermitidos.ContainsKey("btnBaja"), True, False)

        btnAlta.Visible = IIf(ObjetosPermitidos.ContainsKey("btnAlta"), True, False)

        cboDataSource.Text = gDataSource

        btnCombosAnidadas.Enabled = False

    End Sub

Definimos un procedimiento donde leemos de la Base de Datos de Oracle y hacemos el enlace (binding) entre nuestra pantalla y la base de datos.

Sub CamposAsociados()

        Dim tb As DataTable

        Dim srSQL As StreamReader

        Dim strConsulta As String

        Dim cmdbuilder As OleDbCommandBuilder

        tb = New DataTable

        'Repeticion si no es la primera vez es que se ha llamado desde el mantenimiento y antes de cargarse debe borrarse la grid

        If Not bolPrimeraVez Then

            ds.Tables("CamposAsociados").Clear()

        End If

        '***********************

        strStartupPath = My.Application.Info.DirectoryPath

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCamposAsociados".sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        cmdbuilder = New OleDbCommandBuilder(dA)

        dA.Fill(ds, "CamposAsociados")

        If Not bolPrimeraVez Then

            Exit Sub

        End If

        bolPrimeraVez = False

        'Codigo nuevo para primer campo asociado

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso1.sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        dA.Fill(ds, "CampoAso1")

        cboLevel1.ValueMember = "COD_CAMPO1"

        cboLevel1.DisplayMember = "DES_CAMPO1"

        cboLevel1.DataSource = ds.Tables("CampoAso1").DefaultView

        'Codigo nuevo para primer campo asociado

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso2.sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        dA.Fill(ds, "CampoAso2")

        cboLevel1.ValueMember = "COD_CAMPO_SEC2"

        cboLevel1.DisplayMember = "DES_CAMPO2"

        cboLevel1.DataSource = ds.Tables("CampoAso2").DefaultView

      

        'Código para definir las relaciones con las tablas de los campos asociados ojo notar 'que COD_CAMPO1 se refiere a una columna de cada tabla, es decir COD_CAMPO1 de Tabla 'Relacionada y COD_CAMPO1 de tabla principal. Esto en la simulación por código del INNER 'JOIN

        ds.Relations.Add("CampoAso1_Relacion", ds.Tables("CampoAso1").Columns("COD_CAMPO1"),

ds.Tables("CamposAsociados").Columns("COD_CAMPO1"))

     ds.Relations.Add("CampoAso2_Relacion",ds.Tables("CampoAso2").Columns("COD_CAMPO_SEC2"), ds.Tables("CamposAsociados").Columns("COD_CAMPO_PRINC2"))

    

        Dim oNivel1 As DataColumn = New DataColumn

        oNivel1.DataType = System.Type.GetType("System.String")

        oNivel1.ColumnName = "CampoAso1"

        oNivel1.Expression = "Parent(CampoAso1_Relacion).DES_CAMPO1"

        ds.Tables(Tabla).Columns.Add(oNivel1)

        Dim oNivel2 As DataColumn = New DataColumn

        oNivel2.DataType = System.Type.GetType("System.String")

        oNivel2.ColumnName = "CampoAso2"

        oNivel2.Expression = "Parent(CampoAso2_Relacion).DES_CAMPO2"

        ds.Tables(Tabla).Columns.Add(oNivel2)

      'Aquí fuerzo de nuevo la select principal para que no me de error al realizar 'operaciones con el formulario una vez he cargado el data GridView

        dA.SelectCommand = New OleDb.OleDbCommand("SELECT  COD_ID, DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2 FROM PROPIETARIO.TABLA_PRINCIPAL", cnxPD)

        dA.UpdateCommand = cmdbuilder.GetUpdateCommand()

        dA.DeleteCommand = cmdbuilder.GetDeleteCommand()

        dA.InsertCommand = cmdbuilder.GetInsertCommand()

        Try

            bs.DataSource = ds.Tables(Tabla)

       'Aquí hacemos el binding de los campos de la base de datos con los controles del formulario

            Me.txtColumna.DataBindings.Add(New Binding("Text", bs, "COD_ID"))

            Me.txtDescripcion.DataBindings.Add(New Binding("Text", bs, "DES_PRINCIPAL"))

            Me.cboLevel1.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO1"))

            Me.cboLevel2.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO_PRINC2"))

          

         

            grdResult.Columns(0).MinimumWidth = 50

            grdResult.Columns(1).MinimumWidth = 50  'Descripcion

            grdResult.Columns(2).MinimumWidth = 30  'Campo1

            grdResult.Columns(3).MinimumWidth = 200 'Campo2

        

          

            grdResult.Columns(0).HeaderText = "Identificador"

            grdResult.Columns(1).HeaderText = "Descripción"

            grdResult.Columns(2).HeaderText = "Campo asociado 1"

            grdResult.Columns(3).HeaderText = "Campo Asociado 2"

            grdResult.Refresh()

        Catch ex As Exception

        End Try

    End Sub

Las SELECT principal será de este estilo:

SELECT  COD_ID,  DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2  FROM PROPIETARIO.TABLA_PRINCIPAL

Y las de las tablas secundarias serán así:

SELECT COD_CAMPO1, DES_CAMPO1 FROM PROPIETARIO.TABLA_SEC1

SELECT COD_CAMPO_SEC2, DES_CAMPO2 FROM PROPIETARIO.TABLA_SEC2

Definición del botón para las altas

Private Sub btnAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlta.Click

   

        grbDetalle.Enabled = True

        grbBuscar.Enabled = False

        btnCombosAnidadas.Enabled = False

        drEdit = bs.AddNew()

        bs.MoveLast()

 

        grdResult.Refresh()

    End Sub

Definición del botón para las bajas

Private Sub btnBaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaja.Click

        Dim drv As DataRowView

        Dim b As Integer

       

        Try

            If MsgBox("¿Esta usted seguro que desea borrar este registro?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmación de Baja") = MsgBoxResult.Yes Then

                drv = bs.Current

                b = grdResult.CurrentRow.Index

                drv.Delete()

            End If

            dA.Update(ds, Tabla)

            grbDetalle.Enabled = False

            grdResult.Refresh()

        Catch ex As Exception

            If Mid(ex.Message, 1, 9) = "ORA-00001" Then

                MsgBox("El código  COD_ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            If Mid(ex.Message, 1, 9) = "ORA-02292" Then

                MsgBox("No está permitido el borrado en cascada, asegúrese que el COD_ID no tiene Sub ID´s antes de borrarlo", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            Recargar()

        End Try

    End Sub

Botón para las modificaciones

Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click

     

        grbDetalle.Enabled = True

        grbBuscar.Enabled = False

        

End Sub

Botón aceptar, graba las altas, bajas o modificaciones

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click

        Dim drv As DataRowView

        Try

            drv = bs.Current

            drv("COD_CAMPO1") = cboLevel1.SelectedValue

            drv("COD_CAMPO_SEC2") = cboLevel2.SelectedValue

         

            Traduce(drv) 'traduce las descripciones a códigos

            bs.EndEdit()

            dA.Update(ds, Tabla)

            grbBuscar.Enabled = True

            grbDetalle.Enabled = False

            grdResult.Refresh()

            CamposAsociados() 'refresca los cambios

            bolRefrescar = False

        Catch ex As Exception

            If Mid(ex.Message, 1, 9) = "ORA-00001" Then

                MsgBox("El código COD_ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            bolRefrescar = True

        End Try

End Sub

Botón cancelar

Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        bs.CancelEdit()

        If bolRefrescar Then

            Recargar()

        End If

        grbDetalle.Enabled = False

        grbBuscar.Enabled = True

End Sub

Botón recargar

Sub Recargar()

     bolRefrescar = False

     ds.Tables(0).Clear()

     CamposAsociados()

     grdResult.Refresh()

End Sub

Finalmente este será el código del botón que llama a la pantalla con las dos combos anidadas que cargará los dos campos asociados.

Public Sub btnPaisDom_Click(sender As Object, e As EventArgs) Handles btnPaisDom.Click

        Dim d As New frmNiveles()  'envia los datos del grid al formulario hijo

     

        d.gID = txtColumna.Text

      

        d.cboLevel1.Text = cboLevel1.Text

        d.cboLevel2.Text = cboLevel2.Text

        d.cboLevel1.SelectedItem = cboLevel1.SelectedItem

        d.cboLevel2.SelectedItem = cboLevel2.SelectedItem

        d.ShowDialog()

       

        cboLevel1.Text = d.cboLevel1.Text

        cboLevel2.Text = d.cboLevel2.Text

      

        If Not d.cboLevel1.SelectedItem Is Nothing Then

            txtNivel1.Text = d.cboLevel1.SelectedItem.clave

        End If

        If Not d.cboLevel2.SelectedItem Is Nothing Then

            txtNivel2.Text = d.cboLevel2.SelectedItem.clave

        End If

        d.Close()

    End Sub

End Class

Pasamos al código de la pantalla frmNiveles que cargará dos combos anidadas.

Public Class frmNiveles

  

    Public gID As String

    Private Sub cboLevel1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLevel1.SelectedIndexChanged

        cboLevel2.Items.Clear()

        cboLevel2.Text = ""

        frmNiveles.Cargacombo("\CargarCampoAso2.sql", cboLevel2, DirectCast(Me.cboLevel1.SelectedItem, AddItem).Clave.ToString())

        btnSeleccionar.Enabled = True

    End Sub

    Private Sub frmNiveles_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      

        cboLevel1.Items.Clear()

        cboLevel1.Text = ""

        cboLevel2.Items.Clear()

        cboLevel2.Text = ""

        frmNiveles.Cargacombo("\CargarCampoAso1.sql", cboLevel1, gID)

        btnSeleccionar.Enabled = True

    End Sub

    Private Sub btnSeleccionar_Click(sender As Object, e As EventArgs) Handles btnSeleccionar.Click

       

       Me.Hide()

    End Sub

End Class

El código completo del formulario principal es este:

Imports System.IO

Imports System.Data.OleDb

Imports System.Windows.Forms

Imports System.Data.SqlClient

Public Class frmCamposAsociados

    Public gDataSource As String

    Dim ds As New DataSet()

    Dim bs As BindingSource = New BindingSource()

    Dim dA As New OleDb.OleDbDataAdapter

    Dim drEdit As DataRowView

    Dim bolRefrescar As Boolean

    Dim bolPrimeraVez As Boolean = True

    Const Tabla = "CamposAsociados"

     Private Sub frmCamposaAsociados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.grdResult.DataSource = bs

        txtColumna.MaxLength = 40

  

        CamposAsociados()

        btnModificar.Visible = IIf(ObjetosPermitidos.ContainsKey("btnModificar"), True, False)

        btnBaja.Visible = IIf(ObjetosPermitidos.ContainsKey("btnBaja"), True, False)

        btnAlta.Visible = IIf(ObjetosPermitidos.ContainsKey("btnAlta"), True, False)

        cboDataSource.Text = gDataSource

        btnCombosAnidadas.Enabled = False

    End Sub

    Sub CamposAsociados()

        Dim tb As DataTable

        Dim srSQL As StreamReader

        Dim strConsulta As String

        Dim cmdbuilder As OleDbCommandBuilder

        tb = New DataTable

        'Repeticion si no es la primera vez es que se ha llamado desde el mantenimiento y antes de cargarse debe borrarse la grid

        If Not bolPrimeraVez Then

            ds.Tables("CamposAsociados").Clear()

        End If

        '***********************

        strStartupPath = My.Application.Info.DirectoryPath

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCamposAsociados".sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        cmdbuilder = New OleDbCommandBuilder(dA)

        dA.Fill(ds, "CamposAsociados")

        If Not bolPrimeraVez Then

            Exit Sub

        End If

        bolPrimeraVez = False

        'Codigo nuevo para primer campo asociado

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso1.sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        dA.Fill(ds, "CampoAso1")

        cboLevel1.ValueMember = "COD_CAMPO1"

        cboLevel1.DisplayMember = "DES_CAMPO1"

        cboLevel1.DataSource = ds.Tables("CampoAso1").DefaultView

        'Codigo nuevo para primer campo asociado

        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso2.sql")

        strConsulta = srSQL.ReadToEnd

        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)

        dA.SelectCommand = cmdPD

        dA.Fill(ds, "CampoAso2")

        cboLevel1.ValueMember = "COD_CAMPO_SEC2"

        cboLevel1.DisplayMember = "DES_CAMPO2"

        cboLevel1.DataSource = ds.Tables("CampoAso2").DefaultView

      

        'Código para definir las relaciones con las tablas de los campos asociados ojo notar 'que COD_CAMPO1 se refiere a una columna de cada tabla, es decir COD_CAMPO1 de Tabla 'Relacionada y COD_CAMPO1 de tabla principal. Esto en la simulación por código del INNER 'JOIN

        ds.Relations.Add("CampoAso1_Relacion", ds.Tables("CampoAso1").Columns("COD_CAMPO1"),

ds.Tables("CamposAsociados").Columns("COD_CAMPO1"))

     ds.Relations.Add("CampoAso2_Relacion",ds.Tables("CampoAso2").Columns("COD_CAMPO_SEC2"), ds.Tables("CamposAsociados").Columns("COD_CAMPO_PRINC2"))

    

        Dim oNivel1 As DataColumn = New DataColumn

        oNivel1.DataType = System.Type.GetType("System.String")

        oNivel1.ColumnName = "CampoAso1"

        oNivel1.Expression = "Parent(CampoAso1_Relacion).DES_CAMPO1"

        ds.Tables(Tabla).Columns.Add(oNivel1)

        Dim oNivel2 As DataColumn = New DataColumn

        oNivel2.DataType = System.Type.GetType("System.String")

        oNivel2.ColumnName = "CampoAso2"

        oNivel2.Expression = "Parent(CampoAso2_Relacion).DES_CAMPO2"

        ds.Tables(Tabla).Columns.Add(oNivel2)

      'Aquí fuerzo de nuevo la select principal para que no me de error al realizar 'operaciones con el formulario una vez he cargado el data GridView

        dA.SelectCommand = New OleDb.OleDbCommand("SELECT  COD_ID, DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2 FROM PROPIETARIO.TABLA_PRINCIPAL", cnxPD)

        dA.UpdateCommand = cmdbuilder.GetUpdateCommand()

        dA.DeleteCommand = cmdbuilder.GetDeleteCommand()

        dA.InsertCommand = cmdbuilder.GetInsertCommand()

        Try

            bs.DataSource = ds.Tables(Tabla)

       'Aquí hacemos el binding de los campos de la base de datos con los controles del formulario

            Me.txtColumna.DataBindings.Add(New Binding("Text", bs, "COD_ID"))

            Me.txtDescripcion.DataBindings.Add(New Binding("Text", bs, "DES_PRINCIPAL"))

            Me.cboLevel1.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO1"))

            Me.cboLevel2.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO_PRINC2"))

          

         

            grdResult.Columns(0).MinimumWidth = 50

            grdResult.Columns(1).MinimumWidth = 50  'Descripcion

            grdResult.Columns(2).MinimumWidth = 30  'Campo1

            grdResult.Columns(3).MinimumWidth = 200 'Campo2

        

          

            grdResult.Columns(0).HeaderText = "Identificador"

            grdResult.Columns(1).HeaderText = "Descripción"

            grdResult.Columns(2).HeaderText = "Campo asociado 1"

            grdResult.Columns(3).HeaderText = "Campo Asociado 2"

            'coloca las columnas en la posición deseada

            grdResult.Columns(0).DisplayIndex = 2  'Identificador

            grdResult.Columns(1).DisplayIndex = 1 'Descripcion

            grdResult.Columns(2).DisplayIndex = 4 'Campo1

            grdResult.Columns(3).DisplayIndex = 3 'Campo2

            grdResult.Refresh()

        Catch ex As Exception

        End Try

    End Sub

    Function BuscarCodigoRelacion() As Integer

        Stop

    End Function

    Private Sub grdResult_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdResult.RowEnter

    End Sub

    Private Sub btnFiltro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltro.Click

        Dim strFiltro As String = ""

        Dim vwCamposAsociados As DataView

        If txtFiltroColumna.Text <> "" Then

            If Not strFiltro = "" Then

                strFiltro = strFiltro & " AND "

            End If

            strFiltro = strFiltro & "COD_ID LIKE '%" & UCase(txtFiltroColumna.Text) & "%'"  

        End If

     

        If txtFiltroDescripcion.Text <> "" Then

            If Not strFiltro = "" Then

                strFiltro = strFiltro & " AND "

            End If

            strFiltro = strFiltro & "DES_PRINCIPAL LIKE '%" & txtFiltroDescripcion.Text & "%'"

        End If

     

        If Not ds.Tables("CamposAsociados") Is Nothing Then

            vwCamposAsociados = ds.Tables("CamposAsociados").DefaultView

            vwCamposAsociados.RowFilter = strFiltro

        End If

    End Sub

    Private Sub btnAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlta.Click

      

        grbDetalle.Enabled = True

        grbBuscar.Enabled = False

        btnPaisDom.Enabled = False

        drEdit = bs.AddNew()

        bs.MoveLast()

      

        grdResult.Refresh()

    End Sub

    Private Sub btnBaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaja.Click

        Dim drv As DataRowView

        Dim b As Integer

      

        Try

            If MsgBox("¿Esta usted seguro que desea borrar este registro?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmación de Baja") = MsgBoxResult.Yes Then

                drv = bs.Current

                b = grdResult.CurrentRow.Index

                drv.Delete()

            End If

            dA.Update(ds, Tabla)

            grbDetalle.Enabled = False

            grdResult.Refresh()

        Catch ex As Exception

            If Mid(ex.Message, 1, 9) = "ORA-00001" Then

                MsgBox("El código de ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            If Mid(ex.Message, 1, 9) = "ORA-02292" Then

                MsgBox("No está permitido el borrado en cascada, asegurese que el ID no tiene Sub ID´s antes de borrarla", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            Recargar()

        End Try

    End Sub

    Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click

     

        grbDetalle.Enabled = True

        grbBuscar.Enabled = False

        

    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click

        Dim drv As DataRowView

        Try

            drv = bs.Current

         

            drv("COD_CAMPO1") = cboLevel1.SelectedValue

            drv("COD_CAMPO_SEC2") = cboLevel2.SelectedValue

          

            bs.EndEdit()

            dA.Update(ds, Tabla)

            grbBuscar.Enabled = True

            grbDetalle.Enabled = False

            grdResult.Refresh()

            CamposAsociados() 'refresca los cambios

            bolRefrescar = False

        Catch ex As Exception

            If Mid(ex.Message, 1, 9) = "ORA-00001" Then

                MsgBox("El código ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")

            End If

            bolRefrescar = True

        End Try

    End Sub

   

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        bs.CancelEdit()

        If bolRefrescar Then

            Recargar()

        End If

        grbDetalle.Enabled = False

        grbBuscar.Enabled = True

    End Sub

    Sub Recargar()

        bolRefrescar = False

        ds.Tables(0).Clear()

        CamposAsociados()

        grdResult.Refresh()

    End Sub

    Private Sub txtCodigo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

  

    Private Sub txtColumna_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtColumna.TextChanged

       

        txtColumna.Text = UCase(txtColumna.Text)

        txtColumna.SelectionStart = txtColumna.TextLength + 1

        txtColumna.MaxLength = 10

    End Sub

 

    Sub AplicarFiltro()

        Dim strFiltro As String = ""

        Dim vw CamposAsociados As DataView

    

        If txtFiltroColumna.Text <> "" Then

            If Not strFiltro = "" Then

                strFiltro = strFiltro & " AND "

            End If

            strFiltro = strFiltro & "COD_ID LIKE '%" & UCase(txtFiltroColumna.Text) & "%'"  

        End If

     

        If txtFiltroDescripcion.Text <> "" Then

            If Not strFiltro = "" Then

                strFiltro = strFiltro & " AND "

            End If

            strFiltro = strFiltro & "DES_PRINCIPAL LIKE '%" & txtFiltroDescripcion.Text & "%'"

        End If

     

        If Not ds.Tables("CamposAsociados") Is Nothing Then

            vwCamposAsociados = ds.Tables("CamposAsociados").DefaultView

            vwCamposAsociados.RowFilter = strFiltro

        End If

    End Sub

    Private Sub txtFiltroColumna_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroColumna.TextChanged

        AplicarFiltro()

    End Sub

    Private Sub txtFiltroDescripcion_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroFormato.TextChanged

        AplicarFiltro()

    End Sub

Public Sub btnPaisDom_Click(sender As Object, e As EventArgs) Handles btnPaisDom.Click

        Dim d As New frmNiveles()  'envia los datos del grid al formulario hijo

        d.gID = txtColumna.Text

      

        d.cboLevel1.Text = cboLevel1.Text

        d.cboLevel2.Text = cboLevel2.Text

        d.cboLevel1.SelectedItem = cboLevel1.SelectedItem

        d.cboLevel2.SelectedItem = cboLevel2.SelectedItem

        d.ShowDialog()

      

        cboLevel1.Text = d.cboLevel1.Text

        cboLevel2.Text = d.cboLevel2.Text

      

        If Not d.cboLevel1.SelectedItem Is Nothing Then

            txtNivel1.Text = d.cboLevel1.SelectedItem.clave

        End If

        If Not d.cboLevel2.SelectedItem Is Nothing Then

            txtNivel2.Text = d.cboLevel2.SelectedItem.clave

        End If

        d.Close()

    End Sub

End Class

AWS in a Nutshell 3: Protección de datos

 3.1 información de identificación personal

La privacidad de los datos es a menudo un componente clave impulsado por el cumplimiento normativo. Y es posible gestionarlo en nuestra cuenta de AWS. La información de identificación personal o PII, es cualquier combinación de datos con la cual podemos identificar de forma exclusiva a un individuo. En AWS, podemos usar Amazon Macie para la clasificación de estos datos. También podemos usar otras herramientas, como Amazon Inspector, para ver instancias y aplicaciones y su configuración para garantizar el cumplimiento de las regulaciones diseñadas para proteger datos confidenciales.

3.2 Seguridad y regulaciones

Las regulaciones se pueden usar para asegurar la gestión y mantenimiento de los datos confidenciales para industrias específicas o en diferentes partes del mundo. AWS opera en la mayoría de las partes del mundo y tiene acreditaciones de seguridad para muchos tipos diferentes de organismos reguladores. Esto es importante cuando se trata de la planificación para la adopción de infraestructura en la nube. Debemos echar un vistazo a los servicios de AWS, por ejemplo, que pueden cumplir con un tipo específico de requisitos reglamentarios, y determinar cómo se utilizará ese servicio.

Lo que hay que recordar cuando se trata de Amazon Web Services es que, aunque AWS podría cumplir, digamos, por ejemplo la GDPR, para proteger los datos privados de los ciudadanos de la Unión Europea, es un modelo de responsabilidad compartida en la nube. Donde el cliente, que seríamos nosotros, también es responsable, y parte de la responsabilidad recae en nosotros, para garantizar que cumplamos con ese tipo de normas de seguridad. Por lo tanto, se trata de un proveedor de servicios en la nube de doble vía y el consumidor de la nube debe participar en el cumplimiento de las regulaciones.

3.3 Estándar de seguridad de datos de la industria de tarjetas de pago

El estándar de seguridad de datos de la industria de tarjetas de pago, también conocido como PCI DSS, es un estándar de seguridad internacional. Se aplica a los comerciantes que se ocupan de la información de las tarjetas de crédito del cliente. Por lo tanto, el propósito general de este marco es la protección de los datos del titular de la tarjeta de crédito. Se esfuerza por fortalecer los entornos de procesamiento de tarjetas de pago. Eso significa que cualquier dispositivo conectado en la red y asegurar la red en sí. Pero cada tipo de tarjeta de crédito tiene sus propios detalles específicos de cumplimiento.

3.4 Ley de Responsabilidad y Portabilidad del Seguro de Salud

La información médica protegida, o PHI, es similar a la información de identificación personal PII. Pero la diferencia aquí es que la PHI se centra en datos médicos confidenciales. Esto incluye información de salud pasada y actual, así como detalles de salud futuros relacionados con la atención médica futura, según el seguro de salud y los planes de salud, y cómo se pagará. Ahora, HIPAA, la Ley de Responsabilidad y Portabilidad del Seguro de Salud, está relacionada con información médica demasiado sensible, específicamente en los Estados Unidos.

3.5 Reglamento general de protección de datos

El Reglamento General de Protección de Datos, o GDPR, es un acto legislativo de la Unión Europea, la UE. Y Amazon cumple con muchos tipos diferentes de regulaciones con sus servicios a través de AWS, incluido GDPR. GDPR pone el control de los datos personales en manos del usuario. El usuario del que estamos hablando aquí es un ciudadano de la UE. Estamos hablando de la privacidad de datos de PII. Esta es la recopilación y retención de esos datos confidenciales, su uso y el intercambio de los mismos.

3.6 Implementación de un firewall de aplicaciones web

Un firewall de aplicación web, o WAF,  es un tipo especializado de firewall que está diseñado para proteger contra ataques comunes de aplicaciones web.

Cosas como ataques de falsificación de solicitudes en sitios cruzados, o una variedad de ataques de inyección. Proteger las aplicaciones web de los problemas que pueden resultar de una validación de entrada no válida para formularios basados en la web. 

Para acceder al firewall, desde la consola de AWS tecleamos WAF & Shield y después pinchamos sobre la opción Web ACLs

3.7 Habilitación de AWS Security Hub

AWS Security Hub es una forma centralizada de recibir notificaciones y recomendaciones sobre la seguridad de su entorno de AWS.

Desde la consola de AWS  tecleamos  Security Hub

3.8 Amazon Macie y clasificación de datos

Amazon Macie  es un servicio de AWS diseñado para inventariar y clasificar datos.

El propósito de esto es saber qué tipo de datos hemos almacenado en AWS que podrían considerarse confidenciales para que podamos centrar nuestra atención en ellos para proteger esos datos. Eso a veces requiere cumplimiento normativo. Por lo tanto, Macie está diseñada para buscar información de identificación personal, o PII, También está diseñado para señalar cualquier anomalía relacionada con datos confidenciales. Para usar Macie, debemos habilitarlo pues no está habilitado por defecto. 

Consola →  Amazon Macie → get started → Enable Macie

3.9 Inspector de Amazon

Amazon Inspector es un servicio de AWS que nos permite conocer cualquier posible debilidad en nuestro entorno informático y de aplicaciones en AWS.

Con el tiempo, cuando implementamos una gran cantidad de VPC y subredes e instancias EC2 que contienen componentes de la aplicación, puede ser difícil rastrear exactamente qué tipo de acceso de red a esas instancias está permitido. Con el tiempo, puede haber vulnerabilidades de las que no seamos conscientes. El inspector puede ayudarnos con eso. 

Consola → Inspector → Get started → Run weekly

Pasar datos desde un spreadsheet de google drive a otro spreadsheet

Vamos a trasladar datos desde varios spreadsheets de google drive hasta otro que recepcionará todos los datos. Lo primero que hay que hacer es definir variables para cada spreadshhet y sus correspondientes hojas si hay más de  una.

Aquí se explica cómo escribir código fuente dentro de los documentos de googledrive.