[Tutorial] Subir archivos al Servidor y agregarlos en la BD usando ASP.NET y Ajax

[enla]

Buenas Noches, les saludas un forero más que trata de hacer desarrollo de aplicaciones Windows y web en el paso de los días comenzare hacerlo este es mi primer tutorial en este foro, espero que sea de agrado,
Subir archivos al Servidor y agregarlos en la BD usando ASP.NET y Ajax
Para lograr este cometido, se necesitará visual Studio 2005 o superior y/o contar con el Net Framework 2.0, además vamos a bajar un componente llamado FileUploadAjax (es un control open source para ASP.NET 2.0 de un modo de uso muy similar al tradicional FileUpload pero con una diferencia clave: ¡comportamiento AJAX!) para ello lo podemos descargar del siguiente enlace

Código:

http://download.codeplex.com/Project/Download/FileDownload.aspx?ProjectName=fileuploadajax&DownloadId=20976&FileTime=128382497345600000&Build=16821

Lo descomprimen y dentro de ello encontraran un archivo, fua.dll este archivo lo anexaremos al Visual Studio (Visual Web Developer).
Para ello ingresamos al Visual Studio (en mi caso uso el 2010) y de ahí creamos un proyecto web.

Luego nos dirigimos a la barra de herramientas y a la pestaña general, le das un clic derecho, y la opción Elegir elementos

aparecerá un cuadro de dialogo donde damos clic en examinar

después de ello buscamos donde se encuentra el archivo fua.dll

y lo aceptamos y aplicamos y aceptamos.


Aparecerá un nuevo control, este control lo jalamos al espacio de trabajo, y le hacemos la siguiente configuración


Ahora creamos nuestra tabla en nuestra base de datos.


Aqui les dejo del codigo que se podra activar dandole clic en la pagina en modo diseño.

Código vb:

'Agregamos las referencias que necesitamos.
Imports Subgurim.Controles     'Esta referencia es la utilizacion del Control FileuploadAjax.
Imports System                 'Nos ayuda a tener el control de las carpetas del servidor.
Imports System.IO              'Nos ayuda a tener el control de las carpetas del servidor.
Imports System.Web             'Configuraciones web.
Imports System.Data.SqlClient  'Acceso a la base de datos.
 
Partial Class CargarArchivo
    Inherits System.Web.UI.Page
    Private tempfolder As String = New String("~/archivos") ' Carpeta donde se almacenarán los archivos.
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If FileUploaderAJAX1.IsPosting Then
            manejoarchivos()
        End If
    End Sub
 
    Private Sub manejoarchivos()
        Dim pf As HttpPostedFileAJAX = FileUploaderAJAX1.PostedFile 'Pasamos las propiedas del archivo que se ha cargado.
        If pf.Type = HttpPostedFileAJAX.fileType.image Then 'Verificamos que solo pase archivos tipo imagen
            FileUploaderAJAX1.SaveAs(tempfolder, pf.FileName)       'Carga el archivo en el servidor.
            grabarBD(pf.FileName_Path, pf.ContentLength)            'Procedimiento para guardar la ruta en la base de datos.
        End If
    End Sub
    Private Sub grabarBD(ByVal ruta As String, ByVal tamanhio As Long)
        Dim conexion As String
        Dim strsql As String
        Dim objcn As SqlConnection
        Dim objcmd As SqlCommand
        Try
            conexion = ConfigurationManager.ConnectionStrings("ConectarBD").ConnectionString  'Cadena de conexión de la base de datos
            objcn = New SqlConnection(conexion)  'Instanciamos la conexión con el servidor de datos
            If objcn.State = Data.ConnectionState.Closed Then 'Verificamos si la conexión esta cerrada
                objcn.Open() 'Abrimos la conexión
            End If
            strsql = "insert into Ruta_Archivos(Ruta, Tamanio) values ('" & ruta & "'," & tamanhio & ")" 'Sentencia SQL para la inserción de los datos
            objcmd = New SqlCommand(strsql, objcn) 'Habilita la Transact-SQL
            objcmd.ExecuteNonQuery() 'Ejecuta la sentencia SQL
        Catch generatedExceptionName As Exception
            FileUploaderAJAX1.text_Delete = FileUploaderAJAX1.text_Delete & " " & Err.Description 'Si existe algun error lo muestra en el texto del borrado
        Finally
            objcn.Close() 'Cerramos la conexion
        End Try
    End Sub
End Class
 

Espero que sea de su agrado y tambien para que muchos que conozcan tambien publiquen sus conocimientos, si tienen problemas no se olviden en postear en este mismo hilo.

[yatiac]

se ve muy bueno e interesante, no tendras el codigo en c# ?

[enla]

Iniciado por yatiac

se ve muy bueno e interesante, no tendras el codigo en c# ?

Traducido a codigo C sharp

Código C#:

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
//Agregamos las referencias que necesitamos.
using Subgurim.Controles;
//Esta referencia es la utilizacion del Control FileuploadAjax.
//Nos ayuda a tener el control de las carpetas del servidor.
using System.IO;
//Nos ayuda a tener el control de las carpetas del servidor.
using System.Web;
//Configuraciones web.
using System.Data.SqlClient;
//Acceso a la base de datos.
 
partial class CargarArchivo : System.Web.UI.Page
{
        // Carpeta donde se almacenarán los archivos.
    private string tempfolder = new string("~/archivos");
    protected void Page_Load(object sender, System.EventArgs e)
    {
        if (FileUploaderAJAX1.IsPosting) {
            manejoarchivos();
        }
    }
 
