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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 199 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
  ارجو المساعدة في كود VB.NET 7 112 16-11-16, 03:20 AM
آخر رد: أبو عمر
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 59 02-11-16, 11:47 PM
آخر رد: Mohamed20
  استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر العواد الصغير 6 131 30-10-16, 08:07 PM
آخر رد: العواد الصغير
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 76 25-10-16, 07:11 PM
آخر رد: 0theghost0
  [سؤال] مشكلة في الحفظ داخل قاعدة البيانات عن طريق Dataadaptor alrawi84 1 86 16-10-16, 11:02 PM
آخر رد: alrawi84
  [VB.NET] ارجو المساعده فى برنامج لاداره الاقساط الشهريه فارس الاحلام 0 92 29-09-16, 06:48 PM
آخر رد: فارس الاحلام
Information [Acces2010] قدرة قاعدة بيانات على الحفظ ali777 5 198 23-09-16, 10:33 PM
آخر رد: أبو عمر
  ارجو مساعدة في ترجمة nayefacc 2 110 04-09-16, 06:18 AM
آخر رد: nayefacc
  [سؤال] سند القيد ارجو المساعده من المحترفين احمد الامين 5 138 01-09-16, 01:16 PM
آخر رد: احمد الامين

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


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