SQL Veri Tabanına resim ekleme....

Samet ÖZMANAv Samet ÖZMANAv

23 Temmuz 2021 Yazılım Dilleri (151) /Visual Basic .Net (5) (49)

SQL Veri Tabanına resim ekleme....

Paylaşmak güzeldir. Lütfen sizde paylaşın...


'/////////////////////////////////////////////////////////////////////////////////////////////////////
'////Uygulama :Sipariş Takip v1.0.0.0//////////////////////////////////////////////////////////////////
'////Tarih:18.07.2021//////////////////////////////////////////////////////////////////////////////////
'////Yazar:Samet ÖZMANAV///////////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////////////////////////////////
Imports System.Data.SqlClient
Imports System.IO
Public Class frm_marka_ekle
Dim bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=omron;Integrated Security=True")
Dim kmt As New SqlCommand
Private Sub btn_kaydet_Click(sender As Object, e As EventArgs) Handles btn_kaydet.Click
Dim ms As New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
'Kayıt kodları alanı
Try
bag.Open()
kmt.Connection = bag
kmt.CommandText = " insert tbl_marka(marka_ad,resim) values(@marka_ad,@resim)"
kmt.Parameters.AddWithValue("@marka_ad", txtMarka.Text)
kmt.Parameters.Add("@resim", SqlDbType.Image).Value = ms.ToArray 'Resim binary data olarak eklenir.
kmt.ExecuteNonQuery()
kmt.Parameters.Clear() 'Parametre temizleme önemli!!!!!
bag.Close()
MsgBox("Kayıt ekleme başarılı...", vbInformation, "Kullanıcı Ekleme")
Call Temizle()
Catch ex As Exception
MessageBox.Show(ex.Message)
'MsgBox("Kayıt ekleme sırasında bir hata oluştu!!!", vbInformation, "Hata")
End Try
End Sub
Sub Temizle() 'Temizleme prosedürü
PictureBox1.Image = Nothing
txtMarka.Text = ""
End Sub
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Resim seç(*.JPG;*.PNG;*.GIF)|*.jpg;*.png;*.gif"
If ofd.ShowDialog = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(ofd.FileName)
End If
End Sub
Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click
Call Temizle()
Close()
End Sub


Paylaşmak güzeldir. Lütfen sizde paylaşın...



Herkesyazar Ara