28/03/2008, 09:43
|
| | Fecha de Ingreso: septiembre-2007
Mensajes: 58
Antigüedad: 17 años, 4 meses Puntos: 0 | |
Re: Subir archivo.doc al servidor, como se hace. Lo que hago yo es subirlo a la base de datos SQL mediante un el FileUpload de forma binaria y lo bajo de esta manera
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Id As String = Request.QueryString("Id")
Dim con As String = ConfigurationManager.ConnectionStrings("Connection String").ConnectionString
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM Tabla WHERE IdNum='" + Id + "'", con)
Dim ds As DataSet = New DataSet
da.Fill(ds)
Dim dt As DataTable = ds.Tables(0)
If dt.Rows(0)(2).Equals(DBNull.Value) Then
Me.Label1.Visible = True
Me.Label1.Text = "No hay Archivo Disponible"
Else
'Aqui es donde le digo que tipo de archivo voy a traer, si es Word o Excel , etc, si es imagen o pdf no tengo que escribir nada ya que lo escribe sin problema
Response.ContentType = "application/msword"
'Aqui el numero (2) es el numero de fila de la tabla donde esta asignado el campo image
Response.BinaryWrite(CType(dt.Rows(0)(2), Byte()))
End If
End Sub |