Πώς να συνδέσετε να αποκτήσετε πρόσβαση σε VB6

Η γλώσσα Visual Basic 6 ( VB6 ) προγραμματισμός χρησιμοποιεί το αντικείμενο Microsoft Jet σύνδεση και ενσωμάτωση βάσης δεδομένων ( OLE DB ) μονάδα συστήματος πάροχο για τη σύνδεση με μια βάση δεδομένων της Access. Μπορείτε να δημιουργήσετε συνδέσεις σε πηγές δεδομένων μέσα από την εφαρμογή σας, χρησιμοποιώντας αντικείμενα σύνδεσης δεδομένων σε προγράμματα VB6 . Με τη θέσπιση του ConnectionString ιδιότητα του αντικειμένου OleDbConnection , μπορείτε να ανοίξετε τη σύνδεση σε μια βάση δεδομένων της Access . Όταν έχετε δημιουργήσει μια σύνδεση μεταξύ μιας εφαρμογής και της βάσης δεδομένων της Access , μπορείτε να ενημερώσετε τα δεδομένα , να εκτυπώσετε ή να κάνετε προεπισκόπηση μιας έκθεσης της Access και να εμφανίσει μια φόρμα της Access σε εφαρμογές VB6 . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και στη συνέχεια κάντε κλικ στο " Microsoft Visual Studio . " 2

Επιλέξτε "Αρχείο" και "Άνοιγμα " και στη συνέχεια κάντε διπλό κλικ στο το πρόγραμμα της Visual Basic στο οποίο θέλετε να συνδεθείτε με τη βάση δεδομένων της Access .
εικόνων 3

Εισάγετε τον παρακάτω κωδικό μετά την "Δημόσια Shared Main ( ) " γραμμή για να συνδεθεί με το "Παραγγελίες" Access βάση δεδομένων και τοποθετήστε μια νέα τάξη :

Public Sub ConnectToAccess ( )

Dim conn Όπως New System.Data.OleDb.OleDbConnection ( )

Dim insert_rec Όπως SqlCommand

' τροποποιήσετε τη συμβολοσειρά σύνδεσης

conn.ConnectionString = & _

" Provider = Microsoft.Jet.OLEDB.12.0 ? πηγή δεδομένων = " & _

" C : . \\ Documents and Settings \\ όνομα χρήστη \\ My Documents \\ dbFile.mdb "

Δοκιμάστε

conn.Open ( )

« ένθετο δήλωση SQL για να προσθέσετε δεδομένα

insert_rec = Νέα SqlCommand ( " INSERT INTO Παραγγελίες (Προϊόν

ID , Όνομα Προϊόντος , Τιμή , Μονάδες , Τοποθεσία ) τιμές ( '36127 ' , πώληση

« Εγκύκλιος Άξονας »,« 250.95 » , 50 , « αποθήκη » , conn )

» παρακολουθεί τη σύνδεση για σφάλματα

Catch ex Όπως Εξαίρεση

MessageBox.Show ( " Αποτυχία σύνδεσης με την πηγή δεδομένων " )

conn.Close ( )

End Δοκιμάστε

Sub End
Η
εικόνων