Skip to main content
se eliminaron 13 caracteres en el cuerpo
Origen Enlace
user128299
user128299

Buen dia.

Realize lo siguente y me funciono correctamente:

Buen dia.

Realize lo siguente y me funciono correctamente:

Realize lo siguente y me funciono correctamente:

Origen Enlace
Giovanni
  • 345
  • 3
  • 15

Buen dia.

Realize lo siguente y me funciono correctamente:

Private Sub btnTomar_Click(sender As Object, e As EventArgs) Handles btnTomar.Click
    Try
        txtIDTemporal.Text = dgvTecnicos.SelectedRows(0).Cells(0).Value.ToString
        txtNuevoStatus.Text = "Fuera de Laboratorio"
        Dim con As String
        con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
        Dim cn As New SqlConnection
        cn.ConnectionString = con
        Dim query As New SqlCommand("update InventarioLab set Status = '" & txtNuevoStatus.Text & "' where ID = " & txtIDTemporal.Text & "", cn)
        cn.Open()
        query.ExecuteNonQuery()
        MsgBox("Se Actualizaron los datos")

        Dim dts As New datos
        Dim funciones As New funcion
        dts.gusuario = My.Forms.IniciodeSecion.UsernameTextBox.Text
        dts.gcontraseña = My.Forms.IniciodeSecion.PasswordTextBox.Text
        dts.gproyecto = Proyecto()

        If funciones.validar(dts) = True And Proyecto() = 1 Then 'El 1 es de Cambium
            obj.MostrarDatosCambium(dgvTecnicos)
        Else
            If funciones.validar(dts) = True And Proyecto() = 2 Then 'El 2 es de Enphase
                obj.MostrarDatosEnphase(dgvTecnicos)
            Else
                If funciones.validar(dts) = True And Proyecto() = 3 Then 'El 3 es de Estructurales
                    obj.MostrarDatosEstructurales(dgvTecnicos)
                Else
                    If funciones.validar(dts) = True And Proyecto() = 4 Then ' El 4 es de ICT
                        obj.MostrarDatosICT(dgvTecnicos)
                    End If
                End If
            End If
        End If
    Catch ex As Exception
        MsgBox("Error al Actualizar Datos : " + ex.ToString)
    End Try
End Sub