none
Insertar un dato en todos los registros con checkbox seleccionado de un Datagridview . Access y VB.NET RRS feed

  • Pregunta

  • Hola, necesito saber como puedo hacer para cargar datos a todos los registros de una tabla en access.

    Por ejemplo, voy a cargar un concepto de gasto por 100 pesos , pero lo tengo que cargar a la mayoria de mis registros en el campo gasto a través de el id. como puedo hacer una función para que me pregunte "SI QUIERO CARGAR EL GASTO A TODOS LOS REGISTROS O SOLO A UNO" y q al seleccionar a uno me de la opción de elegir a cual id se cargara este gasto y q a elegir a todos se haga automáticamente la carga del gasto a todos. Manejo una bd en Access y tengo mi proyecto en vb.net

    de antemano muchas gracias.

    martes, 20 de agosto de 2013 20:15

Todas las respuestas

  • Hola Luis.

    Yo lo que haría sería llamar a la sentencia for each para detectar cual es el campo que se ha checkeado y, una vez con el campo checkeado, llamar a la consulta insert del ID checkeado.

    Espero que te sea de ayuda.

    Saludos!!

    martes, 20 de agosto de 2013 20:26
  • Sí deseas que te pregunte sí deseas cargar los datos...

    Dim resultado As DialogResult = MessageBox.Show("CONFIRME SI DESEA GUARDAR LOS DATOS?", "SisContratos!!!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

    If resultado = DialogResult.Yes Then

    'Aquí defines la conexión de la base de datos SQL Connection

    'La cadena de conexión

    'El date table

    'La Consulta...Ej

    Dim Guardar As String = "insert into DetalleCreditos(Cedula, NContrato, Fecha, Abono, SaldoActual, FechaVenceAbono, IdRecibo) values ('" & cbCedulaContrato.Text & "','" & cbNContrato.Text & "','" & dtpFechaAbonoE.Value & "','" & NumAbono.Value & "', '" & NumSaldoCargado.Value & "', '" & dtpfechaBonoSig.Value & "', '" & IdRecibo.Text & "')"

    'Abrir la conexión

    Mostrar mensaje

    Cerrar conexion

    End If

    Luego cargas esto en el txtbox que tu asigne en el formulario.. y puedes en el evento del botón pasarle la suma o lo datos, si es numerico por eje,,..

    Try
                Dim resultado As DialogResult = MessageBox.Show("ESTA SEGURO QUE DESEA CARGAR ABONO DE OTRO CONTRATO DEL MISMO CLIENTE...", "SisContratos!!!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
                If resultado = DialogResult.Yes Then
                    NumCargadoSaldo.Value = ((NumCalculado.Value) + (NumSaldoCargado.Value))
                    GBSeleccionar.Visible = True
                else
                    resultado = Windows.Forms.DialogResult.No
                    GBSeleccionar.Visible = True
                    NumCargadoSaldo.Value = 0
                End If
            Catch ex As Exception
                'MsgBox(ex.Message.ToString())
                MsgBox("POR FAVOR COMPRUEBE LOS VALORES DE DATOS, CARGUE DE NUEVO", MsgBoxStyle.Exclamation)
            End Try

    IDEAS,,,"

    ESPERANDO QUE SEA UTIL, NO OLVIDES MARCAR SI ES UTIL... PORQUE EL TIEMPO INVERTIDO ES LA SATISFACCIÓN QUE TE AYUDO EN ALGO...!


    Carlos Israel

    • Propuesto como respuesta Gómez Carlos martes, 20 de agosto de 2013 22:33
    martes, 20 de agosto de 2013 22:33
  • Hola, muchas gracias por tu respuesta, y disculpa mi atrevimiento, pero me podrias poner un ejemplo, de antemano gracias
    miércoles, 21 de agosto de 2013 21:42
  • muy buen aporte
    lunes, 25 de noviembre de 2013 17:54
  • Estos procedimientos son Insert para agregar un registro o Update para la tabla
    miércoles, 27 de noviembre de 2013 15:15