CODIGO PARA BUSCAR
Enviado por gregoriobarberi1 • 25 de Noviembre de 2014 • 1.325 Palabras (6 Páginas) • 181 Visitas
CODIGO PARA BUSCAR
Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que nombre desea buscar?", "busqueda por nombre", vbQuestion)
If buscar = "" Then
Exit Sub
criterio = "nombre like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Alumno no encontrado", vbCritical)
End If
End If
End Sub
CODIGO PARA ELIMINAR
Private Sub eliminar_Click()
Dim confirmacion As Integer
confirmacion = MsgBox("¿Desea eliminar el Alumno?", vbYesNo + vbQuestion + vbDefaultButton2, "Eliminar Alumno")If confirmacion = vbYes Then
Adodc1.Recordset.Delete
MsgBox ("El alumno ha sido borrado")
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
ElseExit Sub
End If
End Sub
CODIGO PARA AGREGAR
On Error GoTo Error
If Text1.Text "" And Text2.Text "" And Text3.Text "" And Text4.Text "" And Text5.Text "" Then
Data1.RefreshData1.Recordset.AddNew
Data1.Recordset.Update
Else
MsgBox "Agregar Datos", vbCritical, "Error en Alta"
End If
Error:
If Err.Number 0 Then
MsgBox "Descripción del Error: "& Err.Description, vbCritical, "ERROR"
End If
Exit Sub
CODIGO PARA IMPRIMIR
Private Sub Command6_Click() (imprimir)
confirmacion = MsgBox("¿Desea imprimir los datos?", vbYesNo +vbQuestion + vbDefaultButton2, "imprimir datos")
If confirmacion = vbYes Then
Me.PrintForm
End If
End Sub
_____________________________________________________________________________
Ejemplo simple para abrir un formulario de ingreso pidiendo el nombre de usuario y password para ingresar al programa
Lo siguiente utiliza una base de datos con una tabla que tiene dos campos, uno llamado " Nombre " y otro campo llamado " Password”.
Al ejecutar el programa, se inicia desde un SubMain y un formulario de Login. Este último , se conecta a la base de datos utilizando Ado para traer los datos del usuario al recordset y comprobar si son correctos y poder entrar al formulario principal
Pasos para crear el ejemplo:
• Crear una tabla llamada Usuarios
• Dentro de esta tabla añadir dos campos, uno llamado Nombre y otro Password
• Al proyecto añadir dos formularios ( frmLogin y frmPrincipal )
• Un módulo bas
• Añadir la referencia a Microsoft Activex xx Data Objects para poder utilizar ADO
El formulario frmLogin debe tener dos textBox ( txt_Usuario y txt_Password ) y dos commandButton ( cmdEntrar y cmdSalir )
Luego indicar desde el menú Proyecto > Propiedades del proyecto .. en la opción " Objeto inicial " , el procedimiento Sub Main
________________________________________
A continuación sigue el código a agregar en el módulo bas y el código del formulario frmLogin
código fuente del módulo bas
Texto planoCopiar código fuenteImprimir
1. Option Explicit
2.
3. Public Sub Main()
4.
5.
6. ' Abre el formulario para el ingreso _
7. del Usuario y la contraseña
8. frmLogin.Show vbModal
9.
10. MsgBox " ..bienvenido ",
...