26-07-15, 12:36 PM
(آخر تعديل لهذه المشاركة : 26-07-15, 12:43 PM {2} بواسطة 0theghost0.)
السلام عليكم
كانت لدي مشكلة الحفظ البيانات في ListView and TextBox والاخ الكريم الطالب اهداني الكود وعندما وضعته ليس من الكود عندما حدثت مشكلة في السورس بأكمله من DataSet وعندما حدثتها لم يعمل السورس بشكل جيد فقررت بأن اعيد السورس بأكمله وبعد انتهائي منه دهب لاجرب اخر كود اهداني اياه الاخ الطالب وهذا هو :
علما بأني قمت بكتابته يدويا بسبب مشكلة المسافات او عدم تمكنه من قراءة الاكواد هذا غباء Vb.net 2015
دعونا ننظر ما الخطأ هذة المرة وماهي نوع الخطأ
الخطأ حدث من :
عنوان الخطأ :
للتذكير قمت بكتابة الكود يديويا وليس Copy Past وتأكد من جميع البيانات في Database Access 2013 كل شيء في مكانه تسجيل زبون شغال تسجيل اسماء الاغراض شغال الاستأجار شغال اما الترجيع ليس شغال والكود بين ايديكم
وشكرا لكم على المجهود الرائع بال اكثر من رائع لا نستطيع وصفه حقيقا وليس كلام
تم حل المشكلة وارجو المعذرة ربما من العتب نسيت شيء خانه تاريخ الترجيع
كانت لدي مشكلة الحفظ البيانات في 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)
دعونا ننظر ما الخطأ هذة المرة وماهي نوع الخطأ
الخطأ حدث من :
كود :
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 كل شيء في مكانه تسجيل زبون شغال تسجيل اسماء الاغراض شغال الاستأجار شغال اما الترجيع ليس شغال والكود بين ايديكم
وشكرا لكم على المجهود الرائع بال اكثر من رائع لا نستطيع وصفه حقيقا وليس كلام
تم حل المشكلة وارجو المعذرة ربما من العتب نسيت شيء خانه تاريخ الترجيع