Visual Basic.net-Menyimpan laluan imej ke pangkalan data Akses

Isu

Saya perlukan program untuk menyimpan laluan imej ke pangkalan data Akses saya. Bagaimana boleh dicapai?

Penyelesaian

Aplikasi ini mempunyai Button Terbuka yang akan membantu anda membuka mana-mana fail gambar ke PictureBox pada borang menggunakan OpenFileDialog. Anda akan melihat laluan fail gambar dalam TextBox kurang upaya. Apabila anda mengklik butang kemas kini laluan Gambar disimpan ke Pangkalan Data Akses.

Ikuti langkah-langkah di bawah untuk membuat projek yang serupa untuk diri anda sendiri:

Buat projek Visual Basic.net yang baru. Pilih Borang Permohonan Windows dari Peti Dialog Projek Baru. Namakan aplikasi ini sebagai mikeoe2003PictureApplication.
Buat yang berikut dengan hartanah yang disebut di bawah:
- Borang - (Nama): mikeoe2003PictureApplication, Text: FormPictureApplication
- PictureBox - (Nama): PictureBox1, SizeMode: StretchImage
- Butang - (Nama): ButtonUpdate, Text: & Update
- Butang - (Nama): ButtonBuka, Teks: & Terbuka
TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
Double Klik Form, masukkan kod berikut tepat di atas Kelas Awam mikeoe2003PictureApplication:

 Impor System.Data.OleDb Impor System.IO Import Microsoft.Win32 Double Klik ButtonBuka dan sisipkan kod berikut: Dim img Sebagai String Dim myStream Sebagai Stream = Tiada Dim openFileDialog1 Seperti OpenFileDialog Baru () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Tidak ada openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Jika openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Kemudian Cuba myStream = openFileDialog1.OpenFile () If (myStream IsNot Nothing ) Kemudian TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName End Jika Catch Ex Sebagai MessageBox.Show Eksklusif ("Tidak dapat membaca fail dari cakera Kesalahan asal: "& Ex.Message) Akhirnya Jika (myStream IsNot Tiada) Kemudian myStream.Close () End Jika End Try End If

Buat Pangkalan Data Akses Microsoft di lokasi yang mudah anda dan namakannya sebagai Databasemikeoe2003PictureApplication.mdb
Buat jadual dengan nama Tablemikeoe2003PictureApplication dan tambahkan Lajur berikut kepadanya:

 Id - Datatype: Autonumber PicturePath - DataType: Memo (sebagai laluan fail boleh agak panjang kadang-kadang)

Double Klik UpdateButton dan masukkan kod berikut:

Cuba

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