تقييم الموضوع :
  • 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 ك ب / التحميلات : 14)
.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 ك ب / التحميلات : 38)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: 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)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تكرار البيانات مع كل فتح للنموذج مسلم_١ 3 57 منذ 6 ساعة مضت
آخر رد: مسلم_١
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 1 111 23-10-21, 01:35 AM
آخر رد: بسام محمدغانم
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 227 09-10-21, 06:55 PM
آخر رد: ahmed4
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 4 1,518 27-09-21, 08:10 PM
آخر رد: Programmer_awa
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 317 19-09-21, 08:47 PM
آخر رد: 3loosh44
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 585 28-08-21, 10:50 PM
آخر رد: aftfm
  تصدير البيانات من نوع جديد اليوم السابع 3 772 18-08-21, 09:37 PM
آخر رد: يونس علي
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 630 14-08-21, 09:34 AM
آخر رد: ابو انس
Exclamation كيفية ربط قواعد البيانات mysql ب فيجوال بيسك دوت نت Yasser_Abuelhassab 1 399 25-07-21, 02:31 AM
آخر رد: ابو انس
  [سؤال] مشكلة Provider للاتصال بقاعدة البيانات نيمو 3 450 22-07-21, 09:59 PM
آخر رد: نيمو

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


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