Visual Basic.net -Αποθήκευση διαδρομής εικόνας σε βάση δεδομένων της Access

Θέμα

Χρειάζομαι πρόγραμμα για να αποθηκεύσω τη διαδρομή της εικόνας στη βάση δεδομένων της Access. Πώς μπορεί να επιτευχθεί αυτό;

Λύση

Αυτή η εφαρμογή διαθέτει ένα κουμπί "Άνοιγμα" που θα σας βοηθήσει να ανοίξετε οποιοδήποτε αρχείο εικόνας σε ένα PictureBox στη φόρμα χρησιμοποιώντας το OpenFileDialog. Θα δείτε τη διαδρομή του αρχείου εικόνας σε απενεργοποιημένο Κείμενο. Όταν κάνετε κλικ στο κουμπί ενημέρωσης, η διαδρομή της εικόνας αποθηκεύεται σε μια βάση δεδομένων της Access.

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

Δημιουργήστε ένα νέο έργο Visual Basic.net. Επιλέξτε Windows Application Forms από το νέο παράθυρο διαλόγου Project. Ονομάστε αυτήν την εφαρμογή ως mikeoe2003PictureApplication.
Δημιουργήστε τα παρακάτω με τις παρακάτω ιδιότητες:
- Μορφή - (Όνομα): mikeoe2003ΦωτογραφίαΑφαρμογή, Κείμενο: FormPictureApplication
- PictureBox - (Όνομα): PictureBox1, ΜέγεθοςMode: StretchImage
- Κουμπί - (Όνομα): ButtonUpdate, Κείμενο: & Ενημέρωση
- Κουμπί - (Όνομα): ΚουμπίΝα ανοίξετε, Κείμενο: & Άνοιγμα
TextBoxt - (Όνομα): TextBoxPictureFilePath, Ενεργοποιημένο: Ψευδές
Κάντε διπλό κλικ στο έντυπο, εισαγάγετε τον ακόλουθο κώδικα ακριβώς πάνω από τη δημόσια τάξη mikeoe2003PictureApplication:

 Εισαγωγές System.Data.OleDb Εισαγωγές System.IO Εισαγωγή του Microsoft.Win32 DoubleClick ButtonOpen και εισαγάγετε τον ακόλουθο κώδικα: Dim img Ως String Dim myStream As Stream = Τίποτα Dim dim openFileDialog1 As Νέο OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Τίποτα δεν είναι openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = Αληθινό openFileDialog1.FileName = "" Αν openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Στη συνέχεια δοκιμάστε myStream = openFileDialog1.OpenFile () Αν (myStream IsNot Nothing ) Τότε TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName Τερματισμός Αν Catch Ex ως Exception MessageBox.Show ("Δεν είναι δυνατή η ανάγνωση αρχείου από το δίσκο Αρχικό σφάλμα: "& Ex.Message" Τέλος Αν (myStream IsNot Τίποτα) Τότε myStream.Close () End Αν End End Try If

Δημιουργήστε μια βάση δεδομένων της Microsoft Access στη βολική τοποθεσία σας και ονομάστε την ως Databaseasemikeoe2003PictureApplication.mdb
Δημιουργήστε έναν πίνακα με το όνομα Tablemikeoe2003PictureApplication και προσθέστε τις ακόλουθες στήλες σε αυτό:

 Id - Datatype: Autonumber PicturePath - DataType: Memo (ως διαδρομές αρχείων μπορεί να είναι αρκετά μεγάλη κατά περιόδους)

Κάντε διπλό κλικ στο UpdateButton και εισαγάγετε τον ακόλουθο κώδικα:

Προσπαθήστε

 Dim myComnection Ως OleDbConnection Dim myCommand Ως OleDbCommand Dim mySQLString Ως String myConnection = Νέο OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Databaseasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "ΕΙΣΑΓΩΓΗ ΣΤΟ Tablemikeoe2003PictureApplication (PicturePath ) MyComment (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Τίποτα δεν υπάρχει TextBoxPictureFilePath.Text = "" Πιάσε ex ως MessageBox.Show Εξαίρεση (ex.Message & "-" & ex.Source) Τέλος Δοκιμάστε