Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come trovare High Value nel Recordset Visual Basic

Un set di record in programmazione viene utilizzato per contenere i record della tabella da un database. Microsoft Office Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare i processi altrimenti fatto manualmente. Nella programmazione , è utile essere in grado di interrogare una tabella e di determinare il valore più alto di un particolare campo della tabella. Istruzioni
1

Aprire Microsoft Office Access , selezionare " Database vuoto ", quindi fare clic su "Crea ". Clicca su "Strumenti database" e selezionare " Visual Basic " per aprire Microsoft Visual Basic .
2

Selezionare il menu "Inserisci" e fare clic su "Modulo ".
3

Copia e incolla il seguente codice nel modulo . Il codice crea una nuova tabella , aggiungere record ad esso e ricercare il valore più alto nel campo " sconti ", attraverso un set di record .

ReadHighestValue Private Sub ( ) per

Dim dbs As Database

Dim rst come Recordset

Dim sqlstr As String

Set dbs = CurrentDb

sqlstr = " CREATE TABLE TABLEVALUES ( numero di vendita , sconti NUMBER) ; "

DoCmd.RunSQL ( sqlstr ) per

sqlstr = " INSERT INTO TABLEVALUES ( [Sales ], [ Sconti ]) "

sqlstr = sqlstr & " VALUES ( '10 .52 ' , '1 .25 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

sqlstr =" INSERT INTO TABLEVALUES ( [Vendite ], [ sconti ] ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

sqlstr = "SELECT TOP 1 tableValues.Discounts "

sqlstr = sqlstr & "FROM TABLEVALUES "

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

set rst = dbs.OpenRecordset ( sqlstr ) per

MsgBox " sconto più alto è stato: " & rst.Fields ( 0 ) Valore

rst.Close

dbs.Close < . br>

End Sub
4

Eseguire il sottoprogramma con il tasto " F5 ".

 

Programmazione © www.354353.com