Visual Basic.net - Salvarea căii de imagine la baza de date Access

Problema

Am nevoie de un program pentru a salva calea de imagini în baza mea de date Access. Cum se poate realiza acest lucru?

Soluţie

Această aplicație are un buton Deschidere care vă va ajuta să deschideți orice fișier imagine într-un PictureBox din formular folosind OpenFileDialog. Veți vedea calea fișierului imagine într-o casetă de text dezactivată. Când faceți clic pe butonul de actualizare, calea imaginii este salvată într-o bază de date de acces.

Urmați pașii de mai jos pentru a crea un proiect similar pentru dvs.:

Creați un nou proiect Visual Basic.net. Selectați aplicația Windows Forms din caseta de dialog New Project. Denumiți această aplicație ca mikeoe2003PictureApplication.
Creați următoarele cu următoarele proprietăți:
- Formular - (Nume): mikeoe2003PictureApplication, Text: FormPictureApplication
- PictureBox - (Nume): PictureBox1, SizeMode: StretchImage
- Buton - (Nume): ButtonUpdate, Text: & Update
- Buton - (Nume): ButonOpen, Text: & Deschidere
TextBoxt - (Nume): TextBoxPictureFilePath, Enabled: False
Faceți dublu clic pe formular, introduceți următorul cod chiar deasupra clasei publice mikeoe2003PictureApplication:

 Imports System.Data.OleDb Imports System.IO Importa Microsoft.Win32 Dublu Click ButtonOpen și introduceți următorul cod: Dim img Ca String Dim myStream Ca Stream = Nimic Dim openFileDialog1 Ca New OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Nimic openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = Adevărat openFileDialog1.FileName = "" Dacă openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Încercați apoi myStream = openFileDialog1.OpenFile () Dacă (myStream IsNot Nothing ) Apoi TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = OpenFileDialog1.FileName Sfârșit Dacă Catch Ex ca Excepție MessageBox.Show ("Nu se poate citi fișierul de pe disc Eroare originală: "& Ex.Message" În cele din urmă Dacă (myStream IsNot Nimic) Apoi myStream.Close () End If End Încercați End Dacă

Creați o bază de date Microsoft Access în locația dvs. convenabilă și denumiți-o ca Databaseasemikeoe2003PictureApplication.mdb
Creați un tabel cu numele Tablemikeoe2003PictureApplication și adăugați următoarele coloane:

 Id - Tip de date: Autonumber PicturePath - DataType: Memo (ca căi de fișiere pot fi considerabil lungi la ori)

Faceți dublu clic pe butonul UpdateButton și introduceți următorul cod:

Încerca

 Dim myConnection ca OleDbConnection Dim myCommand Ca OleDbCommand Dim mySQLString Ca String myConnection = Nou OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Databaseasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ) MyCommand = New OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nimic TextBoxPictureFilePath.Text = "" "" Catch ex Ca Excepție MessageBox.Show (ex.Message & "-" & ex.Source) Sfârșit Încearcă