Fijar una ruta para consultar un archivo

05/10/2006 - 19:22 por Dragon_Rojo | Informe spam
Hola que tal, soy nuevo en el grupo y quisiera que me apoyaran con el
siguiente problema:

Tengo una aplicacion que esta hecha en VB.Net, esta aplicacion es
utilizada para descargar de cualquier archivo con extension (.DBF,
.XLS, TXT) y cargaralo en un DataAdapter y de hay a un DataSet el punto
es que cuando corro la aplicacione de forma local en mi maquina (A), no
hay problema me muestra la informacion en un DataGrid pero si la misma
aplicacion la invoco en otra maquina (B) y seleccion de manera local el
archivo, la aplicacion regresa a donde esta alogado (en mi maquina A)
buscando la ruta y el archivo que seleccione en la otra maquina (B) por
logica marca un error donde indica que no encuentra la ruta
seleccionada, ¿Como puedo hacer para que tome la ruta de la maquina
remota (B) y no vaya a la maquina origen (A)
 

Leer las respuestas

#1 Dragon_Rojo
05/10/2006 - 19:36 | Informe spam
Dragon_Rojo ha escrito:

Hola que tal, soy nuevo en el grupo y quisiera que me apoyaran con el
siguiente problema:

Tengo una aplicacion que esta hecha en VB.Net, esta aplicacion es
utilizada para descargar de cualquier archivo con extension (.DBF,
.XLS, TXT) y cargaralo en un DataAdapter y de hay a un DataSet el punto
es que cuando corro la aplicacione de forma local en mi maquina (A), no
hay problema me muestra la informacion en un DataGrid pero si la misma
aplicacion la invoco en otra maquina (B) y seleccion de manera local el
archivo, la aplicacion regresa a donde esta alogado (en mi maquina A)
buscando la ruta y el archivo que seleccione en la otra maquina (B) por
logica marca un error donde indica que no encuentra la ruta
seleccionada, ¿Como puedo hacer para que tome la ruta de la maquina
remota (B) y no vaya a la maquina origen (A)



lo que estoy haciendo es lo siguiente:

Imports System.Data.OleDb
Imports System.IO

Shared conexionMDB As String

Dim ruta As String = Me.selarchivo.Value.Substring(0,
Me.selarchivo.Value.LastIndexOf("\"))

conexionMDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta &
";Extended PropertiesÛASE IV"

Dim connMdb As New OleDb.OleDbConnection
Dim commMdb As New OleDb.OleDbCommand

connMdb.ConnectionString = conexionMDB
connMdb.Open() ' aqui es donde truena de manera remota

commMdb.Connection = connMdb
commMdb.CommandText = ("Select * from " & arch)
commMdb.CommandType = CommandType.Text

este es el error que marca:

'C:\SISTEMAS\' no es una ruta de acceso válida. Asegúrese de que la
ruta está escrita correctamente y que está conectado al servidor
donde se encuentra el archivo.

Preguntas similares