Hola
Solicito amablemente su colaboración con la siguiente consulta:
Tengo un formulario aspx donde cargo un archivo de excel a una carpeta llamada ArchivosSubidos la cual está dentro del proyecto en disco D:Portal\ArchivosSubidos. esto lo hago con un FileUpload.
Tengo otro boton para cargar la información de este excel a una DB SQL.
Cuando lo ejecuto localmente no hay problema, me carga el archivo y con el otro boton me envia la información a la DB sin problema.
Ahora publique el sitio web en un Windows Server de una maquina virtual, monte tambien SQL Server y funciona desde mi equipo fisico sin problema, cargo el archivo desde mi equipo local y efectivamente me lo aloja en la ruta especificada en el Windows Server
Virtual, pero cuando quiero cargar la información del archivo que subi de mi equipo local a la DB SQL que esta en el Windows Server me genera error.
El cargue de manera local lo realizo de esta manera sin problemas:
Dim conexion As String = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=D:Portal\ArchivosSubidos\data.xlsx;Extended Properties=""Excel 8.0; HDR=Yes"""
Dim origen As OleDbConnection = Nothing
origen = New OleDbConnection(conexion)
Dim seleccion As OleDbCommand = Nothing
seleccion = New OleDbCommand("Select * From [Hoja1$]", origen)
Dim adaptador As New OleDbDataAdapter()
adaptador.SelectCommand = seleccion
Dim ds As New DataSet()
adaptador.Fill(ds)
GridView1.DataSource = ds.Tables(0)
origen.Close()
Dim conexion_destino As New SqlConnection()
conexion_destino.ConnectionString = "Data Source=WINDOWS-SE4GNSV;Initial Catalog=Ejemplo;Persist Security Info=True;User ID=sa;Password=C0l0mb142018*"
conexion_destino.Open()
Dim importar As SqlBulkCopy = Nothing
importar = New SqlBulkCopy(conexion_destino)
importar.DestinationTableName = "Persona"
importar.WriteToServer(ds.Tables(0))
conexion_destino.Close()
Lo que hice para tratar de cargar los datos en el servidor fué cambiar la ruta de esta manera:
Dim conexion As String = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=129.39.170.24\Portal\ArchivosSubidos\data.xlsx;Extended Properties=""Excel 8.0; HDR=Yes"""
Tambien lo intetnté asi pero nada:
"~/ArchivosSubidos/data.xlsx"
y no me funciona...
Muchas gracias por su generosa ayuda...
Respuesta de foro Microsoft
