none
Sql ce insertar combobox RRS feed

  • Pregunta

  • Estimados, no he logrado insertar un valor id de un combobox, ojala me puedan brindar una mano

    he intentado Convert.ToString (cmb_produccion.SelectedValue), pero nada

      Dim sql As String = "UPDATE DESPACHO SET ID_EST_DESPACHO = @a, ID_PROCESO = @1, ID_TIPO_PRODUCTO = @2, ID_PRODUCTO = @3, ID_CLIENTE = @4, DESCRIP_DESPACHO = @5, " & _

                               "OC_DESPACHO = @6, NCONT_DESPACHO = @7 WHERE ID_DESPACHO = " & cmb_folios.SelectedValue & ""
            Dim command As New SqlCeCommand(sql, conectar)
            With command.Parameters
                .Clear()
                .Add("@a", SqlDbType.Int, 5).Value = "1"
                .Add("@1", SqlDbType.Int, 5).Value = cmb_produccion.SelectedValue
                .Add("@2", SqlDbType.Int, 5).Value = cmb_tprod.SelectedValue
                .Add("@3", SqlDbType.Int, 5).Value = cmb_producto.SelectedValue
                .Add("@4", SqlDbType.Int, 5).Value = cmb_cliente.SelectedValue
                .Add("@5", SqlDbType.NVarChar, 200).Value = txt_descripcion.Text
                .Add("@6", SqlDbType.NVarChar, 200).Value = txt_oc.Text
                .Add("@7", SqlDbType.NVarChar, 200).Value = txt_ncontenedor.Text
            End With


    jueves, 30 de julio de 2015 13:58

Respuestas

  • Amigos ya encontré la respuesta, en el evento SelectedValue lo pasaba como objeto, asi que en el evento IndexChanged pase los valores a un label con el id de la selección

            Dim selectedValue As DataRowView = TryCast(cmb_produccion.SelectedValue, DataRowView)
            If selectedValue IsNot Nothing Then
                lbl_procprod.Text = Convert.ToInt32(selectedValue.Row("id_proceso"))
            Else
                lbl_procprod.Text = Convert.ToInt32(cmb_produccion.SelectedValue)
            End If

    y así con cada uno de los combobox, pero no lo pude hacer directamente del combobox al parametro que tena que pasar.


    viernes, 31 de julio de 2015 11:59