Como ya sabemos en la gran mayoría de los lenguajes de programación es necesario utilizar bases de datos para almacenar información
En la actualidad la gran mayoría de las aplicaciones que se desarrollan es necesario almacenar información en base de datos, por esta razón me vi obligado a compartir con ustedes este articulo.
Lo que vamos hacer es mostrar como nos podemos conectar a una base de datos de Access a través de Visual Basic.
Primero creamos nuestra base de datos. Abrimos Access, seleccionamos nuevo documento y le damos base de datos en blanco, la guardamos en alguna carpeta donde va ha estar nuestra aplicación en Visual.
Después crea una tabla con los campos que necesites para tu aplicación; ya que la creaste sierra Access y nos trasladamos a Visual Basic.
En Visual Basic le seleccionamos en nuevo proyecto EXE estándar, serramos el formulario que se abrió automáticamente, después creamos un modulo. Para esto en el menú proyecto presiona Agregar modulo y después aceptar.
En el modulo crearemos una función para hacer la conexión con la base de datos y además declararemos las variables ADODB de forma publicas para poder manipular los datos en cualquier parte de la aplicación.
Función main(), contiene la conexión a la base de datos.
Una variable AdoConexion, contiene el path a la base de datos.
Un AdoA que es una variable recordset.
Public AdoConexion As ADODB.Connection
Public AdoA As ADODB.Recordset
Dim sBase As String
sub main()
Set AdoConexion = New ADODB.Connection
Set AdoA = New ADODB.Recordset
sBase = App.Path
‘Driver para crear la conexión a la DB
AdoConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=TuBD.mdb;Persist Security Info=false"
AdoConexion.open
‘se le asignan la propiedades al recordset
AdoA.LockType = adLockOptimistic
AdoA.CursorType = adopenDynamic
AdoA.CursorLocation = adUseClient
Form1.Show
end sub
Ya que tenemos nuestro modulo preparado en los formularios podemos manipular los datos ejemplo, para hacer una consulta, a nuestra variable recordset le asignamos el resultado, la estructura es la siguiente.
AdoA.open "select * from tabla where id = " & casilla, AdoConexion
Para que no tengas ningún problema al estar manipulando los resultados de las consultas y te marquen errores es recomendable que antes de cada consulta cierres las consultas abiertas.
if AdoA.State = 1 Then
AdoA.close
end If
Y por ultimo para poder manipular los datos obtenidos en la consulta hay que realizar lo siguiente.
For I = 0 To AdoA.Fields.Count - 1
Text1(I) = AdoA.Fields(I)
Next