jueves, 25 de noviembre de 2010

CONTROL ADO

EJEMPLO

Opción 1 (control ADODC):

Añade un nuevo Componente "Microsoft ADO Data Control", es una especie de Data.

Si lo incluyes en un formulario puedes acceder a una BD mediante sus propiedades, accesibles en con click derecho sobre el... muy sencillo.

Opción 2 (Código ADO):

Esto es un poco más complicado, pero te ofrece un mayor control.

Tendrías que añadir una Referencia a "Microsoft ActiveX Data Objects 2.? Libray"

En código añades lo siguiente:

Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset

set cn = new ADODB.Connection

cn.conectionstring ="DSN=TuODBC"

cn.open

set rs = new ADODB.Recordset

MANEJO DE ARCHIVOS

El manejo de archivos suele causar problemas a los principiantes, aunque nunca entendí porqué sucede esto. Desde el punto de vista de la programación un archivo no difiere en nada de los que utilizamos en un procesador de texto o en cualquier otra aplicación: simplemente lo abrimos, ejecutamos algún tipo de operación sobre él y luego lo volvemos a cerrar.
Sin embargo, la diferencia más importante es que en un programa accedemos a los archivos de manera secuencial, es decir, se lee una línea por vez desde el comienzo del archivo. En la práctica, un procesador de texto realiza la misma operación, sólo que mantiene el archivo en la memoria mientras uno trabaja en él y luego lo guarda en el disco una vez finalizada la edición. Otra diferencia a tener en cuenta es que podemos abrir un archivo para ser leído o para ser escrito. Podemos escribir en un archivo al crearlo de la nada (o sobreescribiendo uno ya existente) o agregando información al final de un archivo preexistente a la manera de un apéndice.

SENTENCIA DO WHILE

En este ciclo el cuerpo de instrucciones se ejecuta mientras una condición permanezca como verdadera, en el momento en que la condición se convierte en falsa el ciclo termina.

La forma general de esta sentencia es:

do
    sentencia;
while (expresion);


\includegraphics[width=50mm]{im/sintaxis/do-while.eps}


  • sentencia se ejecutará mientras el valor de expresion sea verdadero.
  • sentencia siempre se ejecuta al menos una vez.
  • Si sentencia es compuesta se encierra entre { }.

REPORTE

Este simple ejemplo realizado por Prakash muestra como crear un reporte con un Dataenvironment y poderle pasar dos parámetros en tiempo de ejecución.
Nota: En este otro enlace hay otro ejemplo : Refrescar Datareport al cambiar el valor del parámetro
En el zip para descargar hay una base Access con una tabla, y uno de los campos es de tipo fecha ( campo OrderDate ).
Luego en el formulario, hay dos controles Dtpicker para seleccionar el rango de fecha para obtener los registros usando la sentencia between, y poder desplegar y visualizar el reporte con el conjunto de registros

SELECT CASE

La instrucción Select Case permite utilizar tantas condiciones (o casos) como sea necesario, y conviene escribir el código para situaciones en las que hay muchas opciones. Por ejemplo, suponga que el programa utilizó una variable String para almacenar una opción de color y se necesitaba obtener el valor de color. El código para la instrucción Select Case podría ser similar al siguiente:

Case "red"
MsgBox("You selected red")
Case "blue"
MsgBox("You selected blue")
Case "green"
MsgBox("You selected green")
End Select