Cómo encontrar Alto Valor en Recordset Visual Basic

Un conjunto de registros en la programación se utiliza para mantener registros de la tabla de una base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar los procesos de lo contrario se hace manualmente. En la programación , es útil ser capaz de consultar una tabla y determinar el valor más alto de un campo de tabla en particular. Instrucciones
1

Abra Microsoft Office Access , seleccione "Base de datos en blanco " y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos" y seleccione "Visual Basic " para abrir Microsoft Visual Basic .
2

Seleccione el menú "Insertar" y haga clic en " módulos".
3 < p> Copia y pega el siguiente código en el módulo. El código creará una nueva tabla, agregar registros a la misma y consultar el valor más alto en el campo " Descuentos " a través de un conjunto de registros .

ReadHighestValue Sub Private ()

Dim dbs como base de datos

rst As Recordset

sqlstr dévil como secuencia

Set dbs = CurrentDb

sqlstr = "CREATE TABLE (número tableValues ​​rebajas, descuentos NUMBER) ; "

DoCmd.RunSQL ( sqlstr )

sqlstr = "INSERT INTO tableValues ​​( [Ventas ], [ Volumen ]) "

sqlstr = sqlstr y VALORES
" ( '10 .52 ' , '1 .25 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO tableValues ​​( [Ventas ], [ Descuentos ] ) "

sqlstr = sqlstr & " VALUES ( '15 .25 ', '4 .52 ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )
< p > sqlstr = " SELECT TOP 1 tableValues.Discounts "

sqlstr = sqlstr y "FROM tableValues ​​"

sqlstr = sqlstr & " ORDER BY tableValues.Discounts DESC ";

Set rst = dbs.OpenRecordset ( sqlstr )

MsgBox " El mejor descuento fue: " & rst.Fields ( 0 ) Valor

rst.Close

dbs.Close < . br>

End Sub
4

Ejecute la subrutina con la tecla " F5 ".