PROGRAMAR EN ACCESS VBA

Aplicaciones access con visual basic for applications

  
  > Principal > Ejemplo Programar Pdas
 
.: 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
 

EJEMPLO PROGRAMAR PDAS

En esta sección vamos a desarrollar paso a paso una pequeña aplicación para pdas utilizando las herramientas embedded visual tools y Access. Veremos como desarrollar formularios y como enlazarlos con una base de datos access para poder guardar información en nuestra PDA. Para este ejemplo hemos empleado una Acer N35.

La pantalla principal de Embedded Visual Tools se compone de los siguientes apartados

.: Contratar Publicidad :.
 

 

1.- Crear una aplicación para gestionar encuestas en nuestra pda

 Como ejemplo de aplicación vamos a tener una base de datos access con información sobre clientes, y desarrollaremos una aplicación de formularios para introducir información sobre una encuentra realizada a estos clientes.

Clientes

Codigo: código numérico de cliente

Nombre: valor textual

Apellidos: valor textual

Direccion: valor textual

Edad: valor numerico

Empleo: valor textual

Fotografia: valor textual (direccion donde se almacena la fotografia)

 

Encuestas

usuario: nombre del usuario que la hace

Pregunta1: valor textual

Pregunta2: valor textual

 

2.- El primer formulario

Vamos a crear nuestro primera pantalla de la aplicación, que podría tener un logotipo en la parte superior, un desplegable para seleccionar el cliente, y un boton para poder visualizar los datos de dicho cliente:

 

Para crear este primer formulario hemos insertado un saphe, un textbox, un combobox, un button (ver), tres textbox mas, un ImageControl y dos button mas para avanzar o ir hacia atrás.

En primer lugar debemos cargar todos los nombres de clientes de la base de datos en el combo1, esto habrá que hacerlo a través de un evento, que puede ser pulsar un botón, por ejemplo. Podemos crear una pantalla principal de programa con algo así como : para iniciar la aplicación pulsa aquí, y que entonces carga los datos de clientes:

 

El código asociado a este botón sería:

 

Dim rs As ADOCE.Recordset

Set rs = CreateObject("ADOCE.Recordset.3.0")

Dim conndb As ADOCE.Connection

Set conndb = CreateObject("ADOCE.Connection.3.0")

conndb.ConnectionString = "Data Source=SD-MMC Card\DATOS.cdb"

conndb.Open

Set rs = CreateObject("ADOCE.Recordset.3.0")

rs.Open "SELECT Nombre FROM CLIENTES order by NOMBRE", conndb, adOpenDynamic, adLockOptimistic

Do until rs.EOF

Form2.Combo1.AddItem (rs.fields("NOMBRE").Value

rs.movenext

Loop

rs.Close

conndb.Close

form2.show

 

 

Es decir, cargamos los datos en el combobox del siguiente formulario y lo mostramos con la función show

Lo que se pretende es que seleccionemos un cliente en el combo1, le damos al botón ver, y automáticamente nos muestra la información de ese cliente en y su foto en los controles inferiores

El código del botón ver seria así (Previamente hemos grabado la base de datos de access en la tarjeta de la PDA con el nombre "DATOS"):

 

Dim rs as ADOCE.RecordSet

Set rs = CreateObject("ADOCE.Recordset.3.0")

Dim conndb As ADOCE.Connection

Set conndb = CreateObject("ADOCE.Connection.3.0")

conndb.ConnectionString = "Data Source=SD-MMC Card\DATOS.cdb"

conndb.Open

Set rs = CreateObject("ADOCE.Recordset.3.0")

rs.Open "SELECT * FROM CLIENTE WHERE NOMBRE = '" & Combo1.Text & "'" , conndb, adOpenDynamic, adLockOptimistic

Label2.caption = rs2.fields("NOMBRE")

Label3.caption = rs2.fields("APELLIDOS")

Label4.caption = rs2.fields("EDAD")

Rs.close

 

 

 

Con este simple código abrimos la base de datos, recuperamos el nombre, apellidos y edad del cliente y los mostramos en el formulario de la Pda. Para ello recuperamos el valor del Combo1: combo1.text, y hacemos una consulta a la base de datos para que nos recupere los datos cuyo nombre = combo1.text

Ahora es el momento de ir al siguiente paso, las preguntas del formulario, que realizaremos también por medio de combobox:

 

Para que los combo box aparezcan con los datos que queremos, debemos hacerlo en el formulario anterior y asociarlo al boton "siguiente":

Form3.combo1.additem("MUCHO")

Form3.combo1.additem("BASTANTE")

Form3.combo1.additem("NORMAL")

Form3.combo1.additem("POCO")

Form3.combo1.additem("MUY POCO")

 

Form3.combo2.additem("PERFECTA")

Form3.combo2.additem("MEDIDA")

Form3.combo2.additem("NORMAL")

Form3.combo2.additem("FATAL")

Podemos añadir varios formularios del mismo estilo, enlazados con el botón de anterior y siguiente.

Para terminar podemos añadir un formulario de este estilo:
 

De esta forma advertimos al usuario de que los datos se van a guardar en la base de datos. Si pulsamos al no, nos lleva al formulario principal:

Form2.show 

y si pulsamos que si agregara el registro con los datos a la tabla

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"

conndb2.open

Set rs2 = CreateObject("ADOCE.Recordset.3.0")

Dim strSQL As String

strSQL = "SELECT * FROM ENCUESTAS"

rs2.Open strSQL, conndb2, adOpenDynamic, adLockOptimistic

 

 

 

Cuando voy a introducir un nuevo registro lo hago de la siguiente forma:

 

rs2.AddNew

rs3("usuario") = form12combo1.text -recupero del primer formulario el nombre del usuario

rs3("pregunta1") = form3.combo1.text

rs3("pregunta2") = form3.combo2.text

rs3.Update

MsgBox ("MUESTRA REGISTRADA CON EXITO")

Form2.Show

Ahora en nuestra base de datos DATOS.CBD tendremos un nuevo registro con los datos de la encuesta del usuario, si todo ha ido bien.....
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