CODIGO PARA BUSCAR

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 ", vbInformation, " Login Correcto "

...