تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود حفظ الصورة والبياانات في قاعده البيانات
#1
Thumbs Up 
"\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()
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اختي الكريمة
المشكلة في حقل الاي دي
اذا كان ترقيم تلقائي لانحتاج الى ذكره في جمل الانسرت وان كان غير ذلك نذكره
بالنسبة للكود الذي اوردتيه ..... في جملة الانسرت ذكرت حقل الاي دي ولكن في الباراميترات لم تضعي له باراميتر
الان اما ان تجعلي جملة الانسرت بهذا الشكل ( حذف حقل الاي دي ان كان ترقيم تلقائي) وتبقي الباراميترات كما هي 
كود :
       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
طبعا ان كانت الاسماء لديك صحيحة
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , essawq
#3
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 "@". اخي ابراهيم ايبو
الرد }}}
تم الشكر بواسطة:
#4
اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي 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
وان كان الترقيم تلقائي احذفي حقل الاي دي وباراميتره
طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#5
(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.


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#6
اختي هل عدلت حقل الاي دي النوع رقم ؟
اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي
كود :
CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , essawq
#7
(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 هوا الرقم الاشاري للمعامله 
اخي هذا البرنامج كله احترت ليش يعطي ف الخطا


الملفات المرفقة
.rar   Arsafa.rar (الحجم : 739 ك ب / التحميلات : 17)
.rar   Arsafa.rar (الحجم : 739 ك ب / التحميلات : 16)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , essawq
#8
اختي الكريمة 
اليك الكود كاملا يوجد بعض الخلاف في التسميات  اسم الجدول هل هو  : 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: WaeLx , rochdi191 , عبد العزيز البسكري , essawq
#9
السلام عليكم ورحمة الله وبركاته
اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها
اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك
المثال سيفيدك فيما لو اردت احال صورة او لم تريدي


الملفات المرفقة
.zip   Khowla.zip (الحجم : 552.04 ك ب / التحميلات : 41)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: WaeLx , WaeLx , khowla.goma , essawq , عبد العزيز البسكري
#10
(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)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم عرض الصورة في تقرير rdlc لماذا atefkhalf2004 2 72 23-03-24, 04:42 AM
آخر رد: atefkhalf2004
  عدم عرض الصورة في تقرير rdlc atefkhalf2004 0 29 21-03-24, 05:23 PM
آخر رد: atefkhalf2004
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم