تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 153 أمس, 04:58 AM
آخر رد: a.baomar
  ارجو المساعدة لو تكرمتم rabeh.ram 4 87 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 56 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 83 13-05-17, 01:11 AM
آخر رد: rabeh.ram
  كيفية الحفظ إلى صيغة txt ahmedfa71 1 72 07-05-17, 07:16 PM
آخر رد: mansoor
  [VB.NET] ارجو المساعدة في زر موقع من متصفح كروم webkit A-R 3 72 03-05-17, 06:41 PM
آخر رد: A-R
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 1 89 25-04-17, 02:55 PM
آخر رد: khodor1985
  مشكله فى الكود ارجو المساعده نبيل كونكت 0 51 14-04-17, 09:16 PM
آخر رد: نبيل كونكت
  سؤال عن مسح بيانات ComboBox بعد عملية الحفظ أو الحذف أبووسم 9 234 08-04-17, 05:47 AM
آخر رد: أبووسم

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


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