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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود حفظ الصورة والبياانات في قاعده البيانات (/showthread.php?tid=35665)

الصفحات: 1 2


كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20

"\u0627\u0644\u0633\u0644\u0627\u0645 \u0639\u0644\u064a\u0643\u0645 \u0623\u062e\u0648\u062a\u064a :\r\n\u0639\u0646\u062f\u064a \u0628\u0631\u0646\u0627\u0645\u062c \u0644\u0641\u064a\u062c\u0648\u0627\u0644 \u0628\u064a\u0633\u0643 vb.net\r\n\u0628\u0631\u0646\u0627\u0645\u062c \u0627\u0631\u0634\u064a\u0641 \u0627\u0644\u0643\u062a\u0631\u0648\u0646\u064a \u0648\u0627\u062c\u0647\u062a\u0646\u064a \u0645\u0634\u0643\u0644\u0647 \u0641 \u0631\u0632 \u0627\u0644\u062d\u0641\u0638\u00a0\r\n\u064a\u0639\u0646\u064a \u0628\u0639\u062f \u0627\u062f\u062e\u0627\u0644 \u0627\u0644\u0628\u064a\u0627\u0646\u0627\u062a \u0648\u0627\u062e\u062a\u064a\u0627\u0631 \u0627\u0644\u0635\u0648\u0631\u0629 \u0648\u0639\u0631\u0636\u0647\u0627 \u0641\u064a \u0628\u0643\u062a\u0634\u0631 \u0628\u0648\u0643\u0633 \u0644\u0645\u0627 \u0623\u062c\u064a \u0627\u0636\u063a\u0638 \u0639\u0644\u064a \u0632\u0631 \u0627\u0644\u062d\u0641\u0638 \u062a\u0636\u0647\u0631 \u0645\u0634\u0643\u0644\u0647 \u0641\u064a \u0628\u0631\u0646\u0627\u0645\u062c\u00a0\r\n\u00a0cmd = New SqlCommand(\"Insert Into Sader( id_esaryS, mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)values(\u00a0 @id_esaryS ,@ mawdo_MasgS,@Sader_men,@date_MasgS,@Sader_ela,@morfagatS,@Mostalem,@sefa,@namberphon,@websait,@note,@Pictur)\", cn)\r\n\r\n\u00a0\u00a0'cmd.Parameters.Add(New SqlParameter(\"@mawdo_MasgS\", SqlDbType.NVarChar, 50)).Value = mawdo_MasgS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Sader_men\", SqlDbType.NVarChar, 50)).Value = Sader_men.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@date_MasgS\", SqlDbType.NVarChar, 50)).Value = date_MasgS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Sader_ela\", SqlDbType.NVarChar, 50)).Value = Sader_ela.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@morfagatS\", SqlDbType.NVarChar, 50)).Value = morfagatS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@sefa\", SqlDbType.NVarChar, 50)).Value = namberphon.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@websait\", SqlDbType.NVarChar, 50)).Value = websait.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@note\", SqlDbType.NVarChar, 50)).Value = note.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0 \u00a0 \u00a0\u00a0 \u00a0Dim ms As New MemoryStream\r\n\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Dim Pictur() As Byte = ms.ToArray\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Pictur\", SqlDbType.Image)).Value = Pictur\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0 \u00a0cn.Open()\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0cmd.ExecuteNonQuery()\r\n\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 cn.Close()\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0MsgBox(\"\u062a\u0645 \u062d\u0641\u0638 \u0628\u064a\u0627\u0646\u0627\u062a \u0628\u0646\u062c\u0627\u062d\")\r\n\u0623\u0631\u062c\u0648 \u0627\u0644\u0645\u0633\u0627\u0639\u062f\u0629"

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Butsave.Click

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("@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.NVarChar, 50)).Value = date_MasgS.Text
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("@sefa", 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
Dim ms As New MemoryStream

PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)
Dim Pictur() As Byte = ms.ToArray
cmd.Parameters.Add(New SqlParameter("@Pictur", SqlDbType.Image)).Value = Pictur

cn.Open()
cmd.Connection = cn
cmd.ExecuteNonQuery()

cn.Close()
MsgBox("تم حفظ بيانات بنجاح")
يعطي خطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery() يعني بعد ماأخل القيم واختار الصورة واعرضها في بكتشر بوكس واقوم بضغظ علي حفظ لا تتم العملية ويعطي هذا الخطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery()


RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20

السلام عليكم ورحمة الله وبركاته
اختي الكريمة
المشكلة في حقل الاي دي
اذا كان ترقيم تلقائي لانحتاج الى ذكره في جمل الانسرت وان كان غير ذلك نذكره
بالنسبة للكود الذي اوردتيه ..... في جملة الانسرت ذكرت حقل الاي دي ولكن في الباراميترات لم تضعي له باراميتر
الان اما ان تجعلي جملة الانسرت بهذا الشكل ( حذف حقل الاي دي ان كان ترقيم تلقائي) وتبقي الباراميترات كما هي 
كود :
       cmd = New SqlCommand("Insert Into Sader( mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)values(@ 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 = id_esaryS.Text
طبعا ان كانت الاسماء لديك صحيحة


RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20

id_esaryS nvarchar(50) Unchecked
date_MasgS nvarchar(50) Checked
Sader_men nvarchar(50) Checked
Sader_ela nvarchar(50) Checked
mawdo_MasgS nvarchar(50) Checked
morfagatS nvarchar(50) Unchecked
Mostalem nvarchar(50) Checked
sefa nvarchar(50) Checked
namberphon nvarchar(50) Checked
websait nvarchar(50) Checked
note nvarchar(50) Checked
Pictur image Checked
Unchecked هذا الجدول في قاعدة البيانات اخي العزيز

حاليا يعطي الخطا في Must declare the scalar variable "@". اخي ابراهيم ايبو


RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20

اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int
وحقل date_MasgS يجب ان يكون تاريخ Date 
يجب تعديل انواع بيانات الحقول السابقة

السلام عليكم اختي الكريمة
من خلال تتبعي للباراميترات وجدت ان ثلاث حقول ليس لها باراميترات وهي الاي دي ورقم الهاتف والمستلم
اجعليهم بهذا الشكل فيما لو كان الترقيم غير تلقائي
كود :
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 = 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.Text
       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 = morfagatS.Text
       CMD.Parameters.Add(New SqlParameter("@sefa", SqlDbType.NVarChar, 50)).Value = namberphon.Text
       CMD.Parameters.Add(New SqlParameter("@namberphon", SqlDbType.NVarChar, 50)).Value = websait.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
وان كان الترقيم تلقائي احذفي حقل الاي دي وباراميتره
طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود


RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20

(15-07-20, 04:38 PM)ابراهيم ايبو كتب : اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int
وحقل date_MasgS يجب ان يكون تاريخ Date 
يجب تعديل انواع بيانات الحقول السابقة

السلام عليكم اختي الكريمة
من خلال تتبعي للباراميترات وجدت ان ثلاث حقول ليس لها باراميترات وهي الاي دي ورقم الهاتف والمستلم
اجعليهم بهذا الشكل فيما لو كان الترقيم غير تلقائي
كود :
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 = 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.Text
       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 = morfagatS.Text
       CMD.Parameters.Add(New SqlParameter("@sefa", SqlDbType.NVarChar, 50)).Value = namberphon.Text
       CMD.Parameters.Add(New SqlParameter("@namberphon", SqlDbType.NVarChar, 50)).Value = websait.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
وان كان الترقيم تلقائي احذفي حقل الاي دي وباراميتره
طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود

(15-07-20, 05:13 PM)khowla.goma كتب :
(15-07-20, 04:38 PM)ابراهيم ايبو كتب : اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int
وحقل date_MasgS يجب ان يكون تاريخ Date 
يجب تعديل انواع بيانات الحقول السابقة

السلام عليكم اختي الكريمة
من خلال تتبعي للباراميترات وجدت ان ثلاث حقول ليس لها باراميترات وهي الاي دي ورقم الهاتف والمستلم
اجعليهم بهذا الشكل فيما لو كان الترقيم غير تلقائي
كود :
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 = 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.Text
       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 = morfagatS.Text
       CMD.Parameters.Add(New SqlParameter("@sefa", SqlDbType.NVarChar, 50)).Value = namberphon.Text
       CMD.Parameters.Add(New SqlParameter("@namberphon", SqlDbType.NVarChar, 50)).Value = websait.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
وان كان الترقيم تلقائي احذفي حقل الاي دي وباراميتره
طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود
اخي عدلت مطلوب لكن يعطي خطا فشل تحويل قيمة المعلمة من String إلى Int32.


RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20

اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)



RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20

(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

(15-07-20, 05:36 PM)khowla.goma كتب :
(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

اخي هيا  منظومة ارشيف الكتروني وحقل id_esaryS هوا الرقم الاشاري للمعامله 

(15-07-20, 05:36 PM)khowla.goma كتب :
(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

(15-07-20, 05:36 PM)khowla.goma كتب :
(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

اخي هيا  منظومة ارشيف الكتروني وحقل id_esaryS هوا الرقم الاشاري للمعامله 
اخي هذا البرنامج كله احترت ليش يعطي ف الخطا

(15-07-20, 05:36 PM)khowla.goma كتب :
(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

(15-07-20, 05:36 PM)khowla.goma كتب :
(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)

اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

اخي هيا  منظومة ارشيف الكتروني وحقل id_esaryS هوا الرقم الاشاري للمعامله 
اخي هذا البرنامج كله احترت ليش يعطي ف الخطا


RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20

اختي الكريمة 
اليك الكود كاملا يوجد بعض الخلاف في التسميات  اسم الجدول هل هو  : 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


RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20

السلام عليكم ورحمة الله وبركاته
اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها
اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك
المثال سيفيدك فيما لو اردت احال صورة او لم تريدي


RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 16-07-20

(15-07-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها
اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك
المثال سيفيدك فيما لو اردت احال صورة او لم تريدي

بارك الله فيك أخي العزيز

(16-07-20, 01:09 AM)khowla.goma كتب :
(15-07-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها
اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك
المثال سيفيدك فيما لو اردت احال صورة او لم تريدي

بارك الله فيك أخي العزيز اشتغل الكود وتنفذ بشكل صحيح تسلم ولك جزيل الشكر 
أخي الفاضل لدي جدول أخر وهوا الوارد ويعطي نفس خطا الجدول sader مع اني اخدته كوبي وعدلت الحقول بحقول الجدوال wared1  في كودد الحفظ
  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 Wared1(id_esary, mawdo_Masg,esaryMasgWard,date_Masg,date_waredEstelamMasg,wared_men,wared_ela,morfagat,maktebMOstalem,date_Estelam,note,PicturW)Values(@id_esary,@ mawdo_Masg,@esaryMasgWard,@date_Masg,@date_waredEstelamMasg,@wared_men,@wared_ela,@morfagat,@maktebMOstalem,@date_Estelam,@note,@PicturW)", cn)
        Cmd.Parameters.Add(New SqlParameter("@id_esary", SqlDbType.Int)).Value = CInt(id_esary.Text)
        Cmd.Parameters.Add(New SqlParameter("@mawdo_Masg", SqlDbType.NVarChar, 50)).Value = mawdo_Masg.Text
        Cmd.Parameters.Add(New SqlParameter("@esaryMasgWard", SqlDbType.NVarChar, 50)).Value = esaryMasgWard.Text
        Cmd.Parameters.Add(New SqlParameter("@date_Masg", SqlDbType.Date)).Value = date_Masg.Value.ToString("dd-MM-yyyy")
        Cmd.Parameters.Add(New SqlParameter("@date_waredEstelamMasg", SqlDbType.NVarChar, 50)).Value = date_waredEstelamMasg.Text
        Cmd.Parameters.Add(New SqlParameter("@wared_men", SqlDbType.NVarChar, 50)).Value = wared_men.Text
        Cmd.Parameters.Add(New SqlParameter("@wared_ela", SqlDbType.NVarChar, 50)).Value = wared_ela.Text
        Cmd.Parameters.Add(New SqlParameter("@morfagat", SqlDbType.NVarChar, 50)).Value = morfagat.Text
        Cmd.Parameters.Add(New SqlParameter("@maktebMOstalem", SqlDbType.NVarChar, 50)).Value = maktebMOstalem.Text
        Cmd.Parameters.Add(New SqlParameter("@date_Estelam", SqlDbType.NVarChar, 50)).Value = date_Estelam.Text
        Cmd.Parameters.Add(New SqlParameter("@note", SqlDbType.NVarChar, 50)).Value = note.Text
        Cmd.Parameters.Add(New SqlParameter("@PicturW", SqlDbType.Image)).Value = Pictur
        If cn.State = ConnectionState.Open Then cn.Close()
        cn.Open()
        Cmd.ExecuteNonQuery()
        cn.Close()
        MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)