App.Path con BD VB.NET

[flashtkd]

hola como estan

como puedo aplicar el path en la base de datos con access, vb.net 2008

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\bdbodega.mdb;Persist Security Info=False"

saludos

[Peterpay]

Server.MapPath
o
AppDomain.CurrentDomain.BaseDirectory

editar pero si fuera web con que lo pongas en el folder app_data.

[flashtkd]

La base de datos esta en la caperta bin



Codigo del Boton

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' creando objetos connecction, dataadapter y dataset

Dim coneccion As OleDbConnection

Dim orden As OleDbDataAdapter

Dim tabla As DataSet

' enlazando coneccion a la base de datos

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\mibase.mdb")

' respetar el espacion en blanco en DATA SOURCE

' cargando el adapter con la instruccion sql

orden = New OleDbDataAdapter("select * from mitabla", coneccion)

' cargando el dataset

tabla = New DataSet()

orden.Fill(tabla, "mitabla")

' cargando el datagridview

DataGridView1.DataSource = tabla

DataGridView1.DataMember = "mitabla"
End Sub


Aca esta el ejemplo original
http://rapidshare.com/files/138821790/Mostrar_datos.rar

[Peterpay]

AppDomain.CurrentDomain.BaseDirectory con eso tienes la ruta de tu aplicacion yl isto con q lo concatenes a tu string de conexion basta

[flashtkd]

Muchas gracias "Peterpay" funciona perfecto, te lo agradezco de verdad.

Saludos

La solucion es:

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "\mibase.mdb")

[Avellaneda]

Iniciado por flashtkd

Muchas gracias "Peterpay" funciona perfecto, te lo agradezco de verdad.

Saludos

La solucion es:

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "\mibase.mdb")

También puedes utilizar la función CurDir :

coneccion = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; data source = " & CurDir() & "\mibase.mdb")

[tecnosoft]

Soy nuevo en la comunidad muy buen apunte me sirvio de mucho