Visual Basic.net - Salvataggio del percorso dell'immagine in un database di Access

Problema

Ho bisogno di un programma per salvare il percorso dell'immagine nel mio database di Access. Come può essere raggiunto?

Soluzione

Questa applicazione ha un pulsante Apri che ti aiuterà ad aprire qualsiasi file di immagine in un PictureBox sul modulo usando OpenFileDialog. Vedrai il percorso del file immagine in un TextBox disabilitato. Quando si fa clic sul pulsante di aggiornamento, il percorso dell'immagine viene salvato in un database di accesso.

Segui i passaggi seguenti per creare un progetto simile per te:

Creare un nuovo progetto Visual Basic.net. Selezionare Applicazione Windows Form dalla finestra di dialogo Nuovo progetto. Denominare questa applicazione come mikeoe2003PictureApplication.
Creare quanto segue con le proprietà sottostanti:
- Modulo - (Nome): mikeoe2003PictureApplication, Text: FormPictureApplication
- PictureBox - (Nome): PictureBox1, SizeMode: StretchImage
- Pulsante - (Nome): ButtonUpdate, Testo: & Aggiorna
- Pulsante - (Nome): Pulsante Apri, Testo: & Apri
TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
Fare doppio clic sul modulo, inserire il seguente codice sopra la classe pubblica mikeoe2003PictureApplication:

 Importa System.Data.OleDb Imports System.IO Imports Microsoft.Win32 Fare doppio clic su ButtonOpen e inserire il codice seguente: Dim img As String Dim myStream As Stream = Nothing Dim openFileDialog1 As New OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Nothing openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Se openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Quindi prova myStream = openFileDialog1.OpenFile () If (myStream IsNot Nothing ) Then TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName End If Catch Ex As Exception MessageBox.Show ("Impossibile leggere il file dal disco . Errore originale: "& Ex.Message) Infine Se (myStream IsNot Nothing) Then myStream.Close () End If End Try End If

Creare un database di Microsoft Access nella posizione desiderata e denominarlo come Databasemikeoe2003PictureApplication.mdb
Crea una tabella con il nome Tablemikeoe2003PictureApplication e aggiungi le seguenti colonne:

 Id - Tipo di dati: Autonumber PicturePath - DataType: Memo (poiché i percorsi dei file possono essere considerevolmente lunghi a volte)

Fare doppio clic sul pulsante Aggiorna e inserire il seguente codice:

Provare

 Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand Dim mySQLString As String myConnection = New OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Databasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ) VALUES ('"& Replace $ (TextBoxPictureFilePath.Text, "' ", " '' ") &" ') "myCommand = Nuovo OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nothing TextBoxPictureFilePath.Text = "" Catch ex As Exception MessageBox.Show (ex.Message & "-" & ex.Source) Fine Prova