PROGRAMAR EN ACCESS VBA

Aplicaciones access con visual basic for applications
  > Principal > Programar PDAS
 
.: Access
- Formularios access
- Informes access
- Formularios Arcgis
- Acceso a datos
- Ejemplos usuarios
- Libros access
- FAQ
.: Pdas
- Programar PDA
- Tutorial
- Ejemplos
.: Php
- basico
- conexion BBDD
- funciones
- construir Intranet
.: Foros
- Foro Access
- Foro PDAs
- Foro GIS
- Foro SQL
.: Blog
- Blog Access
.: SQL Access
- Consultas SQL
- Tutorial
.: Geotools
- Geotools
 
 
.: Novedades
- Una Aplicacion Access
- Ofertas de trabajo en access
- Libros de access
- Catálogo de imágenes access
-Newssletters
 

PROGRAMAR PDAS

Programar una pda puede ser algo mucho mas sencillo de lo que podamos imaginar, como explique en el blog de la semana pasada, hacen falta tres cosas básicas:

 1.- EVB Runtime enviroment para poder utilizar aplicaciones VBA en tu PDA

2.- Microsoft Embbeded Visual Tools 3.0 para poder programar tus aplicaciones

3.- Access (sólo si quieres usar bases de datos)

Ahora vamos a ver paso a paso como crear una pequeña aplicación con formularios para pda, el EVT 3.0 tiene este aspecto:

 
.: Contratar Publicidad :.

 


 
Crear formularios es realmente sencillo, arrastramos los objetos desde el menú de la izquierda hacia nuestro formulario, y para generar eventos hacemos un doble click sobre el objeto en cuestión.

  1.- Acceso a Datos

El código necesario para poder acceder a la base de datos access( que pasamos a la pda con el active sync) seria así:

 

Dim rs2 As ADOCE.Recordset
Set rs2 = CreateObject("ADOCE.Recordset.3.0")
Dim conndb2 As ADOCE.Connection
Set conndb2 = CreateObject("ADOCE.Connection.3.0")
conndb2.ConnectionString = "Data Source=SD-MMC Card\PDAS.cdb" 'url de la base de datos
conndb2.Open
Set rs2 = CreateObject("ADOCE.Recordset.3.0")
rs2.Open "SELECT * FROM Tabla WHERE CODIGO = " & Combo2.Text, conndb2, adOpenDynamic, adLockOptimistic
Text2.Text = rs2.fields("NOMBRE")

Con este código, una vez que encuentre en valor que supera el limite se activara el booleano y ya no se desactivara, y aparecerá el mensaje de error

Ahora yo podemos recuperar datos de la base de datos y mostrarlos en la pda de forma sencilla.

Para poder insertarlos el código sería:

 

Dim rs3 As ADOCE.Recordset
Set rs3 = CreateObject("ADOCE.Recordset.3.0")
Dim conndb3 As ADOCE.Connection
Set conndb3 = CreateObject("ADOCE.Connection.3.0")
conndb3.ConnectionString = "Data Source=SD-MMC Card\PDAS.cdb"
conndb3.Open
Set rs3 = CreateObject("ADOCE.Recordset.3.0")
Dim strSQL As String
strSQL = "SELECT * FROM TABLA "
rs3.Open strSQL, conndb3, adOpenDynamic, adLockOptimistic

rs3.AddNew
rs3("fecha") = fecha

rs3("hora") = hora

rs3.update


2.- Visor de Imagenes en una Pda

Aparte de tener mucho espacio en la tarjeta, lo único que nos hace falta es el control picturebox, al que llamaremos desde el evento del botón de la siguiente forma

 

 Private Sub Comd4_Click()
Form7.Show
Form7.ImageCtl1.Picture = "\SD-MMC Card\fotos\" & Form1.Combo2.Text & ".bmp"


Un ejemplo de programación para PDAS utilizando embedded visual tools:


 
.

Añadir a favoritos Contacto Libros sobre access y vba Enlaces Todo Access  
 
.: 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