🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: chile.comp.programacion
2 messages
2 total messages Started by Kryzpo Tue, 24 Apr 2007 20:39
Vincular archivo con registro SQL.
#988
Author: Kryzpo
Date: Tue, 24 Apr 2007 20:39
70 lines
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.
#989
Author: Kryzpo
Date: Tue, 24 Apr 2007 21:22
92 lines
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