Πώς να προσθέσετε μια νέα γραμμή για πρόσβαση σε ερωτήματος σε VB

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

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

Πατήστε το " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή" για να διαγράψετε όλα τα υπάρχοντα κώδικα .

Η 3

αντιγραφή και επικόλληση του παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb " σας για να αποκτήσετε πρόσβαση σε ένα ερώτημα χρησιμοποιώντας τη Visual Basic.NET :

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

Module Module1

Sub Main ( )

Dim oleConn Όπως OleDbConnection

Dim SQLstr Όπως String Dim

dSet Όπως DataSet

Dim strTmp Όπως String

SQLstr = "SELECT * FROM Πελάτες Πελάτες ? . "

oleConn = Νέα OleDbConnection _

( " Provider = Microsoft.ACE.OLEDB . 12.0 ? Πηγή δεδομένων = C : \\ Northwind 2007.accdb ? " )

Dim MyConnection Όπως OleDbConnection = Νέα OleDbConnection

Dim da Όπως OleDbDataAdapter

da = Νέα OleDbDataAdapter ( SQLstr , oleConn )

dSet = New DataSet

da.Fill ( dSet , " Πελάτες " )

For Each rowCust Σε dSet.Tables ( « πελάτες » ) . Γραμμές

strTmp = strTmp & rowCust ( «Εταιρεία» ) ToString ( ) & . "