تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو من العضو الطالب او اي شخص ذو خبره عالية الدخول كود الحفظ
#1
السلام عليكم

كانت لدي مشكلة الحفظ البيانات في ListView and TextBox والاخ الكريم الطالب اهداني الكود وعندما وضعته ليس من الكود عندما حدثت مشكلة في السورس بأكمله من DataSet وعندما حدثتها لم يعمل السورس بشكل جيد فقررت بأن اعيد السورس بأكمله وبعد انتهائي منه دهب لاجرب اخر كود اهداني اياه الاخ الطالب وهذا هو :

كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()
           Dim sql As String =
               "INSERT INTO [Return_Equipment]" &
               "( [Ren_NO], [Cus_Name], [Cus_Private_Number], [Equ_Price], [Equ_Name], [Equ_Quantity], [Ren_Date] )" &
               "VALUES" &
               "( @Ren_NO,  @Cus_Name,  @Cus_Private_Number,  @Equ_Price,  @Equ_Name,  @Equ_Quantity,  @Ren_Date )"
           Using cmd As New OleDbCommand(sql, conn)
               For Each itm As ListViewItem In ListView1.Items
                   cmd.Parameters.Clear()
                   cmd.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
                   cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
                   cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
                   cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text)
                   cmd.Parameters.AddWithValue("@Equ_Name", itm.SubItems(0).Text)
                   cmd.Parameters.AddWithValue("@Equ_Quantity", itm.SubItems(1).Text)
                   cmd.Parameters.AddWithValue("@Ren_Date", itm.SubItems(2).Text)
                   cmd.ExecuteNonQuery()
               Next
           End Using
           conn.Close()
       End Using
       MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
علما بأني قمت بكتابته يدويا بسبب مشكلة المسافات او عدم تمكنه من قراءة الاكواد هذا غباء Vb.net 2015
دعونا ننظر ما الخطأ هذة المرة وماهي نوع الخطأ

الخطأ حدث من :
كود :
cmd.ExecuteNonQuery()

عنوان الخطأ :
كود :
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Syntax error (missing operator) in query expression '  @Cus_Name'.

للتذكير قمت بكتابة الكود يديويا وليس Copy Past وتأكد من جميع البيانات في Database Access 2013 كل شيء في مكانه تسجيل زبون شغال تسجيل اسماء الاغراض شغال الاستأجار شغال اما الترجيع ليس شغال والكود بين ايديكم

وشكرا لكم على المجهود الرائع بال اكثر من رائع لا نستطيع وصفه حقيقا وليس كلام

تم حل المشكلة وارجو المعذرة ربما من العتب نسيت شيء خانه تاريخ الترجيع Smile
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في الحفظ nourmandour 3 54 12-04-19, 02:27 AM
آخر رد: elgokr
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 81 09-04-19, 06:16 PM
آخر رد: حاتمي
  ارجو المساعده فى ظهور هذا الخطأ فى اضافه اصناف للفاتوره خالد كامل1 4 106 09-04-19, 03:22 AM
آخر رد: elgokr
  كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد anis 11 417 06-04-19, 06:08 PM
آخر رد: Emam emam
  ارجو التعديل على كودالاستعلام Group By new_programer 3 67 03-04-19, 12:23 AM
آخر رد: elgokr
  خطأ فى كود الحفظ احمد خطاب 1 56 30-03-19, 05:20 PM
آخر رد: elgokr
  [سؤال] مساعدة في كود الدخول cayo12300 0 64 23-03-19, 04:03 AM
آخر رد: cayo12300
  محتاج مساعدة فى نافذة الدخول Mohamed Magdy 2 128 22-03-19, 05:04 PM
آخر رد: ahmadpal
Thumbs Up سؤال بسيط حول مشغل لايعمل ارجو رد حاتمي 0 83 22-03-19, 12:04 AM
آخر رد: حاتمي
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل فى نفس الوقت atef_020 31 795 28-02-19, 02:09 PM
آخر رد: حريف برمجة

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


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