none
Cuadro de dialogo RRS feed

  • Pregunta

  • Hola a todos

    Estoy usando VB 2010 con una base de datos access

    dentro de un formulario con este código muestro un cuadro de diálogo

     

    Dim dialogModal As New dialogControlEditar

    dialogControlEditar.ShowDialog()

     

    Dentro del cuadro de dialogo tengo unas cajas de texto y con un botón cargo unos datos a la base de datos.

    Dim dbObra As New OleDbConnection( _

                                          "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                                          "Password=;User ID=Admin;" & _

                                          "Data Source=" & lblObraCompleto.Text)

    Dim SQL = "INSERT INTO DetEgresos (ID, Cantidad, Descripcion, Precio, Total)" & _

                "VALUES(@ID, @Cantidad, @Descripcion, @Precio, @Total)"

                Dim Cmd As New OleDbCommand(SQL, dbObra)

                Cmd.Parameters.AddWithValue("ID", lblID.Text)

                Cmd.Parameters.AddWithValue("Cantidad", txtCantidad.Text)

                Cmd.Parameters.AddWithValue("Descripcion", txtDescripcion.Text)

                Cmd.Parameters.AddWithValue("Precio", txtUnitario.Text)

                Cmd.Parameters.AddWithValue("Total", lbltotalsimple.Text)

                dbObra.Open()

                Cmd.ExecuteNonQuery()

                dbObra.Close()

     

    Hasta ahi todo bien, pero el tema es que me cierra el cuadro de diálogo al ejecutar este codigo y ejecutando paso a paso me lleva de nuevo a la línea dialogControlEditar.ShowDialog() del formulario. Siendo que este cuadro de diálogo no tiene asignado un AcceptButton

     

    Alquien me puede dar una idea que está pasando?

    Gracias

    Carlos

     

    jueves, 1 de septiembre de 2011 15:31

Todas las respuestas

  • hola

    - este codigo que hace el INSERT INTO en que evento lo defines ?

    - estas de cualidad usando algun try...catch que podria encapsular un error en el form pero que atrapas fuera ? dodne haces el ShowDialog()

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 1 de septiembre de 2011 15:36
  • si en ambos tengo un try - - end try

    en el formulario selecciono unos datos de un datagrid y doy doble click

    Private Sub gridEgresos_CellDoubleClick(ByVal sender As Object, ByVal .......

     

    y en el cuadro de diálogo con un botón

     Private Sub btnCargar_Click(ByVal sender As System.Object, .........

    jueves, 1 de septiembre de 2011 15:42
  •  

    si vas paso a paso en el codigo, luego de ejecutar el execute del command, donde continua ?

     

    por supuesto pon un breakpoint dentro del catch para ver sino va por alli


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 1 de septiembre de 2011 16:00
  • No Pasa por el Catch sino por el End Try de cada evento

    Gracias

    Carlos

    • Editado carlosanpy sábado, 3 de septiembre de 2011 13:29
    jueves, 1 de septiembre de 2011 16:06