Visual Basic.net - shranjevanje poti do baze podatkov Access

Težava

Potrebujem aa program za shranjevanje slike poti v mojo bazo podatkov Access. Kako se to lahko doseže?

Rešitev

Ta aplikacija ima gumb Odpri, ki vam bo pomagal odpreti katero koli slikovno datoteko v PictureBoxu na obrazcu z uporabo OpenFileDialog. V onemogočenem besedilnem oknu boste videli pot slikovne datoteke. Ko kliknete gumb za posodobitev, se pot slike shrani v Access Database.

Sledite spodnjim korakom, da ustvarite podoben projekt zase:

Ustvarite nov projekt Visual Basic.net. V pogovornem oknu New Project izberite Windows Forms Application. Poimenujte to aplikacijo kot mikeoe2003PictureApplication.
Z spodaj navedenimi lastnostmi ustvarite naslednje:
- Obrazec - (ime): mikeoe2003PictureApplication, Besedilo: FormPictureApplication
- PictureBox - (Ime): PictureBox1, SizeMode: StretchImage
- Gumb - (ime): ButtonUpdate, Text: & Update
- Gumb - (ime): ButtonOpen, Text: & Open
TextBoxt - (ime): TextBoxPictureFilePath, omogočeno: False
Dvokliknite obrazec, vstavite naslednjo kodo tik nad javnim razredom mikeoe2003PictureApplication:

 Uvozi System.Data.OleDb Uvozi System.IO Uvozi Microsoft.Win32 Dvakrat kliknite ButtonOpen in vstavite naslednjo kodo: Dim img As String Dim myStream As Stream = Nič dim openFileDialog1 kot nov OpenFileDialog () openFileDialog1.InitialDirectory = "c: \ t .Filter = Nič openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Če openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK, potem poskusite myStream = openFileDialog1.OpenFile () Če (myStream IsNot Nothing) ) Torej TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName End če Catch Ex as Exception Prvotna napaka: "& Ex.Message) Končno Če (myStream IsNot Nič) potem myStream.Close () End če End Poskusite End

Ustvarite zbirko podatkov Microsoft Access na priročnem mestu in jo poimenujte kot Databasemikeoe2003PictureApplication.mdb
Ustvarite tabelo z imenom Tablemikeoe2003PictureApplication in ji dodajte naslednje stolpce:

 ID - Podatkovna vrsta: Samodejna številka PicturePath - Podatkovna vrsta: Beležka (ker so poti datotek včasih precej dolge)

Dvokliknite gumb UpdateButton in vstavite naslednjo kodo:

Poskusite

 Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand Dim mySQLString As String myConnection = Novi OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Databasemikeoe2003PictureApplication.mdb;") myCQLNext () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath) ) VALUES ('"& Zamenjaj $ (TextBoxPictureFilePath.Text, "' ", " '' ") &" ') "myCommand = Novi OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Ni besedila "" Ujemi ex Izjema MessageBox.Show (ex.Message & "-" & ex.Source) Konec Poskusi