Visual Basic.net - Bildpfad zu einer Access-Datenbank speichern

Problem

Ich benötige ein Programm, um den Bildpfad in meiner Access-Datenbank zu speichern. Wie kann das erreicht werden?

Lösung

Diese Anwendung verfügt über eine Schaltfläche zum Öffnen, mit der Sie mithilfe von OpenFileDialog eine Bilddatei in einer PictureBox auf dem Formular öffnen können. Sie sehen den Pfad der Bilddatei in einer deaktivierten Textbox. Wenn Sie auf die Schaltfläche "Aktualisieren" klicken, wird der Pfad des Bilds in einer Access-Datenbank gespeichert.

Führen Sie die folgenden Schritte aus, um ein ähnliches Projekt für sich selbst zu erstellen:

• Erstellen Sie ein neues Visual Basic.net-Projekt. Wählen Sie im Dialogfeld "Neues Projekt" die Option "Windows Forms-Anwendung". Nennen Sie diese Anwendung mikeoe2003PictureApplication.
• Erstellen Sie Folgendes mit den folgenden Eigenschaften:
  • Form - (Name): mikeoe2003PictureApplication, Text: FormPictureApplication
  • PictureBox - (Name): PictureBox1, SizeMode: StretchImage
  • Button - (Name): ButtonUpdate, Text: & Update
  • Button - (Name): ButtonOpen, Text: & Open
• TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
• Doppelklicken Sie auf das Formular, und geben Sie den folgenden Code direkt über Public Class mikeoe2003PictureApplication ein:

 Importiert System.Data.OleDb Importiert System.IO Importiert Microsoft.Win32 Doppelklicken Sie auf ButtonOpen, und fügen Sie den folgenden Code ein: Dim img As String Dim myStream As Stream = Nothing Dim openFileDialog1 As New OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Nichts openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = Wahr openFileDialog1.FileName = "" Wenn openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Dann versuchen Sie myStream = openFileDialog1.Not.OK ) Dann TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName Ursprünglicher Fehler: "& Ex.Message) Endlich wenn (meinStream ist nichts), dann meinStream.Close () End If End Try End If 

• Erstellen Sie eine Microsoft Access-Datenbank an der gewünschten Stelle und nennen Sie sie Databasemikeoe2003PictureApplication.mdb
• Erstellen Sie eine Tabelle mit dem Namen Tablemikeoe2003PictureApplication und fügen Sie die folgenden Spalten hinzu:

 Id - Datentyp: Autonumber PicturePath - Datentyp: Memo (da die Dateipfade manchmal sehr lang sein können) 

• Doppelklicken Sie auf den UpdateButton und fügen Sie den folgenden Code ein:

Versuchen

 MyConnection als OleDbConnection dim myCommand als OleDbCommand dim mySQLString als String myConnection = New OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Databasemikeoe2003PictureApplication.mdb;") ) VALUES ('"& Replace $ (TextBoxPictureFilePath.Text, "' ", " '") &"') "myCommand = Neuer OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nothing TextBoxPictureFileP "" Ex als Ausnahme abfangen MessageBox.Show (ex.Message & "-" & ex.Source) Versuch beenden 

• Führen Sie die Anwendung aus, sie sollte wie gewünscht funktionieren.

Vielen Dank an Zohaib R für diesen Tipp im Forum.