Πώς να σώσει μεταβλητές σε βάσεις δεδομένων με χρήση της Microsoft Visual Basic OLEDB

Στη Visual Basic , η σύνδεση και ενσωμάτωση αντικειμένων , βάση δεδομένων ( OLE DB ) διεπαφή προγραμματισμού εφαρμογών σας επιτρέπει να συνδέσετε το πρόγραμμά σας με μια βάση δεδομένων . Με αυτό , μπορείτε να αποθηκεύσετε τις πληροφορίες από το έργο σας σε έναν πίνακα στη βάση δεδομένων σας και να επαναχρησιμοποιηθεί σε άλλες εφαρμογές . Μπορείτε να δημιουργήσετε τις μεταβλητές σας οπουδήποτε στο έργο σας , όπως από τα πλαίσια κειμένου , πλαίσια ελέγχου ή μια λίστα επιλογών , απλά βεβαιωθείτε μεταβλητή τύπου δεδομένων σας ταιριάζει με τον τύπο δεδομένων του πεδίου στον πίνακα της βάσης δεδομένων σας . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να ξεκινήσετε ένα νέο έργο . Ανοίξτε το παράθυρο κώδικα και να δημιουργήσετε μια συνάρτηση πληκτρολογώντας " Private Sub AddRecord ( ) " 2

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

Δημ. dbCon Όπως New OleDb.OleDbConnection

Dim DataSet Όπως New DataSet

Dim dataAdap Όπως OleDb.OleDbDataAdapter

Dim SqlCommand Όπως String

Τα " dbCon " μεταβλητή θεσπίζει μια σύνδεση με τη βάση δεδομένων σας , « δέσμη » κατέχει στοιχεία από αυτό , " dataAdap " εκτελεί τις εντολές και αλληλεπιδρά με τη βάση δεδομένων , και το " SqlCommand » κατέχει τις ερωτήσεις σας .
εικόνων 3

σύνδεση με βάση δεδομένων σας με τις ακόλουθες γραμμές :

dbCon.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ? προέλευσης δεδομένων = path_to_database "

dbCon.Open ( )

Αντικαταστήστε το " path_to_database " τμήμα με τη φυσική θέση της βάσης δεδομένων στον υπολογιστή σας . Η γραμμή αυτή συνδέει πρόγραμμα της Visual Basic σας στη βάση δεδομένων σας και η δεύτερη γραμμή ανοίγει τη βάση δεδομένων
Η

4 Πληκτρολογήστε τις ακόλουθες γραμμές για να φορτώσετε τα δεδομένα από τη βάση δεδομένων σας : .

SqlCommand = "SELECT * ΑΠΟ tblContacts "

dataAdap = Νέα OleDb.OleDbDataAdapter ( SqlCommand , dbCon )

dataAdap.Fill ( δέσμη , " βάση δεδομένων " )

προσαρμογέα δεδομένων σας κρατά τώρα όλη η αρχείων μέσα τραπέζι σας . Μπορείτε να χρησιμοποιήσετε ένα όνομα , εκτός από " Βάση δεδομένων " για τον καλύτερο εντοπισμό τραπέζι σας . Για παράδειγμα , αν το τραπέζι σας κρατά στοιχεία επικοινωνίας , μπορείτε να ονομάσετε αυτό το " Επαφές "
5

Δημιουργήστε τις ακόλουθες μεταβλητές : .

Δημ. comBuild Όπως New OleDb.OleDbCommandBuilder ( dataAdap )

Dim dataNewRow Όπως DataRow

Η πρώτη γραμμή επικυρώνει μια εντολή ένθετο στο τραπέζι σας, όταν χρησιμοποιείτε ένα DataRow . Η δεύτερη γραμμή δημιουργεί το αντικείμενο DataRow
Η 6

Πληκτρολογήστε τις ακόλουθες γραμμές για να προσθέσετε μια νέα γραμμή στον πίνακα στη βάση δεδομένων σας και να αποθηκεύσετε τις μεταβλητές σας σε πεδία της εγγραφής : .

DataNewRow = dataSet.Tables ( " Βάση δεδομένων " ) . NewRow ( )

dataNewRow.Item ( 1 ) = variable1

dataNewRow.Item ( 2 ) = variable2

dataNewRow.Item ( " FIELD_NAME " ) = variable3

dataSet.Tables ( « βάση δεδομένων» ) . Rows.Add ( dataNewRow )

dataAdap.Update ( δέσμη , " Βάση δεδομένων " )

η πρώτη γραμμή προετοιμάζει μια νέα εγγραφή με κενά πεδία . Οι επόμενες τρεις γραμμές να προσθέσετε πληροφορίες . Τα δύο πρώτα χρησιμοποιήσετε τους αριθμούς ευρετηρίου των πεδίων του πίνακα και την εισαγωγή αυτών των μεταβλητών στην πρώτη και τη δεύτερη πεδία στην εγγραφή . Ο τρίτος χρησιμοποιεί το όνομα τομέα για την αναγνώριση στην οποία το πεδίο για να αποθηκεύσετε αυτή τη μεταβλητή . Η πέμπτη και έκτη γραμμή προσθέστε το ρεκόρ με τις μεταβλητές σας στο τραπέζι σας και να δεσμευθούν τα δεδομένα
Η 7

Πληκτρολογήστε την ακόλουθη γραμμή για να κλείσετε τη σύνδεση με τη βάση δεδομένων: .

DbCon.Close ( )

Καλέστε σας " AddRecord ( ) " λειτουργία αλλού στον κώδικά σας , όπως σε περίπτωση που το κουμπί κλικ.
Η
εικόνων