Πώς να εκτελέσει μια MS Access Query Από VB

Γνωρίζοντας πώς να εκτελέσει το Microsoft Office Access ερωτήματα χρησιμοποιώντας το Visual Basic.NET ( VB.NET ) μπορεί να σας εξοικονομήσει χρόνο, εάν εργάζεστε με μια βάση δεδομένων . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . VB.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιείται για τη δημιουργία εφαρμογών Windows. Ένα ερώτημα ενέργειας χρησιμοποιείται για να κάνετε αλλαγές σε μια υπάρχουσα βάση δεδομένων . Σε μερικά βήματα μπορείτε να γράψετε τον κωδικό VB.NET να εκτελέσει τα ερωτήματα δράση για να δημιουργήσετε και να διαγράψετε έναν πίνακα σε μια βάση δεδομένων . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Microsoft Office Access
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή κονσόλας . " Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή " για να αφαιρέσετε τον τρέχοντα κωδικό . 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας για να εκτελέσετε ένα ερώτημα και να δημιουργήσετε έναν πίνακα στη βάση δεδομένων Northwind , στη συνέχεια, να εκτελέσει ένα άλλο ερώτημα και να διαγράψετε τον πίνακα που δημιουργήθηκε . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office .

Εισαγωγές System.Data.OleDb

Module Module1

Sub Main ( )

Dim myConnToAccess Όπως OleDbConnection

Dim mySQLCommand Όπως OleDbCommand

Dim mySQLStrg Όπως String

myConnToAccess = Νέα OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ Northwind 2007.accdb ? " )

myConnToAccess.Open ( )

mySQLStrg = " CREATE TABLE tableToDelete ( [ Index] ΑΡΙΘΜΟΣ [ Desc] TEXT) ? "

mySQLCommand = νέα OleDbCommand ( mySQLStrg , myConnToAccess )

mySQLCommand.ExecuteNonQuery ( )

MsgBox ( " tableToDelete έχει δημιουργηθεί στη βάση δεδομένων σας Northwind " )

mySQLStrg = " DROP TABLE tableToDelete ? "

mySQLCommand = Νέα OleDbCommand ( mySQLStrg , myConnToAccess )

mySQLCommand.ExecuteNonQuery ( )

MsgBox ( " tableToDelete έχει διαγραφεί " )

myConnToAccess . Κλείσιμο ()

End Sub

End Module
εικόνων 3

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

OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ? δεδομένων

Source = C : \\ Northwind 2007.accdb ? " )

Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας <. br >

Η