Veri tabanına Resim Kaydetme Access-Vb.Net

Veri tabanına Resim Kaydetme Access-Vb.Net

Örnek: Access’e ismi kaydedilen resmin Picturebox’ta gösterilmesi.

Aşağıdaki alanları accesste oluşturuyoruz.

Aşağıdaki formu c#.nette oluşturuyoruz.

[code lang=”vb”]

Imports System.Data.OleDb

Imports System.IO

Public Class Form1

Dim con As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=test.mdb;")

Dim cmd As OleDbCommand

Dim DosyaYolu As String, DosyaAdi As String = ""

‘www.gorselprogramlama.com

Private Sub button2_Click(sender As System.Object, e As System.EventArgs) Handles button2.Click

If DosyaAc.ShowDialog() = DialogResult.OK Then

‘www.gorselprogramlama.com

For Each i As String In DosyaAc.FileName.Split("\"c)

If i.Contains(".jpeg") Then DosyaAdi = i

If i.Contains(".jpg") Then DosyaAdi = i

If i.Contains(".gif") Then DosyaAdi = i

If i.Contains(".bmp") Then DosyaAdi = i

If i.Contains(".png") Then DosyaAdi = i

Next

File.WriteAllBytes(DosyaAdi, File.ReadAllBytes(DosyaAc.FileName))

cmd = New OleDbCommand("insert into tablom (ResimAdi,DosyaYolu,DosyaAdi) values (‘" + txtInsResimAdi.Text & "’,’" & "" & "’,’" & DosyaAdi & "’)", con)

con.Open()

cmd.ExecuteNonQuery()

‘www.gorselprogramlama.com

con.Close()

MessageBox.Show("Bitti")

Else

txtInsResimAdi.Text = ""

‘www.gorselprogramlama.com

MessageBox.Show("Herhangi bir Kayıt Girilmedi", "Bilgi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click

Try

cmd = New OleDbCommand("select * from tablom where ResimAdi like ‘%" + txtResimAdi.Text & "%’", con)

con.Open()

Dim rdr As OleDbDataReader = cmd.ExecuteReader()

rdr.Read()

‘www.gorselprogramlama.com

If rdr.HasRows Then

lblResimAdi.Text = rdr(1).ToString()

lblDosyayolu.Text = rdr(2).ToString()

lblDosyaAdi.Text = rdr(3).ToString()

pictureBox1.ImageLocation = lblDosyayolu.Text + lblDosyaAdi.Text

Else

‘www.gorselprogramlama.com

MessageBox.Show("Resim Bulunamadı")

End If

con.Close()

Catch

con.Close()

MessageBox.Show("Hata Oluştu")

End Try

End Sub

End Class

[/code]

textbox’a deneme yazıp Resim ekle butonuna tıklıyorum.

Herhangi bir resim seçip Aç diyorum.

resim adına deneme yazıp Getir butonunu tıkladığımda kaydettiğim resim picturebox’ta gözüküyor.

Projeyi İNDİR