programacion en botones OLL 2

Referencias (Remote Data Object) DLL
Active el control DLL Microsoft Remote Data Object 2.0
Utilizada para conectarse con la ODBC

Variables de Conexión y Módulos
Un módulo es un archivo en donde se crean las variables que serán usadas por la aplicación desde cualquier formulario (Globales).
Proyecto – agregar nuevo módulo.
Doble click sobre el modulo si ya se encuentra abierto entoncesomitir este paso.
Escribir lo siguiente:
Option explicit
Public env as rdoenvironment
Public con as rdoconnection
Salir del módulo.
Conexión a una base de datos.
Ingrese al evento load del formulario.
Escriba las siguientes instrucciones.
Set env = rdoenvironments(0)
Set con = env.openconnection(“ Nom – de la ODBC”,rddrivernoprompt)

Ninguna casilla debe de aceptar el apostrofe ocomillas simples, ni las dobles comillas porque estos son elementos reservados de Visual Basic:
Evento Keypress
If Keyascii = 39 or keyascii = 34 then
Keyascii = 0
End If
Programar en todas las casillas




Haga Doble click en cualquier punto del formulario, Presione Av Pag y escriba lo siguiente:
Private Sub Datosiníciales ( )
TXTNOMBRE = EMPTY
TXTDIRECCION = EMPTY
TXTFECHAINGRESO =”__/__/____”
TXTSUELDO = EMPTY
TXTTELEFONO = EMPTY
TXTESTADOCIVIL = ”1”
TXTSEXO = ”M”
TXTDEPARTAMENTO = EMPTY
TXTSUCURSAL = EMPTY
TXTSINDICATO = ”S”
End Sub

Aspectos Importantes al momento de grabar Datos
1. Elementos para cada variable o casilla si no es el último dato a grabar:
a. Si es una casilla Alfanumerica (text) o fecha.
& “ ‘ “ casilla & “ ‘, “ _
No va espacio entre el ladoble comilla y el apostrofe (comilla sensilla) o la coma.
Antes del guion de continuación va un espacio.
Antes y después del aspersan (&) va un espacio.

b. Si es una casilla numérica:

& casilla & “,” _

No va espacio entre la Doble comilla y la coma.
Antes del guion de continuación va un espacio.
Antes y después del aspersan (&) va un espacio.


2. Elementos para cada variable ocasilla si es el último dato a grabar.
a. Si es una casilla alfanumérica (text) o fecha.

& “ ‘ “ & Casilla & “ ’)”

No va espacio entre la Doble comilla y el apostrofe (comilla sencilla) o el paréntesis derecho.
No va el guion de continuación.
Antes y después del signo aspersan (&) va un espacio.
b. Si es una casilla numérica:
& casilla & “)”

No va el espacio entre la Doble comilla y elparéntesis derech.
No va el guion de continuación.
Antes y después del signo aspersan (&) va un espacio.


Programación del Botón Cancelar.

Haga Doble Click sobre el botón Cancelar y escriba lo siguiente.

Private Sub Cancelar_Click ( )
DATOSINICIALES
TXTCODIGO = EMPTY
TXTCODIGO.SETFOCUS
End Sub

Programación del Botón Agregar, Guardar o Salir
EVENTO CLICK
MstrSql = “insert into empleados(código,nombre,dirección,
fechaingreso,sueldo,teléfono,estadocivil,
sexo,departamento,sucursal,sindicato) values (“ _ (presione enter no va en el código)
& ” ’ ” & TXTCODIGO & “ ‘, “ _ Presione Enter
& ” ’ ” & TXTNOMBRE & “ ‘, “ _ Presione Enter
& ” ’ ” & TXTDIRECCION & “ ‘, “_ Presione Enter
& ” ’ ” & TXTFECHAINGRESO & “ ‘, “_ PresioneEnter
& TXTSUELDO & “ , “ _ Presione Enter
& ” ’ ” & TXTTELEFONO & “ ‘, “_ Presione Enter
& ” ’ ” & TXTESTADOCIVIL & “ ‘, “_ Presione Enter
& ” ’ ” & TXTSEXO & “ ‘, “_ Presione Enter
& ” ’ ” & TXTDEPARTAMENTO & “ ‘, “_ Presione Enter
& ” ’ ” & TXTSUCURSAL & “ ‘, “_ Presione Enter
& ” ’ ” & TXTSINDICATO & “ ‘)“ Presione Enter
Con.Execute (MstrSql)
Con.CommittransCancelar_click

Casillas Numéricas
En una Casilla numérica solo debes de entrar los números del 0 al 9 y el punto decimal (solo una vez). Siendo necesario programarlo.
Evento Keypress.
If KeyAscii >= 32 Then
If Not isNumeric(Chr(KeyAscii)) Then
If Chr(KeyAscii) < > “.” Then
KeyAscii = 0
Else
If (Instr(1, TXTSueldo.Text, “.” )) > 0 Then
KeyAscii = 0
End If
End If...