none
Cargar Archivo RRS feed

  • Pregunta

  •  

    Hola a todos,

     

    Tengo una aplicacion que debe cargar un archivo de excel a una tabla, el programa funciona bien en mi computador, pero cuando lo subi al servidor, me muestra un error en la ruta, debido a que el carga los archivos que se encuentren en el servidor y no carga nada desde el cliente, el codigo que tengo es el siguiente

     

    Dim strconn As String = "Provider=Microsoft.Jet.Oledb.4.0; data source= " & ruta & ";Extended properties=""Excel 8.0;hdr=yes;imex=1"""

    Dim mconn As New OleDbConnection(strconn)

    Dim strSQL As String = " Select * from [" & sheet & "$]"

    Dim ad As New OleDbDataAdapter(strSQL, mconn)

     

    mconn.Open()

    Dim ds As New DataSet

    ad.Fill(ds)

    mconn.Close()

    Return (ds.Tables(0))

     

    El problema esta en la ruta porque toma la del servidor y no la del cliente, es decir si yo desde mi maquina le digo que el archivo esta en C:\temp, el sistema entiende que esa ruta es la del servidor y no la del cliente, como puedo solucionar esto?

     

    Gracias

     

        

    viernes, 1 de agosto de 2008 22:35

Todas las respuestas

  • ¿Que tipo de aplicación es?

     

    Salu2

     

    lunes, 4 de agosto de 2008 7:10
  • Hola

    esta aplicaion esta desarrollada en VB .Net 2003, y estoy utilizando  un objeto que se llama File1, este es el que muestra el bton Browse y alli el usuario selecciona el archivo que desea cargar

     

    Saludos

     

     

     

    lunes, 4 de agosto de 2008 12:05
  • Hola,

     

    Creo que a lo que se refiere Luis es a si es una aplicacion de Escritorio o es una aplicacion Web.

     

    De todas maneras la solucion es subir primeramente el archivo al servidor.

     

    Saludos.

     

    lunes, 4 de agosto de 2008 12:53
  • Hola!!!

     

    Ooops perdon no habia entendido, es una aplicacion web .

     

    Buscando efectivamente encontre que la solcuion es subir primero el archivo al servidor, lo hago de la siguiente manera:

     

    If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then

       Dim fn As String = System.IO.Path.GetFileName(File1.PostedFile.FileName)

       Dim SaveLocation As String = Server.MapPath("Data") & "\" & fn

       Try

    File1.PostedFile.SaveAs(SaveLocation)

    Dim path As String = SaveLocation

    AQUI LLAMO LA FUNCION QUE ANTERIORMENTE DESCRITA QUE SACA LOS DATOS, DICHA FUNCION TIENE COMO PARAMETRO EL PATH Y EL NOMBRE DE LA HOJA (DIGITADO POR EL USUARIO)

       Catch Exc As Exception

    MsgBox1.ShowMessage("Error: " & Exc.Message)

    End Try

    Else

       MsgBox1.ShowMessage("Por favor seleccione el archivo a ser cargado")

    End If

     

    Como siempre, cuando lo corro en mi localhost funciona perfecto, pero cuando lo hago desde el servidor me saca el siguiente error. Object reference not set to an instance of an object.

     

     

     

     

    lunes, 4 de agosto de 2008 18:27