none
adaptar codigo en windows From a WPF para abrir RRS feed

  • Pregunta

  • hola foro: estoy tratando de adaptar este codigo que funciona perfectamnente en windows from:

    Private Sub lista_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
            Dim id As Integer = Integer.Parse(grilla.CurrentCell.Item(0))
            If grilla.Items.Count > 0 Then
                Using db As INPEDataBaseEntities = New INPEDataBaseEntities()
                    Dim objDocumento = db.Documents.Find(id)
                    Dim path As String = AppDomain.CurrentDomain.BaseDirectory
                    Dim folder As String = path & "/temp/"
                    Dim fullfilePath As String = folder & objDocumento.realName
                    If Not Directory.Exists(folder) Then Directory.CreateDirectory(folder)
                    File.WriteAllBytes(fullfilePath, objDocumento.doc)
                    Process.Start(fullfilePath)
                End Using
            End If
        End Sub

    y quiero adaptar en WPF tres capas, aqui hasta donde llegue:

     Public Shared Function ObtenerTodos() As List(Of DietaEntity)
            Dim lista As New List(Of DietaEntity)()
            Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("defaultEconomato").ToString())
                conn.Open()
                Dim today = Date.Today
                Dim query As String = "SELECT        ID, name, realName, doc, FechaAsignacion, HoraAsignacion, Estado
                                        FROM            dbo.Documents "
                Dim cmd As New SqlCommand(query, conn)
                Dim reader As SqlDataReader = cmd.ExecuteReader()
                While reader.Read()
                    lista.Add(ConvertirEmpleado(reader))
                End While
            End Using
            Return lista
        End Function

        Private Shared Function ConvertirEmpleado(ByVal reader As IDataReader) As DietaEntity
            Dim empleado As New DietaEntity()
            empleado.Id = Convert.ToInt32(reader("ID"))
            empleado.str_ApellidosDeInterno = Convert.ToString(reader("name"))
            empleado.str_NombresDeInterno = Convert.ToString(reader("realName"))
            empleado.Pabellon = Convert.ToString(reader("doc"))
            empleado.FechaFin = Convert.ToDateTime(reader("FechaAsignacion"))
            empleado.FechaInicio = Convert.ToDateTime(reader("HoraAsignacion"))
            empleado.Diagnostico = Convert.ToString(reader("Estado"))
            Return empleado
        End Function

     Private Sub grilla_SelectedCellsChanged(sender As Object, e As SelectedCellsChangedEventArgs) Handles grilla.SelectedCellsChanged
            If grilla.Items.Count > 0 Then
                Dim id As Integer = grilla.SelectedItem(1).ToString
                MsgBox(id)
                'Using db As Modelo.SCA_DataBaseEntities = New Modelo.SCA_DataBaseEntities()
                '    Dim objDocumento = db.tbl_Documento.Find(id)
                '    Dim path As String = AppDomain.CurrentDomain.BaseDirectory
                '    Dim folder As String = path & "/temp/"
                '    Dim fullfilePath As String = folder & objDocumento.realName
                '    If Not Directory.Exists(folder) Then Directory.CreateDirectory(folder)
                '    File.WriteAllBytes(fullfilePath, objDocumento.doc)
                '    Process.Start(fullfilePath)
                'End Using
            End If
        End Sub

    primero me aparece error cuando intento obtener el ID del datagrid que luego servira obtener y abrir lo que esta guardado en doc, pero este codigo tendra que cambiar para lo que intento lograr y abrir lo que esta guardado en doc.

    por favor podriandarme un ejemplo para abrir lo que esta guardado.

    lunes, 7 de marzo de 2022 14:37