Πώς να Set Up DAO εγγραφών σε Visual Basic

Microsoft Office Access 2007 είναι μια σχεσιακή βάση δεδομένων εφαρμογή περιλαμβάνονται στη σουίτα Microsoft Office . Microsoft Data Access Objects ( DAO ) είναι μια διεπαφή που χρησιμοποιείται για την πρόσβαση σε δεδομένα από βάσεις δεδομένων της Access . Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των διαδικασιών ρουτίνας γίνεται σε εφαρμογές του Microsoft Office . Χρησιμοποιήστε την προεπιλεγμένη βάση δεδομένων Northwind 2007 περιλαμβάνεται με όλες τις εκδόσεις της Access , για να εμφανίσετε το τελευταίο Κωδικός Προϊόντος από τον πίνακα Products μέσω εγγραφών . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων " Northwind 2007 " , επιλέξτε " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού , στη συνέχεια, επιλέξτε " Ενότητα ". 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα σας :

Private Sub DAOSub ( )

dim db Όπως DAO.Database

dim rst Όπως DAO.Recordset

Set db = CurrentDb

Set RST = db.OpenRecordset ( " Προϊόντα" , dbOpenDynaset )

Αν rst.RecordCount > 0 τότε

rst.MoveLast

MsgBox ( rst! [ Κωδικός ] )

End If

ΤΥ . Κλείσιμο

db.Close

End Sub
εικόνων 3

Πατήστε το " F5 " για να εκτελέσετε την υπορουτίνα .
εικόνων
Η