PROGRAMAR EN ACCESS VBA

Aplicaciones access con VBA

  > Principal > Acceso a Datos
 
.: Vba
- Formularios access
- Informes access
- Formularios Arcgis
- Acceso a datos
- Ejemplos usuarios
- Libros access
- FAQ
- Cursos
- Empleo access
.: Pdas
- Programar PDA
- Tutorial
- Ejemplos
.: Php
- php basico
- formularios php
- conexion BBDD
- funciones php
- construir Intranet
- Empleo php
.: Programar Java
- Hibernate
- Spring Rich Client
- Swing
- Java
- Empleo Java
.: Blog
- Blog Access
.: SQL
- Que es sql
- Consultas SQL
- SQL Server
- SQL Server Avanzado
.: Android
- Android
- instalación SDK
.: Geotools
- Geotools
.: Foros
- Access
- PHP
- JAVA
- Android
- Programar
 
 
.: Novedades
- iphone 5
- PDANET
- Libros de access
- android
-Newssletters
 

ACCESO A DATOS ACCESS

El acceso a datos con access resulta muy sencillo desde código vba, ya que se reduce mucho el código que debemos emplear, eso si, solo podemos acceder a la propia base de datos en la que trabajamos. El código de conexión se puede resumir en cuatro simples líneas que veremos mas adelante, simplemente debemos crear el objeto conexion, el recordset de datos (almacen de datos) y especificar la consulta sql que queremos ejecutar

 
.: Contratar Publicidad :.
 

1.- Código de Conexión:

Como he dicho antes, el código de conexión es muy sencillo:

 

dim rs as recordset

dim con as connection

set rs = createobject("ADODB.RecordSet")

set con = application.currentproject.connection

 

Ya hemos creado la conexión y el almacén de datos (recordSet) , el resto es muy sencillo, si por ejemplo necesitamos obtener dos datos de una tabla, sería de la siguiente forma:

 

dim nombre as string

dim codigo_postal as integer

dim consulta as string

consulta = "select nombre,codigo_postal from municipio

rs.open consulta, con , 1

do until rs.EOF

nombre = rs.fields("NOMBRE").value

codigo_postal = rs.fields("CODIGO_POSTAL").value

rs.movenext

loop

rs.close

con.close

2.- Consulta de insercción de Datos

En el caso de querer insertar datos en una tabla utilizaremos la función docmd.runsql(consulta). Siendo consulta un string con el sql

por Ejemplo, queremos insertar un nuevo municipio recogido de un combobox :

 

dim valor as string

valor = cuadro_combinado0.value

docmd.runsql("insert into MUNICIPIOS values ('" & valor & "')"

 
Añadir a favoritos Contacto Posicionamiento en buscadores Enlaces  
 
.: En ProgramarVBA podrá encontrar:        
Visual Basic Formularios Access Informes Android PDAs Java y Sql SQL SERVER
Foro GIS Foro PDAs Tutorial VBA Bases de datos Access Foro SQL Acceso a datos access Informes access