منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد مثال كامل ل اضافة وحذف وتعديل لربط ineer join
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا عملت برنامج وهو واجهة واحدة للاسف واريد ربط 3 جدول مع بعض وانا هسلم المشروع بالمعهد بعد اسبوع وهو عن محل بة بيع وشراء ومخزون

ومش هينفع واجهة واحدة ارجو عمل برنامج ب ineer join لربط 2 جدول واهم شيء الاضافة والحذف والتعديل والحفظ بعد ربط 2 جدول


انا تبعت مواضيع الربط بس كلها مفيهاش اضافة ولا حذف ولا تعديل

وكان موضوع الا ستاذ ابو ايهاب مميز بس للاسف مفيش اضافة اوحذف او تعديل
انا حاولت بالاكواد دية ونفعت معايا بس المشكة في الحفظ
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