منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ما هو علاج هذة المشكلة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما هو علاج هذة المشكلة (/showthread.php?tid=27635)

ما هو علاج هذة المشكلة - mostafa nada - 25-11-18

السلام عليكم 
ما هى المشكلة الخاصة بهذة الرسالة


RE: ما هو علاج هذة المشكلة - عبد العزيز البسكري - 25-11-18

راجع الحقول جيّدا بقاعدة البيانات أخي الكريم .. لا أفهم الأنجليزية جيدا .. فهمت فقط عبارتيْ Duplicate و field .. و على هذا يبدو لديك أسماء حقول مكرّرة .. أو ما شابه


RE: ما هو علاج هذة المشكلة - Rabeea Qbaha - 25-11-18

كما قال لك الاخ عبد العزيز ، ان تقوم بتكرار ال primary key

RE: ما هو علاج هذة المشكلة - mostafa nada - 25-11-18

ممكن ايضاح اكتر

RE: ما هو علاج هذة المشكلة - Rabeea Qbaha - 25-11-18

هل يمكنك وضع كود الاضافة هنا لاشرح لك

RE: ما هو علاج هذة المشكلة - mostafa nada - 25-11-18

(25-11-18, 03:26 AM)Rabeea Qbaha كتب : هل يمكنك وضع كود الاضافة هنا لاشرح لك
كود :
Public Sub insert_Sales(ByVal CustomerID As Integer, ByVal Discound As Double, ByVal ItemID As Integer, ByVal ItemPrice As Double, ByVal ItemTotal As Double, ByVal Qyt As Double, ByVal SaleBillNo As Integer, ByVal SaleDate As Date, ByVal UserID As Integer)
       Dim cmd As New OleDbCommand("insert into Sales( CustomerID,Discound,ItemID,ItemPrice,ItemTotal,Qyt,SaleBillNo,SaleDate,SaleNo,UserID) values (@CustomerID,@Discound,@ItemID,@ItemPrice,@ItemTotal,@Qyt,@SaleBillNo,@SaleDate,@SaleNo,@UserID)", con)

       cmd.Parameters.Add("SaleNo", OleDbType.Integer).Value = Max_SaleNo_From_Sales() + 1
       cmd.Parameters.Add("CustomerID", OleDbType.Integer).Value = CustomerID
       cmd.Parameters.Add("Discound", OleDbType.Double).Value = Discound
       cmd.Parameters.Add("ItemID", OleDbType.Integer).Value = ItemID
       cmd.Parameters.Add("ItemPrice", OleDbType.Double).Value = ItemPrice
       cmd.Parameters.Add("ItemTotal", OleDbType.Double).Value = ItemTotal
       cmd.Parameters.Add("Qyt", OleDbType.Double).Value = Qyt
       cmd.Parameters.Add("SaleBillNo", OleDbType.Integer).Value = SaleBillNo
       cmd.Parameters.Add("SaleDate", OleDbType.Date).Value = SaleDate
       cmd.Parameters.Add("UserID", OleDbType.Integer).Value = UserID
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
       cmd = Nothing
   End Sub


RE: ما هو علاج هذة المشكلة - Rabeea Qbaha - 25-11-18

انت تقوم بتكرير احد هذه الاعمدة SaleNo | CustomerID | ItemID |SaleBillNo | UserID

او انك تقوم بتكرارها في نفس جدول sales  وتكون لا تقبل التكرار او انك تربطها بعلاقه 1 الى 1 وتقوم بتكرارها في الجدول الاصلي 

تاكد من الاتي 

ضع msgbox قبل الاضافه بالقيم SaleNo | CustomerID | ItemID |SaleBillNo | UserID وتاكد من انه لا توجد قيمة مسبقه في الجدول في قاعدة البيانات مسجلة

نصيحة اخرى :

اذا كنت تستخدم جدول واحد فقط لكل هذه القيم قم بتقسيمها على عده جداول ة اربط الجداول في علاقة بالجدول الاساسي 
و اذا اردت اضهارها جميعا قم بعمل veiw في قاعدة البيانات هكذا ارتب و لن تقوم بتكرار البيانات