Visual Basic.net - pildi tee salvestamine Access andmebaasi

Probleem

Mul on vaja programmi, mis salvestaks pildi tee minu Access andmebaasi. Kuidas seda saavutada?

Lahendus

Sellel rakendusel on avatud nupp, mis aitab teil OpenFileDialogi abil vormindada pildifailile pildifaili. Näete pildifaili liikumist keelatud TextBoxis. Kui klõpsate värskendusnupule, salvestatakse pildi tee Access Database'i.

Samalaadse projekti loomiseks ise järgige alltoodud samme:

Loo uus Visual Basic.net projekt. Valige uue projekti dialoogiboksist Windowsi vormide rakendus. Nimetage see rakendus kui mikeoe2003PictureApplication.
Loo allpool mainitud omadustega järgmised andmed:
- Vorm - (nimi): mikeoe2003PictureApplication, tekst: FormPictureApplication
- PictureBox - (nimi): PictureBox1, SizeMode: StretchImage
- Nupp - (nimi): ButtonUpdate, tekst: & Update
- Nupp - (nimi): nupp Avatud, tekst: & Ava
TextBoxt - (nimi): TextBoxPictureFilePath, lubatud: vale
Topeltklõpsake vormi, sisestage järgmine kood otse avaliku klassi mikeoe2003PictureApplication kohal:

 Impordi System.Data.OleDb import System.IO Import Microsoft.Win32 Topeltklõps ButtonAva ja sisestage järgmine kood: Dim img Nagu String Dim myStream kui Stream = Miski Dim openFileDialog1 Uue OpenFileDialog () openFileDialog1.InitialDirectory = "c: \ t .Filter = Miski openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Kui openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Seejärel proovige myStream = openFileDialog1.OpenFile () If (minuStream IsNot ei ole midagi ) Siis TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName Lõpp Kui Saate Ex kui erandina MessageBox.Show ("Ei saa lugeda faili kettalt Algne viga: "& Ex.Message" Lõpuks If (myStream IsNot Nothing).

Looge oma mugavasse asukohta Microsoft Access'i andmebaas ja nimetage see nimeks Databasemikeoe2003PictureApplication.mdb
Looge tabel nimega Tablemikeoe2003PictureApplication ja lisage sellele järgmised veerud:

 Id - Datatüüp: Autonumber PicturePath - DataType: Memo (kui failirajad võivad aegadel olla tunduvalt pikad)

Topeltklõpsake UpdateButton ja sisestage järgmine kood:

Proovige

 Dim myConnection kui OleDbConnection Müra myCommand nagu OleDbCommand Dim mySQLString Nagu stringina myConnection = Uus OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Andmete allikas = Databasemikeoe2003PictureApplication.mdb;") Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ) VÄÄRTUSED ("" & Asenda $ (TextBoxPictureFilePath.Text, "", "''") & "')" myCommand = Uus OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Miski TextBoxPictureFilePath.Text = "" Püütakse ex erandina MessageBox.Show (ex.Message & "-" & ex.Source ")