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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله فى البارميترات ارجو المساعده خالد كامل1 9 170 21-02-19, 02:52 PM
آخر رد: elgokr
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل فى نفس الوقت atef_020 9 157 20-02-19, 05:04 PM
آخر رد: asemshahen5
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,043 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 180 06-02-19, 01:16 PM
آخر رد: sendbad100
  [VB.NET] مساعدة في كود الحفظ Hamoody 2 108 06-02-19, 02:45 AM
آخر رد: Hamoody
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 2 77 05-02-19, 11:59 AM
آخر رد: raaddawood
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 4 135 26-01-19, 08:54 PM
آخر رد: سمير جمال
  [سؤال] مشكلة في كود الحفظ عاشق الرسول 10 318 16-01-19, 02:43 AM
آخر رد: عاشق الرسول
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 274 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 266 16-01-19, 12:59 AM
آخر رد: EYADISMAIL

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


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