A continuación podremos el código y el String de Conexión que se debe usar.
'Importamos las librerías
Imports System.Data
Imports System.Data.OleDb
'Desde el Load Invocamos lo Siguiente
Dim Dst As DataSet = ConectaBD(canje)
'String de conexión
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bases/TuBD.mdb")
'Creamos el objeto de conexión
Dim myConnection As OleDbConnection = New OleDbConnection(ConnectionString)
'Creamos la Consulta en la variable vSQL donde podria ir Select * From Tabla
Dim myDataAdapter As OleDbDataAdapter = New OleDbDataAdapter(vSQL, myConnection)
Dim myDataset As DataSet = New DataSet
'Ejecuta el Query
myDataAdapter.Fill(myDataset, "Ejecuta")
'Importante Cerrar la conexión y así limpiar la memoria usada
myConnection.Close()
myConnection.Dispose()
Return myDataset
Con esto ya tenemos la conexión a nuestro access. ¿Que les parece?
Bueno espero les sirva.
Regards.
No hay comentarios:
Publicar un comentario