Thread View: chile.comp.programacion
2 messages
2 total messages
Started by Kryzpo
Tue, 24 Apr 2007 20:39
Vincular archivo con registro SQL.
Author: Kryzpo
Date: Tue, 24 Apr 2007 20:39
Date: Tue, 24 Apr 2007 20:39
70 lines
2898 bytes
2898 bytes
Me explico.
En una aplicaci�n que estoy haciendo en ASP 2.0 y VB, estoy ingresando un
formulario con varios datos, de los cuales entre otras cosas me interesa
subir un archivo adjunto a tal registro. Eso ya lo tengo solucionado, puedo
subir archivos y esas cosas, pero lo que quiero hacer es lo siguiente:
En la tabla, tengo un atributo llamado "Ruta", en el cual quiero guardar la
ruta en la que qued� guardado el archivo en cuesti�n, para luego poder
acceder a este registro y poder ver este archivo. No quiero almacenar el
archivo como binario, porque estos pueden llegar a ser muy grandes.
El c�digo del bot�n que sube el archivo es el siguiente:
If fuAlmacen.HasFile Then
Dim fileExt As String
fileExt = System.IO.Path.GetExtension(fuAlmacen.FileName)
If (fileExt = ".doc" Or fileExt = ".pdf" Or fileExt = ".xls" Or fileExt =
".ppt" Or fileExt = ".dwg") Then
Try
fuAlmacen.SaveAs("E:\Sitios\ICR\Sistema\Almacen\Biblioteca\" & _
fuAlmacen.FileName)
tbAlmacen.Text = "Archivo: " & _
fuAlmacen.PostedFile.FileName & "<br>" & _
"Tama�o: " & _
fuAlmacen.PostedFile.ContentLength & " kb<br>" & _
"Tipo Archivo: " & _
fuAlmacen.PostedFile.ContentType
Catch ex As Exception
tbAlmacen.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
tbAlmacen.Text = "Archivos permitidos: Word, PDF, Excel, PowerPoint,
Autocad."
End If
Else
tbAlmacen.Text = "No ha especificado un archivo."
End If
End Sub
Otra consulta, que no he podido pillar mucho en Internet. Existe una foma
para que los archivos queden guardados en una ruta relativa o web, pero de
la forma que estoy haciendo esto no es permitido, he probado otras cosas que
he encontrado, pero tienen algunos problemas con algunos archivos y con
tama�os y esas cosas, si alguien me puede guiar un poquito genial.
Gracias por todo, salu2..
Re: Vincular archivo con registro SQL.
Author: Kryzpo
Date: Tue, 24 Apr 2007 21:22
Date: Tue, 24 Apr 2007 21:22
92 lines
3674 bytes
3674 bytes
Pff, no s� qu� tengo en la cabeza.
Junt� la ruta que le di m�s el .Filename, jeje, eso era todo :P
Bueno, sigue pendiente la segunda pregunta:
> Otra consulta, que no he podido pillar mucho en Internet. Existe una foma
> para que los archivos queden guardados en una ruta relativa o web, pero de
> la forma que estoy haciendo esto no es permitido, he probado otras cosas
> que he encontrado, pero tienen algunos problemas con algunos archivos y
> con tama�os y esas cosas, si alguien me puede guiar un poquito genial.
>
> Gracias por todo, salu2..
"Kryzpo" <asvSINESTACUESTION@vtrSiNEstOTampocO.net> escribi� en el mensaje
news:f0lbs2$plm$1@news.nivel5.cl...
> Me explico.
>
> En una aplicaci�n que estoy haciendo en ASP 2.0 y VB, estoy ingresando un
> formulario con varios datos, de los cuales entre otras cosas me interesa
> subir un archivo adjunto a tal registro. Eso ya lo tengo solucionado,
> puedo subir archivos y esas cosas, pero lo que quiero hacer es lo
> siguiente:
>
> En la tabla, tengo un atributo llamado "Ruta", en el cual quiero guardar
> la ruta en la que qued� guardado el archivo en cuesti�n, para luego poder
> acceder a este registro y poder ver este archivo. No quiero almacenar el
> archivo como binario, porque estos pueden llegar a ser muy grandes.
>
> El c�digo del bot�n que sube el archivo es el siguiente:
>
> If fuAlmacen.HasFile Then
>
> Dim fileExt As String
>
> fileExt = System.IO.Path.GetExtension(fuAlmacen.FileName)
>
> If (fileExt = ".doc" Or fileExt = ".pdf" Or fileExt = ".xls" Or fileExt =
> ".ppt" Or fileExt = ".dwg") Then
>
> Try
>
> fuAlmacen.SaveAs("E:\Sitios\ICR\Sistema\Almacen\Biblioteca\" & _
>
> fuAlmacen.FileName)
>
> tbAlmacen.Text = "Archivo: " & _
>
> fuAlmacen.PostedFile.FileName & "<br>" & _
>
> "Tama�o: " & _
>
> fuAlmacen.PostedFile.ContentLength & " kb<br>" & _
>
> "Tipo Archivo: " & _
>
> fuAlmacen.PostedFile.ContentType
>
> Catch ex As Exception
>
> tbAlmacen.Text = "ERROR: " & ex.Message.ToString()
>
> End Try
>
> Else
>
> tbAlmacen.Text = "Archivos permitidos: Word, PDF, Excel, PowerPoint,
> Autocad."
>
> End If
>
> Else
>
> tbAlmacen.Text = "No ha especificado un archivo."
>
> End If
>
> End Sub
>
>
> Otra consulta, que no he podido pillar mucho en Internet. Existe una foma
> para que los archivos queden guardados en una ruta relativa o web, pero de
> la forma que estoy haciendo esto no es permitido, he probado otras cosas
> que he encontrado, pero tienen algunos problemas con algunos archivos y
> con tama�os y esas cosas, si alguien me puede guiar un poquito genial.
>
> Gracias por todo, salu2..
>
>
>
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads