Visual Basic.net - Access veritabanına görüntü yolunu kaydetme

Konu

Resim yolunu Access veritabanıma kaydetmek için bir programa ihtiyacım var. Bu nasıl başarılabilir?

Çözüm

Bu uygulama OpenFileDialog kullanarak formdaki herhangi bir resim dosyasını PictureBox'a açmanıza yardımcı olacak bir Aç Düğmesine sahiptir. Resim dosyasının yolunu devre dışı bir TextBox'ta göreceksiniz. Güncelleme düğmesine tıkladığınızda, Resmin yolu Access Veritabanına kaydedilir.

Kendiniz için benzer bir proje oluşturmak için aşağıdaki adımları izleyin:

Yeni bir Visual Basic.net projesi oluşturun. Yeni Proje İletişim Kutusundan Windows Form Uygulamasını seçin. Bu uygulamayı mikeoe2003PictureApplication olarak adlandırın.
Aşağıdaki özelliklerle aşağıdakini oluşturun:
- Form - (Ad): mikeoe2003PictureApplication, Metin: FormPictureApplication
- PictureBox - (Adı): PictureBox1, SizeMode: StretchImage
- Düğme - (Adı): ButtonUpdate, Metin: & Güncelleme
- Düğme - (Ad): ButtonOpen, Metin: & Aç
TextBoxt - (Ad): TextBoxPictureFilePath, Etkin: Yanlış
Form'a çift tıklayın, aşağıdaki kodu sağ taraftaki Public Class mikeoe2003PictureApplication üstüne ekleyin:

 System.Data.OleDb'yi içe aktarır System.IO'yu içe aktarır Microsoft.Win32'yi İçe Aktarma Düğmesine Çift TıklayınAçıklayın ve aşağıdaki kodu ekleyin: Dize olarak dize img (Dimer) Akış olarak dikiz dim MyStream Stream = Nothing Dim openFileDialog1 Yeni Olarak OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1InitialDirectory = "c: \" openFileDialog1InitialDirectory = "c: \" openFileDialog1InitialDirectory = "c: \" .Filter = Hiçbir şey openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" If openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Sonra myStream1.ForD.DoğnogResult.OK Öyleyse, myFrestFileFlyFlyFotDosyası_dosyası_devamıFetFotDosyasıFilm'i () ) O zaman TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName Sonunda Durdurulan Bir Durumdan Durdurulamıyorsa. . Orijinal hata: "& Ex.Message) Sonunda (Eğer myStream Hiçbir Şey Yok) O zaman myStream.Close () Sona Bitir Sona Bitir Sona

Uygun bir yerde bir Microsoft Access Veritabanı oluşturun ve bunu Databasemikeoe2003PictureApplication.mdb olarak adlandırın.
Tablemikeoe2003PictureApplication adında bir tablo oluşturun ve aşağıdaki Sütunları ekleyin:

 Id - Veri Türü: Otomatik Sayı PicturePath - Veri Türü: Not (dosya yolları zaman zaman oldukça uzun olabilir)

UpdateButton'a çift tıklayın ve aşağıdaki kodu ekleyin:

Deneyin

 Dim myConnection OleDbConnection Olarak Dim myCommand OleDbCommand Olarak Dim mySQLString () ) DEĞERLER ('"& $ (TextBoxPictureFilePath.Text, "' ", " '"") & "' yerine)" myCommand = Yeni OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nothing TextBoxPic "" İstisnai Mesaj Olarak Yakala MessageBox.Show (ex.Message & "-" & ex.Source) Sonu Dene