15-07-20, 03:38 PM (آخر تعديل لهذه المشاركة : 15-07-20, 03:53 PM {2} بواسطة khowla.goma.
تعديل السبب: يوجد خطا في cmd.ExecuteNonQuery() و Must declare the scalar variable "@id_esaryS".
)
cn.Close()
MsgBox("تم حفظ بيانات بنجاح")
يعطي خطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery() يعني بعد ماأخل القيم واختار الصورة واعرضها في بكتشر بوكس واقوم بضغظ علي حفظ لا تتم العملية ويعطي هذا الخطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery()
السلام عليكم ورحمة الله وبركاته
اختي الكريمة
المشكلة في حقل الاي دي
اذا كان ترقيم تلقائي لانحتاج الى ذكره في جمل الانسرت وان كان غير ذلك نذكره
بالنسبة للكود الذي اوردتيه ..... في جملة الانسرت ذكرت حقل الاي دي ولكن في الباراميترات لم تضعي له باراميتر
الان اما ان تجعلي جملة الانسرت بهذا الشكل ( حذف حقل الاي دي ان كان ترقيم تلقائي) وتبقي الباراميترات كما هي
كود :
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)
او تتركي جملة الانسرت على حالها (ان كان الترقيم غير تلقائي) وتضيفي باراميتر الاي دي في اول الباراميترات
15-07-20, 04:38 PM (آخر تعديل لهذه المشاركة : 15-07-20, 05:01 PM {2} بواسطة ابراهيم ايبو.)
اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي 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)
15-07-20, 05:13 PM (آخر تعديل لهذه المشاركة : 15-07-20, 05:18 PM {2} بواسطة 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)
وان كان الترقيم تلقائي احذفي حقل الاي دي وباراميتره
طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود
(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)
15-07-20, 06:11 PM (آخر تعديل لهذه المشاركة : 15-07-20, 06:36 PM {2} بواسطة ابراهيم ايبو.)
اختي الكريمة
اليك الكود كاملا يوجد بعض الخلاف في التسميات اسم الجدول هل هو : 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
السلام عليكم ورحمة الله وبركاته
اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها
اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك
المثال سيفيدك فيما لو اردت احال صورة او لم تريدي
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
16-07-20, 01:09 AM (آخر تعديل لهذه المشاركة : 16-07-20, 01:14 AM {2} بواسطة khowla.goma.)
(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)