Πώς να το ξεχωρίσετε εάν Ερώτημα Υπάρχει

Να είσαι σε θέση να πει εάν υπάρχει ένα ερώτημα βάσης δεδομένων της Microsoft Access από το Visual Basic.NET εφαρμογή σας να κάνετε την αίτησή σας πιο ισχυρό με το να μην ζητά σφάλμα εάν το ερώτημα δεν υπάρχει . Στη VB , μπορείτε να χρησιμοποιήσετε τη λειτουργία " CreateObject " για να δημιουργήσετε μια μεταβλητή αντικειμένου ανώτατου επιπέδου που αντιπροσωπεύει Access. Μπορείτε να ανοίξετε οποιαδήποτε βάση δεδομένων της Access μέσω προγραμματισμού , χρησιμοποιώντας το αντικείμενο και την αναζήτηση για οποιοδήποτε αντικείμενο στη βάση δεδομένων , όπως πίνακες ή ερωτήματα . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
βάση δεδομένων της Access
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio . Κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και να επεκτείνουν " Visual Basic " κάτω " Εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο της κονσόλας . 2

Προσθέστε τον ακόλουθο κώδικα για να δηλώσει τη μεταβλητή αντικειμένου της Access και το Boolean μεταβλητή θα χρησιμοποιήσετε για να ελέγξετε αν υπάρχει το ερώτημα :

Dim accessAppObj As Object

Dim qryResult Όπως Boolean
εικόνων 3

Δημιουργήστε το αντικείμενο , αλλά και να ανοίξει το βάση δεδομένων της Access :

accessAppObj = CreateObject ( " Access.Application " )

accessAppObj.OpenCurrentDatabase ( " C : \\ Northwind 2007.accdb " , False )
Η 4

Αναζήτηση για το " Τιμολόγιο δεδομένων " ερώτημα στη βάση δεδομένων Northwind . Ο κώδικας που ακολουθεί θα επιστρέψει " True" αν υπάρχει το ερώτημα ή " Λάθος " , αν δεν υπάρχει :

On Error Resume Next

Dim s As String

s = accessAppObj.CurrentDb.QueryDefs ( " Τιμολόγιο στοιχεία") . Όνομα

qryResult = ( s <> "" )
5

Ελέγξτε το αποτέλεσμα και να εμφανίσει ένα μήνυμα μέσω της παράθυρο κονσόλας :

Αν ( qryResult ) Στη συνέχεια

Console.Write ( " Query δεν υπάρχει " )

υπόλοιπα

Console.Write ( " Ερώτημα doesn 't υπάρχουν " )

End If

6

κυκλοφορίας αντικειμένων από τη μνήμη :

accessAppObj.CloseCurrentDatabase ( )

accessAppObj.Quit ( )

accessAppObj = Τίποτα

Console.ReadLine ( )
Η

7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα .
εικόνων