المشاركات : 183
المواضيع 63
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
انا عملت برنامج وهو واجهة واحدة للاسف واريد ربط 3 جدول مع بعض وانا هسلم المشروع بالمعهد بعد اسبوع وهو عن محل بة بيع وشراء ومخزون
ومش هينفع واجهة واحدة ارجو عمل برنامج ب ineer join لربط 2 جدول واهم شيء الاضافة والحذف والتعديل والحفظ بعد ربط 2 جدول
انا تبعت مواضيع الربط بس كلها مفيهاش اضافة ولا حذف ولا تعديل
وكان موضوع الا ستاذ ابو ايهاب مميز بس للاسف مفيش اضافة اوحذف او تعديل
المشاركات : 183
المواضيع 63
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
انا حاولت بالاكواد دية ونفعت معايا بس المشكة في الحفظ
cmd.CommandText = "SELECT Employee.Emp_ID ,Employee.Emp_Name ,Employee.Emp_Tel , Dep_Name FROM Employee , Department where Employee.Dep_id = Department.Dep_id "
DataAdapter1 = New OleDbDataAdapter(cmd)
Dim builder As New OleDbCommandBuilder(DataAdapter1)
DataSet1 = New DataSet()
'Load some data into the DGV
DataAdapter1.Fill(DataSet1, "DataTable1")
BindingSource1 = New BindingSource(DataSet1,
"DataTable1")
BindingSource2 = New BindingSource(DataSet1,
"DataTable1")
ودة كود الحفظ بس للاسف فشل معايا
Try
If BindingSource1.Count = 0 Then Beep() : Exit Sub
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1, "DataTable1")
count()
MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try