Fijar una ruta para consultar un archivo

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.

Dragon_Rojo escribió:

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.

¿Ambas aplicaciones trabajan en forma independiente entre los computadores?
Yo creo que el componente que carga el valor de donde esta el archivo
quedo fijo a c:\sistemas\, cuando lo usas en B usa por omision el valor
fijo.
Debieras elegir cada vez que quieres de donde vas a sacar el archivo.

No tengo el net, pero usando el SharpDevelopment se hece asi

openfiledialog1.ShowDialog
ruta=openfiledialog1.FileName.Substring(0,openfiledialog1.FileName.LastIndexOf("\"))

Puede ser que se requiera + 1 en el substring, hace tiempo no trabajo
con DBF y no me acuerdo si se requeria el caracter \ final a incluir en
la ruta.