[ابراهيم ايبو]

اختي الكريمة 
اليك الكود كاملا يوجد بعض الخلاف في التسميات  اسم الجدول هل هو  : Sader1 ام Sader بدون واحد ..... يجب ان يتطابق الاسم في الاستعلام مع الجدول

كود :

Dim Cmd As New SqlCommand()
       Dim Pictur() As Byte
       Dim Ms As New MemoryStream()
       PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)
       Pictur= ms.ToArray()
       Cmd = New SqlCommand("insert into Sader(id_esaryS, mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)Values(@id_esaryS,@mawdo_MasgS,@Sader_men,@date_MasgS,@Sader_ela,@morfagatS,@Mostalem,@sefa,@namberphon,@websait,@note,@Pictur)", cn)
       Cmd.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)
       Cmd.Parameters.Add(New SqlParameter("@mawdo_MasgS", SqlDbType.NVarChar, 50)).Value = mawdo_MasgS.Text
       Cmd.Parameters.Add(New SqlParameter("@Sader_men", SqlDbType.NVarChar, 50)).Value = Sader_men.Text
       Cmd.Parameters.Add(New SqlParameter("@date_MasgS", SqlDbType.Date)).Value = date_MasgS.Value.ToString("dd-MM-yyyy")
       Cmd.Parameters.Add(New SqlParameter("@Sader_ela", SqlDbType.NVarChar, 50)).Value = Sader_ela.Text
       Cmd.Parameters.Add(New SqlParameter("@morfagatS", SqlDbType.NVarChar, 50)).Value = morfagatS.Text
       Cmd.Parameters.Add(New SqlParameter("@Mostalem", SqlDbType.NVarChar, 50)).Value = Mostalem.Text
       Cmd.Parameters.Add(New SqlParameter("@sefa", SqlDbType.NVarChar, 50)).Value = sefa.Text
       Cmd.Parameters.Add(New SqlParameter("@namberphon", SqlDbType.NVarChar, 50)).Value = namberphon.Text
       Cmd.Parameters.Add(New SqlParameter("@websait", SqlDbType.NVarChar, 50)).Value = websait.Text
       Cmd.Parameters.Add(New SqlParameter("@note", SqlDbType.NVarChar, 50)).Value = note.Text
       Cmd.Parameters.Add(New SqlParameter("@Pictur", SqlDbType.Image)).Value = Pictur
       If cn.State = ConnectionState.Open Then cn.Close()
       cn.Open()
       Cmd.ExecuteNonQuery()
       cn.Close()
       MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

معلومة للافادة :يفضل كتابة اسماء الادوات بأن يبدأ الاسم بمختصر اسم الاداة 
مثلا TextBox   =>   يصبح هكذا Txt_id_esaryS