Buenas,
En éste post, quiero exponer lo principal que se debe saber cuando queremos conectar una base de datos Access con Visual Basic.Net 2008 y hacer modificaciones sobre ella.
para ello, hay que tener en cuenta lo siguiente:
1. se importa la clase necesaria para establecer conexión con una base de datos access.
esto se puede hacer al principio de un formulario o en un modulo.
>> Imports System.Data.OleDb
2. se crean las variables necesarias para poder ejecutar las consultas SQL hacia la base de datos.
esto se puede hacer al principio de un formulario o en un modulo.
>> Public conexion As OleDbConnection
>> Public adaptador As OleDbDataAdapter
>> Public lector As OleDbDataReader
>> Public comando As OleDbCommand
3. Código para la conexión con la base de datos.
este código se puede escribir en un botón que diga "conectar" o en el evento load del formulario (doble click en el formulario).
(curdir es el lugar en donde se encuentra el ejecutable del programa, en este caso, la uso porque allí mismo ubiqué la base de datos)
>> Dim ruta As String = CurDir() & "/db/adminusr.accdb"
>> Dim CadenaC As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ruta & " ;Jet OLEDB: Database;"
>> Try
>> conexion = New OleDbConnection()
>> conexion.Open()
>> 'aquí va el código que se ejecutará cuando la conexión tenga éxito
>> Catch ex As Exception
>> 'aquí va el código para ejecutar en caso de que haya un error
>> End Try
4. Registrar en una tabla de la base de datos.
este código se puede escribir en un botón que diga "registrar" o "agregar". Si las variables para las consultas SQL están en un modulo, no es necesario volver a escribirlas en los formularios así como la importación de la clase System.Data.OleDb
>> Dim CadSQL As String = "insert into <nombreTabla> (<columna1>,<columna2>,...) values (<valor1>,<valor2>,...)"
>> 'si algun valor es de tipo string, se debe escribir con comillas simples ej: values ('<valor1>',...)
>> comando = New OleDbCommand(CadSQL,conexion)
>> comando.ExecuteNonQuery()
5. Listar los datos de una base de datos.
si los datos van a ser mostrados en una DataGrid, no es mucho lo que hay que hacer.
>> Dim tabla As DataSet
>> adaptador = New OleDbDataAdapter("select * from <nombreTabla>", conexion)
>> tabla = New DataSet
>> adaptador.Fill(tabla, "<nombreTabla>" )
>> DataGridView1.DataSource = tabla.Tables(0)
6. Modificar los datos de una tabla.
el código es similar al de registrar, solo cambia la consulta SQL
la palabra col hace referencia a una columna cualquiera de la tabla especifica
>> Dim CadSQL As String = "update <nombreTabla> set <col_1>=<valor1>, <col_2>=<valor2> where <col_x>=<valorx>"
>> comando = New OleDbCommand(CadSQL,conexion)
>> comando.ExecuteNonQuery()
7. Eliminar datos.
es la instrucción mas corta. aunque, es recomendable usar varios mensajes (MsgBox) preguntando al usuario lo que desea hacer antes de que los datos sean eliminados. ej: "está seguro de eliminar este registro?"
la palabra col hace referencia a una columna cualquiera de la tabla especifica
comando = New OleDbCommand("delete from <nombreTabla> where <col_x>=<valorx>", conexion)
comando.ExecuteNonQuery()
8.Buscar datos.
La acción buscar es similar a la de listar, solo que la consulta SQL lleva al final un "where".
la palabra col hace referencia a una columna cualquiera de la tabla especifica
>> Dim tabla As New DataSet
>> adaptador = New OleDbDataAdapter("select * from <nombreTabla> where <col_x>=<valorx>", conexion)
>> tabla = New DataSet
>> adaptador.Fill(tabla, "<nombreTabla>" )
>> DataGridView1.DataSource = tabla.Tables(0)
9. Fin.
Esto es todo, y como dije al principio, es algo importante para tener en cuenta al momento de conectarse con base de datos no solo acces, ya que para SQL-Server, solo se cambia la forma de conexion y la clase que se importa, pues las sentencias SQL son las mismas.
---------------------------------------------------------
Espero les haya servido.... y espero que no se me haya olvidado nada....
(Colombia)