ok ya he hecho mi aplicación pero la misma se conecta una base de datos mediante una ruta de acceso.
se las muestro:
Dim MiConexion
As OleDbConnection
Dim Comando
As OleDbCommand
Dim strConexion
As
String
Dim strComando
As
String
Dim Lector
As OleDbDataReader
Dim ValorCampo(1)
As
Double
strConexion =
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Reynaldo\Documents\coeficiente_P217.accdb;Jet OLEDB:Database Password=negrito"
MiConexion =
New OleDbConnection(strConexion)
MiConexion.Open()
strComando =
"SELECT*FROM coeficiente"
Comando =
New OleDbCommand(strComando, MiConexion)
Lector = Comando.ExecuteReader
Do
While Lector.Read()
ValorCampo(0) = Lector.Item(0)
ValorCampo(1) = Lector.Item(1)
If ValorCampo(0) =
CDbl(IntKM)
Then
DblTarifaRecorrido = ValorCampo(1)
End
If
Loop
Lector.Close()
MiConexion.Close()
mediante esta ruta ella capta un coheficiente de la base de datos que necesito para calcular.
El problema es que cuando cambio de maquina la ruta cambia y la aplicacion no encuentra la base de datos.
les pido que me ayuden con alternativas
gracias.
