informatica

Codigo agregar, eliminar, buscar e imprimir para visual basic
Regístrese para
acceso completo a ensayos
Enviado por urieloo, sept. 2010 | 2 Páginas (267 Palabras) | 570 Visitas |
4.5 12345
|Denunciar |
CUÉNTALE
A TODOS ACERCA DE NOSOTROS...
Enviar



CODIGO PARA BUSCAR
Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que nombre deseabuscar?", "busqueda por nombre", vbQuestion)
If buscar = "" ThenExit Sub
criterio = "nombre like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Findcriterio
End If
If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("Alumno noencontrado", vbCritical)
End If
End If
End SubCODIGO 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 ThenAdodc1.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 "" ThenData1.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

NOTA:

hay veces que los codigos no quieren funcionar me paso unasola vez pero no...