+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد مثال كامل ل اضافة وحذف وتعديل لربط ineer join (/showthread.php?tid=8145)
اريد مثال كامل ل اضافة وحذف وتعديل لربط ineer join - mazen - 26-03-13
انا عملت برنامج وهو واجهة واحدة للاسف واريد ربط 3 جدول مع بعض وانا هسلم المشروع بالمعهد بعد اسبوع وهو عن محل بة بيع وشراء ومخزون
ومش هينفع واجهة واحدة ارجو عمل برنامج ب ineer join لربط 2 جدول واهم شيء الاضافة والحذف والتعديل والحفظ بعد ربط 2 جدول
انا تبعت مواضيع الربط بس كلها مفيهاش اضافة ولا حذف ولا تعديل
وكان موضوع الا ستاذ ابو ايهاب مميز بس للاسف مفيش اضافة اوحذف او تعديل
اريد مثال كامل ل اضافة وحذف وتعديل لربط ineer join - mazen - 26-03-13
انا حاولت بالاكواد دية ونفعت معايا بس المشكة في الحفظ
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