+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحديث البيانات بقاعدة البيانات (/showthread.php?tid=23174)
تحديث البيانات بقاعدة البيانات - محمد اسماعيل - 01-01-18
اريد تحديث بيانات جدولين مرتبطين مع بعض علاقة راس براس حيث الجدول الاول الاساسي tb1 والثاني tb2
استخدمت الكود التالي بعد استعادة خلايا الداتا جريد الي التيكست لتحديث البيانات ولكن لم يحدث شيء ولم يحدث البيانات
كود :
con.Open()
Dim Sav As New OleDb.OleDbCommand
Sav.Connection = con
Sav.CommandType = CommandType.Text
Sav.CommandText = "UPDATE tb1,tb2 SET tb1.clien_mail = '" & _
TextBox2.Text & "' , tb1.model_mail = '" & _
TextBox3.Text & "' , tb2.probl_acce = '" & _
TextBox4.Text & "' , tb2.main_acce= '" & _
TextBox5.Text & "' ,tb2.typ_acce = '" & _
TextBox6.Text & "' where tb1.ID_mail = tb2.ID_acce '" & _
Label2.Text & "'"
Sav.ExecuteNonQuery()
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1.ID_mail ,tb1.clien_mail, tb1.model_mail, tb2.probl_acce,tb2.main_acce,tb2.typ_acce FROM tb1, tb2 where tb1.ID_mail = tb2.ID_acce", con)
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2")
DataGridView1.Refresh()
count()
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("تم الاضافه والحفظ بنجاح")RE: تحديث البيانات بقاعدة البيانات - karimx - 02-01-18
السلام عليكم أخي العزيز ورحمة الله وبركاته
من الواضح أنك تريد التعديل أو التحديث على جدولين في آن معا، ولكن أخي العزيز لا يمكن التعديل على جدولين في جملة استعلام واحدة، لا بد من عملة جملة استعلام Update لكل جدول على حدى
- Update tb1 Set Field ....
- Update tb2 Set Field ....
أو يمكنك التحديث على جدولين من خلال هذه الطريقة :
لنفترض أن لدينا جدولان الأول بعنوان Employee والثاني بعنوان Salary :
الجدول الأول يضم الحقول التالية :
- EmployeeId
- EmployeeName
الجدول الثاني يضم الحقول التالية ك
- EmployeeId
- SalaryId
- EntryDate
- Amount
للتعديل على الجدولين في آن معا يمكننا استخدام جملة الإستعلام التالية :
PHP كود :
Update Employee
INNER JOIN Salary
ON Employee.EmployeeId = Salary.EmployeeId
Set Employee.EmployeeName = Value,Salary.EntryDate = Value,Salary.Amount = Value
Where Employee.EmployeeId = 1