none
necesito actualizar mi datagridview cuando acceso registro RRS feed

  • Pregunta

  • como actualizar al momento de agregar un registro

    este es mi código de todo este formulario si pudieran ilustrarme les agradecería mucho de antemano muchas gracias

    Imports System.Data
    Imports System.Data.OleDb

    Public Class frmmuestras
        'redimension de formularios
        Public Class clsResizeForm
            Dim f_HeightRatio As Single = New Single
            Dim f_WidthRatio As Single = New Single
            Public Sub ResizeForm(ObjForm As Form, DesignerWidth As Integer, DesignerHeight As Integer)
                Dim i_StandardHeight As Integer = DesignerHeight
                Dim i_StandardWidth As Integer = DesignerWidth
                Dim i_PresentHeight As Integer = Screen.PrimaryScreen.Bounds.Height
                Dim i_PresentWidth As Integer = Screen.PrimaryScreen.Bounds.Width
                f_HeightRatio = (CSng(i_PresentHeight) / CSng(i_StandardHeight))
                f_WidthRatio = (CSng(i_PresentWidth) / CSng(i_StandardWidth))
                ObjForm.AutoScaleMode = AutoScaleMode.None
                ObjForm.Scale(New SizeF(f_WidthRatio, f_HeightRatio))
                For Each c As Control In ObjForm.Controls
                    If c.HasChildren Then
                        ResizeControlStore(c)
                    Else
                        c.Font = New Font(c.Font.FontFamily, c.Font.Size * f_HeightRatio, c.Font.Style, c.Font.Unit, (CByte(0)))
                    End If
                Next
                ObjForm.Font = New Font(ObjForm.Font.FontFamily, ObjForm.Font.Size * f_HeightRatio, ObjForm.Font.Style, ObjForm.Font.Unit, (CByte(0)))
            End Sub
            Private Sub ResizeControlStore(objCtl As Control)
                If objCtl.HasChildren Then
                    For Each cChildren As Control In objCtl.Controls
                        If cChildren.HasChildren Then
                            ResizeControlStore(cChildren)
                        Else
                            cChildren.Font = New Font(cChildren.Font.FontFamily, cChildren.Font.Size * f_HeightRatio, cChildren.Font.Style, cChildren.Font.Unit, (CByte(0)))
                        End If
                    Next
                    objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, (CByte(0)))
                Else
                    objCtl.Font = New Font(objCtl.Font.FontFamily, objCtl.Font.Size * f_HeightRatio, objCtl.Font.Style, objCtl.Font.Unit, (CByte(0)))
                End If
            End Sub
        End Class

        Dim conexion As New OleDbConnection
        Dim comandos As New OleDbCommand


        'conexion a la base de datos que se encuentra en u
        Private Sub Form1mr_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: esta línea de código carga datos en la tabla 'MRL1DataSet11.Muestrasretencion' Puede moverla o quitarla según sea necesario.
            Me.MuestrasretencionTableAdapter3.Fill(Me.MRL1DataSet11.Muestrasretencion)
            ' redimension 
            Dim classResize As New clsResizeForm
            classResize.ResizeForm(Me, 1280, 800)

            'TODO: esta línea de código carga datos en la tabla 'MRL1DataSet.Muestrasretencion' Puede moverla o quitarla según sea necesario.
            Me.MuestrasretencionTableAdapter1.Fill(Me.MRL1DataSet.Muestrasretencion)

            Me.CenterToScreen()

            dptime.Value = DateTime.Now
            'TODO: esta línea de código carga datos en la tabla 'MRDataSet.Muestrasretencion' Puede moverla o quitarla según sea necesario.
            ' Me.MuestrasretencionTableAdapter.Fill(Me.MRDataSet.Muestrasretencion)

            ' se realiza la conexion con la base de datos

            Try
                ' verdad

                conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=U:\Manuales del SCCC\Registros de Calidad\RESPALDOS\Produccion\Verificaciones\MUESTRAS DE RETENCIÒN\MUESTRAS DE RETENCIÒN L1\Base de Datos Muestras de RetencionL1\MRL1.accdb"
                conexion.Open()
                'MsgBox("conectado a la base de  datos", vbInformation, " Correcto")
            Catch ex As Exception
                'falso
                MsgBox("Error al conectar con la base de datos", vbCritical, "sin conexion")
            End Try
        End Sub


        ''''' codigo que guarda los datos en la base de datos
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnguardar.Click

            Try
                comandos = New OleDbCommand(" INSERT INTO Muestrasretencion (FechaEmbotellado,linea, hora, Producto, tamaño, Codigo, EncargadoPruebas,Tanque, Registrodatalyzer)" & Chr(13) &
                                            "VALUES (dpemb, cblinea,dptime, cbProducto,cbtamaño,dpcodigo,cbep, cbtanque, txtregistrodatalyzer )", conexion)

                comandos.Parameters.AddWithValue("@FechaEmbotellado", dpemb.Value.ToShortDateString)
                comandos.Parameters.AddWithValue("@linea", cblinea.Text)
                comandos.Parameters.AddWithValue("@Hora", dptime.Value)
                comandos.Parameters.AddWithValue("@Producto", cbproducto.Text)
                comandos.Parameters.AddWithValue("@Tamaño", cbtamaño.Text)
                comandos.Parameters.AddWithValue("@Codigo", dpcodigo.Value.ToShortDateString)
                comandos.Parameters.AddWithValue("@EncargadoPruebas", cbep.Text)
                comandos.Parameters.AddWithValue("@Tanque", cbtanque.Text)
                comandos.Parameters.AddWithValue("@Registrodatalyzer", txtregdatalyzer.Text)
                comandos.ExecuteNonQuery()

                MsgBox("Guardado", vbInformation, "Correcto")
            Catch ex As Exception
                MsgBox("Error al guardar en base da datos", vbCritical, " Atención")
            End Try

            If dpemb.Value < DateTime.Now.Date Then
                MsgBox("Falta colocar la fecha de embotellado", vbExclamation, "Atención...")

                ' ElseIf dptime.Value > DateTime.Now Then
                '  MsgBox("Falta colocar la Hora", vbExclamation, "Atención...")
            ElseIf cblinea.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "linea")
            ElseIf cbproducto.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "Producto")

            ElseIf cbtamaño.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "Tamaño")

            ElseIf dpcodigo.Value < DateTime.Now.Date Then
                MsgBox("Falta colocar la fecha de Codigo", vbExclamation, "Atención...")

            ElseIf cbep.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "Encargado de Pruebas")
            ElseIf cbtanque.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "tanque")
            ElseIf txtregdatalyzer.Text = "" Then
                MsgBox("Error, no se ha seleccionado nada", vbCritical, "Registro datalyzer")
            End If


        Me.MuestrasretencionTableAdapter1.Fill(Me.MRL1DataSet.Muestrasretencion)

            Datosrevision.ResetBindings()
        End Sub


        Private Sub Form1mr_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
            conexion.Close()

        End Sub

        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
            conexion.Close()
            Me.Close()


        End Sub
        ' limpieza de textbox y combobox
        Private Sub btnguardarotro_Click(sender As Object, e As EventArgs) Handles btnguardarotro.Click

            ' dphora.Clear()

            'cbproducto.Text = ""
            ' cbproducto.Items.Clear()
            cbproducto.SelectedIndex = -1
            'cbtamaño.Text = ""
            cbtamaño.SelectedIndex = -1
            'cbtamaño.Items.Clear()
            'dpcodigo.rest()
            'cbep.Items.Clear()
            'cbep.Text = ""
            cbep.SelectedIndex = -1
            'cbtanque.Items.Clear()
            'cbtanque.Text = ""
            cbtanque.SelectedIndex = -1
            txtid.Clear()



        End Sub
        'Codigo que permite cambiar con enter a la otra celda. 
        'para cambiar con enter solamente , solo se coloca este codigo en todos ninguna caracteristica especial  solo keypress

        Private Sub txtfemb_KeyPress(sender As Object, e As KeyPressEventArgs)
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            End If

        End Sub

        Private Sub txtcodigo_KeyPress(sender As Object, e As KeyPressEventArgs)
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            End If
        End Sub


        Private Sub txthora_KeyPress(sender As Object, e As KeyPressEventArgs)
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            End If
        End Sub

        Private Sub txtproducto_KeyPress(sender As Object, e As KeyPressEventArgs)
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            End If
        End Sub

        Private Sub txtregdatalyzer_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtid.KeyPress
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            End If
        End Sub
        ' cambio de menu para menu buscar
        Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click
            frmbuscar.Show()
            Me.Visible = False

        End Sub

        Private Sub cbproducto_KeyDown(sender As Object, e As KeyEventArgs) Handles cbproducto.KeyDown
            If (e.KeyCode = Keys.Enter) Then
                cbtamaño.Focus()
            End If

        End Sub


        Private Sub cbtamaño_KeyDown(sender As Object, e As KeyEventArgs) Handles cbtamaño.KeyDown
            If (e.KeyCode = Keys.Enter) Then
                dpcodigo.Focus()
            End If
        End Sub

        Private Sub cbep_KeyDown(sender As Object, e As KeyEventArgs) Handles cbep.KeyDown
            If (e.KeyCode = Keys.Enter) Then
                cbtanque.Focus()
            End If
        End Sub



        Private Sub cbtanque_KeyDown(sender As Object, e As KeyEventArgs) Handles cbtanque.KeyDown
            If (e.KeyCode = Keys.Enter) Then
                txtid.Focus()
            End If
        End Sub


        Private Sub Label9_Click(sender As Object, e As EventArgs) Handles hoy.Click
            hoy.Text = Date.Now()
        End Sub

        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)

        End Sub


        'Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs)
        '    Try
        '        Me.MuestrasretencionTableAdapter1.FillBy(Me.MRL1DataSet.Muestrasretencion)
        '    Catch ex As System.Exception
        '        System.Windows.Forms.MessageBox.Show(ex.Message)
        '    End Try

        'End Sub




        Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs) Handles FillByToolStripButton.Click
            Try
                Me.MuestrasretencionTableAdapter3.FillBy(Me.MRL1DataSet11.Muestrasretencion)
            Catch ex As System.Exception
                System.Windows.Forms.MessageBox.Show(ex.Message)
            End Try

        End Sub

        Private Sub FillBy1ToolStripButton_Click(sender As Object, e As EventArgs) Handles FillBy1ToolStripButton.Click
            Try
                Me.MuestrasretencionTableAdapter3.FillBy1(Me.MRL1DataSet11.Muestrasretencion)
            Catch ex As System.Exception
                System.Windows.Forms.MessageBox.Show(ex.Message)
            End Try

        End Sub
    End Class

    • Cambiado Enrique M. Montejo domingo, 8 de febrero de 2015 10:27 Pregunta relacionada con el acceso a datos.
    jueves, 5 de febrero de 2015 12:08