PROGRAMAR EN ACCESS VBA

Aplicaciones access con visual basic for applications

  
  > Principal > Acceso a Datos
 
.: Access
- Formularios access
- Informes access
- Acceso a datos
- FAQ
.: Pdas
- Programar PDA
- Tutorial
- Ejemplos
.: Foros
- Foro Access
- Foro PDAs
- Foro GIS
- Foro SQL
.: Blog
- Blog Access
.: SQL Access
- Consultas SQL
- Tutorial
.: Geotools
- Geotools
 
 
.: Novedades
- Crear un ADP
- Gráficas Access
- Exportar documentos access
- Catálogo de imágenes access
- Ofertas de trabajo en access
 

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 Comprar semillas  
 
.: En ProgramarVBA podrá encontrar:        
Visual Basic Formularios Access Informes Foro de programación PDAs Conexión a bases de datos Blog de adps
Foro GIS Foro PDAs Tutorial VBA Bases de datos Access Foro SQL Acceso a datos access Informes access