none
Adjuntar Archivos a BD SQL SERVER en VB ASP.NET RRS feed

  • Pregunta

  • Hola a todos chicos, Eh tengo un problemilla esta vez resulta que tengo una ventana donde puedo crear requerimientos y puedo adjuntar archivos en el requerimiento creado y lo guardo en un tabla AdjuntoRequerimientos dentro de mi bd, al momento de entrar en la consulta de ver mis requerimientos al darle click al adjuntar los puedo ver solo una vez cuando cierro y abro para verlo o si deseo adjuntar otro archivo mas no me muestra nada.. pero cuando hago el debug si estan pero no me los muestra aqui abajo les dejo el codigo que uso para Mostrar mis adjuntos y les pido porfavor que me ayuden con este error.

    Mil Gracias de Antemano

    Al momento de darle click en Finalizar o volver y vuelvo a entrar a este pop up ya no me aparecen los archivos adjuntos

    Sub MostrarAdjuntos()
            Session("dtFilesTemp") = Nothing
            pCrearTablaTemnporal()
            Dim column As DataColumn
            column = New DataColumn("Adjuntar_ID2", System.Type.GetType("System.Int32"))
            column.AllowDBNull = True
            With objentAdjuntoRequerimiento
                .Requerimiento_ID = Session("Requerimiento_ID")
            End With
            DTArchivos = objnegAdjuntoRequerimiento.negListarRequerimientosAdjuntos(objentAdjuntoRequerimiento)
            DTArchivos.Columns.Add(column)
            For x As Integer = 1 To DTArchivos.Rows.Count
                DTArchivos.Rows(x - 1).Item("Adjuntar_ID2") = x
            Next
            Dim DTArchivosTemp1 As DataTable
            DTArchivosTemp1 = CType(Session("dtFilesTemp"), DataTable)
            For Each fila As DataRow In DTArchivos.Rows
                Dim dtRow As DataRow = DTArchivosTemp1.NewRow
                dtRow("Requerimiento_ID") = fila.Item("Requerimiento_ID")
                dtRow("UsuarioSolicita_ID") = fila.Item("UsuarioSolicita_ID")
                dtRow("UsuarioAdjunta_ID") = fila.Item("UsuarioAdjunta_ID")
                dtRow("UsuarioAdjunta") = ""
                dtRow("FechaAdjunto") = fila.Item("FechaAdjunto")
                dtRow("NombreArchivo") = fila.Item("NombreArchivo")
                dtRow("RutaArchivo") = ""
                dtRow("Terminal") = fila.Item("Terminal")
                dtRow("TipoDocumento_ID") = fila.Item("TipoDocumento_ID")
                dtRow("TipoDocumento") = fila.Item("TipoDocumento")
                dtRow("File") = fila.Item("File_Adjunto")
                dtRow("Tipo_File") = fila.Item("Tipo_File")
                DTArchivosTemp1.Rows.Add(dtRow)
                Session("dtFilesTemp") = DTArchivosTemp1
            Next
            gvArchivosAdjuntos_2.DataSource = DTArchivosTemp1
            gvArchivosAdjuntos_2.DataBind()
        End Sub


    Geller Caceres Analista Programador

    martes, 21 de octubre de 2014 22:53