[حافظ حافظ]

السلام عليكم.اخواني لو سمحتو ممكن المساعدة باضافة حفظ صورة بقاعدة البيانات.وجدت ملف بالمنتدى  و حاولت كثيرا لاضيف صورة و كلو يتم حفظو بطريقة صحيحة الا الصرة لا اعرف لماذا لا تحفظ بالقاعدة.هذي صورة عن قاعدة البيانات

و عندما اعمل حفظ لا اجد الصورة

بارك الله في الجميع

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

حاول أخي الكريم إضافة هذه الجزئيات لأنّك لن تدرج اسم الصّورة في جملة الحفظ .. أتمنى أن يفي بالغرض إن شاء الله

تحياتي

كود :

Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
   Dim Constr As New SqlConnection("Server=Hafedh;Database=TESTDB;Integrated Security=false;user id=sa;password=**********;")
   Dim dds As DataTable
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dds = New DataTable
       Using InfoAdapter As New SqlDataAdapter("select * from Customers", Constr)
           InfoAdapter.Fill(dds)
       End Using

       DataGridView1.DataSource = dds

       TextBox1.DataBindings.Add("Text", dds, "Idnum")
       TextBox2.DataBindings.Add("Text", dds, "NameCust")
       TextBox3.DataBindings.Add("Text", dds, "Oldyear")
       TextBox4.DataBindings.Add("Text", dds, "PhoneCust")
       TextBox5.DataBindings.Add("Text", dds, "AdressCust")

       PictureBox1.DataBindings.Add("Image", dds, "PictureFile", True, Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)


       'PictureBox1.DataBindings.Add("Text", InfoTable, "PictureFile")



   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           If TextBox2.Text = "" Then
               MsgBox("Please fill in the data first")
               Exit Sub
           End If
           Dim opn As New OpenFileDialog
           opn.Title = "Select a photo "
           opn.Filter = "Images|*.jpg;*.jpeg;*.png;*.gif"
           opn.Multiselect = False
           If opn.ShowDialog() = DialogResult.OK Then
               PictureBox1.Image = Image.FromFile(opn.FileName)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error loading image", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using Command As New SqlCommand With {.Connection = Constr}
           With Command

               'إضافة الصورة
               Dim ms As New MemoryStream
               PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)



               .CommandText = "INSERT INTO Customers(Idnum,NameCust,Oldyear,PhoneCust,AdressCust,PictureFile)values(@Idnum,@NameCust,@Oldyear,@PhoneCust,@AdressCust,@PictureFile)"
               .Parameters.Add("@Idnum", SqlDbType.Decimal, 18).Value = Decimal.Parse(TextBox1.Text)
               .Parameters.Add("@NameCust", SqlDbType.NVarChar).Value = TextBox2.Text
               .Parameters.Add("@Oldyear", SqlDbType.NVarChar).Value = TextBox3.Text
               .Parameters.Add("@PhoneCust", SqlDbType.NVarChar).Value = TextBox4.Text
               .Parameters.Add("@AdressCust", SqlDbType.NVarChar).Value = TextBox5.Text
               .Parameters.Add("@PictureFile", SqlDbType.Image).Value = ms.ToArray()


           End With
           If Constr.State = ConnectionState.Closed Then Constr.Open()
           If Command.ExecuteNonQuery() = 1 Then
               MsgBox("Success record", MsgBoxStyle.MsgBoxRtlReading, "ADD Record")

           Else
               MsgBox("Make sure all data is correctly entered", MsgBoxStyle.MsgBoxRtlReading, "Error")
           End If
           Constr.Close()
       End Using
   End Sub
End Class

[حافظ حافظ]

بارك الله فيك اخ عبد العزيز البسكري.تم الحفظ تشكر كثير.بارك الله فيك