SQL-Access/ Conecciones a la base de datos Access

- junio 07, 2014

Les doy la bienvenida a este post, seguiremos con la continuación del post anterior. Ahora vamos a conectar nuestra base con Visual basic.

Les aclaro que todo lo lo que se va a desarrolla se lo hara desde codigo:

1. Abrimos un nuevo proyecto de Visual Basic llamado " My Business"(mi negocio en ingles), uds pueden elegir cualquiera...hacemos la codificación en un modulo:

Yo uso, Visual basic 2013, claro que eso no importa pero si desean pueden descargarlo de aqui

(cualquier solicitud a mi correo [jossm04@gmail.com])

sigamos...

Creamos un modulo llamado "Funciones ", es desde donde vamos a llamar a nuestra bd "

01 Module Funciones
02     Public path As String = Form1.lblruta.Text
03     Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Jet OLEDB:Database Password=dataset1;")
04     Public cmd As New OleDb.OleDbCommand
05     Public dr As OleDb.OleDbDataReader
06     Public Sql As String = ""
07     Public Sub conectarse()
08         Try
09             conn.Open()
10             MsgBox("Conexion exitosa")
11         Catch ex As Exception
12             MsgBox(ex.ToString())
13         End Try
14     End Sub
15 End Module

Si ven el codigo la sintax "Form1.lblruta.Text", tipo string es la ruta donde estará nuestra base de datos Access. Entonces dentro del form colocamos un control StatusStrip1 y creamos un elemento label llamado "lblruta" ,en la propiedad Text = "r" esto es para no perderlo de vista.

Creamos un ToolStripDropDownButton1 dentro del StatusStrip1 es para abrir con cuadro de dialogo nuestra base de datos y la ruta hallada se quede en el lblruta:

Colocamos el codigo del ToolStripDropDownButton1 (si no te parece puedes cambiarle el nombre como "Dir")

01 Private Sub Dir_Click(sender As Object, e As EventArgs) Handles Dir.Click
02         Try
03             Dim OpenFileDialog As New OpenFileDialog
04             OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
05             OpenFileDialog.Filter = "Base de datos Access (*.accdb)|*.accdb|Todos los archivos (*.*)|*.*"
06             If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
07                 Dim FileName As String = OpenFileDialog.FileName
08                 lblruta.Text = FileName
09                 ' TODO: agregue código aquí para abrir el archivo.
10             End If
11         Catch ex As Exception
12             MsgBox("error al abrir base de datos", vbCritical)
13         End Try
14     End Sub

y por último llamamos al procedimiento contenido en el modulo

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
conectarse()
End Sub

ejecutamos y vemos si la coneccion ha sido exitosa