Ako nastaviť DAO Recordset v jazyku Visual Basic

Microsoft Office Access 2007 je relačná databázové aplikácie súčasťou balíka Microsoft Office . Microsoft Data Access Objects ( DAO ) je rozhranie používané pre prístup k dátam z databázy programu Access . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných procesov , podpísaná v aplikáciách Microsoft Office . Použite predvolené databázy Northwind 2007 súčasťou všetkých verzií programu Access , zobrazí sa posledný kód produktu z tabuľky Výrobky cez Recordset . Pokyny dovolená 1

Otvorte databázu " Northwind 2007 " , vyberte " Databázové nástroje " , potom kliknite na " Visual Basic " . Kliknite na menu " Vložiť " , potom vyberte " modul " .
2

Skopírujte a vložte nasledujúci kód do modulu :

Private Sub DAOSub ( )

Dim db Ako DAO.Database

Dim rst Ako DAO.Recordset

Set db = CurrentDb

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

Ak rst.RecordCount > 0 Then

rst.MoveLast

MsgBox ( rst! [ Kód produktu ] )

End If

rst . Close

db.Close

End Sub
3

Stlačte " F5 " spustiť podprogram .

• Predchádzajúca strana: Ako zapisovať do súboru v jazyku Visual Basic 6 
• Ďalšia strana: Programovanie v MS Access 2007