Trabajos
Private Sub C_Click()
With rsconsulta
If .State = 1 Then .Close
.Open "select apellidos, nombres, muninombre from estudiantes INNER JOINmunicipios ON estudiantes.idmuni = municipios.idmuni", cn, adOpenStatic, adLockOptimistic
End With
Set dg.DataSource = rsconsulta
End Sub
Nestor dijo que:
Private Sub C_Click()
Withrsconsulta
If .State = 1 Then .Close
.Open "select apellidos, nombres, muninombre As Municipios from estudiantes INNER JOIN municipios ON estudiantes.idmuni = municipios.idmuni where muninombre like 'c%'order by apellidos desc", cn, adOpenStatic, adLockOptimistic
End With
Set dg.DataSource = rsconsulta
End Sub
Mostrar los apellidos y nombres de los estudiantes inscritos en el grado de 4to. Ytambién mostrar la nota 1 y la nota no. 2 ordenado por grado y apellido de forma asc
Private Sub C_Click()
With rsconsulta
If .State = 1 Then .Close
.Open "select apellidos, nombres, nota1, nota2from (estudiantes INNER JOIN inscritos ON estudiantes.idalumna = inscritos.idalumna)INNER JOIN notas ON inscritos.idmatricula = notas.idmatricula where idgrado = '4' order by apellidos asc", cn,adOpenStatic, adLockOptimistic
End With
Set dg.DataSource = rsconsulta
End Sub’’’’
Mostrar los municipios y el promedio de la nota1
Private Sub C_Click()
With rsconsulta
If .State = 1 Then .Close.Open "select muninombre, avg(nota1) As Promedio from ((estudiantes INNER JOIN municipios ON estudiantes.idmuni = municipios.idmuni) INNER JOIN inscritos ON estudiantes.idalumna =inscritos.idalumna)INNER JOIN notas ON inscritos.idmatricula = notas.idmatricula group by muninombre", cn, adOpenStatic, adLockOptimistic
End With
Set dg.DataSource = rsconsulta
End Sub
Count(campo) < ContarSum(campo) < Suma
Avg(campo) < Promedio
Clase de compu antes del parcial :S
Mostrar los nombres, apellidos y el grado el pago que los estudiantes realizan ordenar asc por el grado...
Regístrate para leer el documento completo.