02-02-18, 04:05 PM
(آخر تعديل لهذه المشاركة : 02-02-18, 04:23 PM {2} بواسطة محمد اسماعيل.)
(02-02-18, 03:28 PM)خالد كتب : السلام عليكم ورحمة الله وبركاته
التحديث أو الإضافة تتم على جدول واحد لكل عملية مع قاعدة البيانات.
لاحظت أن الجداول الثلاث متشابهه وهذه الطريقة غير صحيحة،
والصحيح أن يتم عمل جدول واحد مع اضافة عمود تخصيص إذا كان لكل جدول غرض مختلف عن الآخر.
الملاحظة الأخرى تسمية الجدول باسم TB أو البعض يسميه Table1 وهذه الطريقة غير صحيحة،
والأمر ينطبق على اسماء الأعمدة وأدوات الفورم والمتغيرات.
بارك الله فيكم
السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي خالد اعزك الله
1- هذا ليس مثال وهذة ليست طريقتي المتبعة في ترتيب الجداول او اسماء الاعمدة ولكنة شيء من قبيل الايضاح لا اكثر وانا اراعي ماقلت ولكنة ليس مثال الي انة مجرد طريقة لتوضيح طلبي
2- الاعمدة والجداول ليست متشابة وهناك منتجات متعلقة بالاوزان واخري بالاعداد ببرنامجي الحقيقي واقسام مختلفة لمشروعي وهكذا وليست من نفس النوع والا كنت وضعتها معا مادامت نفس الهيكل المحاسبي
وكما قلت في البداية مجرد صورة لما اريد للايضاح فقط وليست مثال
اشكرك علي ردك ومتابعتك لموضوعي
انا حاولت بالطريقة دية لتغا ضي عن اسماء الجداول ولكن لاشيء
كود :
con.Open()
Dim DataAdapter As New OleDbDataAdapter("SELECT ID_TB1,TYPE_TB1 ,COUN_TB1,LOSS_TB1,RETURN_TB1 FROM tb1 UNION SELECT ID_TB2,TYPE_TB2 ,COUN_TB2,LOSS_TB2,RETURN_TB2 FROM tb2 UNION SELECT ID_TB3,TYPE_TB3 ,COUN_TB3,LOSS_TB3,RETURN_TB3 FROM tb3", con)
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "TB1,TB2,TB3")
DataGridView1.Refresh()
conn()
count()
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("تم التعديل والحفظ بنجاح")
