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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مفكرتي لا تدعم الحفظ باللغة العرببة UTF8 الرائد 7 157 15-08-19, 01:54 AM
آخر رد: ابراهيم ايبو
  مبتدىء فى بيئة الدوت نت - مشكلة فى كود الحفظ المبرمج العتيق 10 201 15-08-19, 12:34 AM
آخر رد: المبرمج العتيق
  ارجو المساعده فى حل تلك المشكله خالد كامل1 1 51 10-08-19, 11:32 PM
آخر رد: ابراهيم ايبو
  [VB.NET] ارسال رسائل بريد ارجو المساعده bakriano30@yahoo.com 2 175 31-07-19, 04:06 PM
آخر رد: asemshahen5
  [سؤال] عمل في الفيجوال ارجو المساعدة yami007 5 145 29-07-19, 10:00 PM
آخر رد: AAAAAAAAA
  اريد التأكد من تسجيل الدخول لموقع ما ابو روضة 7 242 21-07-19, 02:05 PM
آخر رد: ابو روضة
  [سؤال] ممكن كود تأكد قبل الحفظ WALEEDA 5 201 19-07-19, 10:53 PM
آخر رد: سامي محمد
  [VB.NET] استفسار بسيط و ارجو من حضراتكم المشاركه bakriano30@yahoo.com 3 118 18-07-19, 03:01 AM
آخر رد: سامي محمد
  منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد سلام نيس 13 450 16-07-19, 10:34 PM
آخر رد: سلام نيس
  [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني m r M T D R 2 841 15-07-19, 11:53 PM
آخر رد: bakriano30@yahoo.com

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


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