Codigos de visual basic para trabajar con base de datos

Solo disponible en BuenasTareas
  • Páginas : 2 (396 palabras )
  • Descarga(s) : 0
  • Publicado : 8 de diciembre de 2011
Leer documento completo
Vista previa del texto
• Private Sub AMARILLO_Click()
TEXTO:.BackColor = vbYellow
End Sub
este codigo es para darle color a un texto

• este código es para el tamaño de letra
Private Sub PEQUEÑO_Click()TEXTO.FontSize = 8
End Sub
• este código es para el formato de texto
Private Sub CASTELLAR_Click()
TEXTO.FontName = "CASTELLAR"
End Sub
• este código es para suma de numeros
Private SubForm_Load()
'DECLARACION DE VARIABLES
Dim INGRESADO As Integer
Dim NUMERO As Integer
Dim CONTADOR As Integer
Dim SUMA As Integer
SUMA = 0
INGRESADOS = InputBox("CUANTAS VECES SE VA AREPETIR:")

For CONTADOR = 1 To INGRESADOS
NUMERO = InputBox("ESCRIBA UN NUMERO:")
SUMA = SUMA + NUMERO

Next CONTADOR
PROMEDIO = SUMA / INGRESADOS
TOTAL = SUMA
LIEDOS = INGRESADOS
End Sub• Este es la vincualcion de bisual basic con base de datos botones de acción (microsotf access)
Private Sub buscar_Click()
Dim buscar As String, criterio As String
buscar = InputBox("¿Que nombredesea buscar?", "busqueda por nombre", vbQuestion)
If buscar = "" Then Exit Sub
criterio = "nombre like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF ThenAdodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.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

Private Sub cancelar_Click()
Adodc1.Recordset.CancelUpdate
ver.Visible = False
Calendario.Visible = Falsefecha_nac.Visible = True
sex.Visible = False
sexo.Visible = True
End Sub

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...
tracking img