Πώς να αποκτήσετε πρόσβαση σε VB Έρευνα

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

1 Ανοίξτε το Microsoft Visual Basic Express . Κάντε κλικ στο " New Project ... " και , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πατήστε το πλήκτρο " Ctrl " και " A " ταυτόχρονα ακολουθείται από "Διαγραφή " για να αφαιρέσετε όλα τα υπάρχοντα κώδικα .
Εικόνων 3

αντιγραφή και επικόλληση τον παρακάτω κωδικό για να συνδεθείτε με τη βάση δεδομένων Northwind , το ερώτημα των « Προϊόντα " τραπέζι και να εμφανίσει τα περιεχόμενα , μέσω της " Data View Grid " ελέγχου :

Εισαγωγές System.Data.Odbc.OdbcConnection

Δημόσιας Τάξης Φόρμα1

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

Dim nwindConn Όπως Odbc.OdbcConnection

Dim qryStr Όπως String

nwindConn = Νέα Odbc.OdbcConnection ( " DSN = NORTHWIND " )

nwindConn.Open ( )

qryStr = "SELECT Προϊόντα . [ Κωδικός ] , Προϊόντα . [ Όνομα προϊόντος] , "

qryStr = qryStr & " Products.Description , Προϊόντα . [ πρότυπου κόστους ] , "

qryStr = qryStr & " Προϊόντα . [ Τιμοκατάλογος ] , Προϊόντα . [ Αναδιάταξη Επίπεδο] "

qryStr = qryStr & "ΑΠΟ Προϊόντα ? "

Δημ. da As New Odbc.OdbcDataAdapter ( qryStr , nwindConn )

Dim ds As New Data.DataSet

da.Fill (ds , " MyTable " )

Με DataGridView1

. DataSource = ds.Tables ( " MyTable " )

End With

nwindConn.Close ( )

nwindConn.Dispose ( )

nwindConn = Τίποτα

End Sub

End Class
Η

4 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα αφαίρεση " NORTHWIND " και πληκτρολογώντας το όνομα του DSN σας ( DSN =

nwindConn = Νέα Odbc.OdbcConnection ( " DSN = NORTHWIND " )

Press " F5 "για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο" Button1 " .
Η
εικόνων