    private void manejoarchivos()
    {
        HttpPostedFileAJAX pf = FileUploaderAJAX1.PostedFile;
        //Pasamos las propiedas del archivo que se ha cargado.
        //Verificamos que solo pase archivos tipo imagen
        if (pf.Type == HttpPostedFileAJAX.fileType.image) {
            FileUploaderAJAX1.SaveAs(tempfolder, pf.FileName);
            //Carga el archivo en el servidor.
            grabarBD(pf.FileName_Path, pf.ContentLength);
            //Procedimiento para guardar la ruta en la base de datos.
        }
    }
    private void grabarBD(string ruta, long tamanhio)
    {
        string conexion = null;
        string strsql = null;
        SqlConnection objcn = null;
        SqlCommand objcmd = null;
        try {
            conexion = ConfigurationManager.ConnectionStrings("ConectarBD").ConnectionString;
            //Cadena de conexión de la base de datos
            objcn = new SqlConnection(conexion);
            //Instanciamos la conexión con el servidor de datos
            //Verificamos si la conexión esta cerrada
            if (objcn.State == Data.ConnectionState.Closed) {
                objcn.Open();
                //Abrimos la conexión
            }
            strsql = "insert into Ruta_Archivos(Ruta, Tamanio) values ('" + ruta + "'," + tamanhio + ")";
            //Sentencia SQL para la inserción de los datos
            objcmd = new SqlCommand(strsql, objcn);
            //Habilita la Transact-SQL
            objcmd.ExecuteNonQuery();
            //Ejecuta la sentencia SQL
        } catch (Exception generatedExceptionName) {
            FileUploaderAJAX1.text_Delete = FileUploaderAJAX1.text_Delete + " " + Err.Description;
            //Si existe algun error lo muestra en el texto del borrado
        } finally {
            objcn.Close();
            //Cerramos la conexion
        }
    }
    public CargarArchivo()
    {
        Load += Page_Load;
    }
}
 

[yatiac]

muchas gracias!! =)

[makubexD]

Un saludo amigo!! veo que tienes mucha experiencia en esto de VB.net y SQL server 2008

Y nose me estaba preguntando si m podrias ayudar con esto!!

Como hago para almacenar una imagen en la BD desde ASP.net suponiendo que tenga una tabla de esta manera:

create table persona(
cod_persona int not null primary key,
nomcompleto_persona varchar(100),
foto_persona image
)

mmm no quiero que sea una ruta como la que esta para este boton en ASP.net

Código ASP:

Protected Sub btnRegistrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRegistrar.Click
 
        If validar() Then
            If btnRegistrar.Text = "REGISTRAR" Then
                Dim objPersona As New PersonaBE
                objPersona.Nombre = txtNombre.Text
                objPersona.RutaFoto = "Fotos_Personas" & "/" & Path.GetFileName(fuFoto.PostedFile.FileName)
 
                Dim guardarFoto As String
                guardarFoto = "C:\Users\MakubexD\Desktop\CONTINUA4_MVELIZ\sitioWeb_Persona\Fotos_Personas" & Path.GetFileName(fuFoto.PostedFile.FileName)
                fuFoto.PostedFile.SaveAs(guardarFoto)
 
                personaBLL.Registrar(objPersona)
                limpiar()
                listarPersonas()
            Else
                Dim objPersona As New PersonaBE
                objPersona.Nombre = txtNombre.Text
                objPersona.RutaFoto = "Fotos_Personas" & "/" & Path.GetFileName(fuFoto.PostedFile.FileName)
                MsgBox(hfCodigo.Value)
                objPersona.Codigo = CInt(hfCodigo.Value)
 
                Dim guardarFoto As String
                guardarFoto = "C:\Users\MakubexD\Desktop\CONTINUA4_MVELIZ\sitioWeb_Persona\Fotos_Personas" & Path.GetFileName(fuFoto.PostedFile.FileName)
                fuFoto.PostedFile.SaveAs(guardarFoto)
 
                personaBLL.Modificar(objPersona)
                limpiar()
                listarPersonas()
            End If
 
        End If
 
        
    End Sub
 

Sino que sea un arreglo de bytes para evitar tener carpetas con las imagenes y que todo sea desde la BD... Obvio que esto sera con un FILEUPLOAD

Espero averme explicado bien y mas que todo que m puedas ayudar

salu2 cordiales

[enla]

Una vez lo hice como me lo pediste, pero nuestro docente nos dijo que era una carga innecesaria para nuestra base de datos porque tenia que hacer el arreglo y todo eso era proceso, y me dijo que la mejor solucion era usando una copia de la imagen al ftp, en todo caso dejame buscar la funcion la modifico para que lo puedas usar con el file ajax y lo subo.

[makubexD]

Iniciado por enla

Una vez lo hice como me lo pediste, pero nuestro docente nos dijo que era una carga innecesaria para nuestra base de datos porque tenia que hacer el arreglo y todo eso era proceso, y me dijo que la mejor solucion era usando una copia de la imagen al ftp, en todo caso dejame buscar la funcion la modifico para que lo puedas usar con el file ajax y lo subo.

Gracias compi esperare tu repsuesta ansioso!! Solo una consulta mencionaste "AJAX" mmm bueno creo que no habra ningun problema pues buscaba algo simple :P solo usando la paleta de herramientas generales pero si la tienes en AJAX muxo mejor muy agradecido de antemano

salu2

[Riskbreakers]

Hola que tal, excelente tutoria... oye yo ando buscando hacer los mismo.... pero que carge un archivo de texto o un excel y que mande el contenido a una base de datos de access! tienes algo que me pueda ayudar?!