Come impostare DAO Recordset in Visual Basic

January 8

Come impostare DAO Recordset in Visual Basic


Microsoft Office Access 2007 è un'applicazione di database relazionale incluso nella suite Microsoft Office. Microsoft Data Access Objects (DAO) è un'interfaccia utilizzata per accedere ai dati dal database di Access. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato per automatizzare i processi di routine effettuate nelle applicazioni Microsoft Office. Utilizzare il database predefinito Northwind 2007 incluso in tutte le versioni di Access, per visualizzare l'ultimo codice prodotto dalla tabella prodotti attraverso un Recordset.

istruzione

1 Aprire il database "Northwind 2007", selezionare "Strumenti database" quindi fare clic su "Visual Basic". Fare clic sul menu "Inserisci", quindi selezionare "Modulo".

2 Copia e incolla il seguente codice nel modulo:

Private Sub DAOSub ()

db fioco come DAO.Database

Dim primo Come DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset ( "Prodotti", dbOpenDynaset)

Se rst.RecordCount> 0 Then

rst.MoveLast

MsgBox (primo! [Codice di prodotto])

Finisci se

rst.Close

db.Close

End Sub

3 Premere il tasto "F5" per eseguire la subroutine.