02-02-18, 01:02 PM
(آخر تعديل لهذه المشاركة : 02-02-18, 01:46 PM {2} بواسطة محمد اسماعيل.)
الف شكر علي ردك ومتابعتك معي
اولا انا هعمل ابديت لاي جدول انا مش عارف الصف الي هختارة خاص باي جدول لان الصفوف تجميعة ثلاث جداول
جملة الابديت لابد من وجود اسم الجدول بها
انا هستخدم 3 تيكست بوكس مثلا للثلاثة خلايا بالصف الواحد
الابديت يبدا باسم الجدول هضع اسم اي جدول في الثلاثة وينتهي بحقل المفتاح لنفس الجدول
دة كود الابديت لجدول واحد اعملة لثلاثة ازاي حتي لو عملت 3 ابديت ل 3 جداول اسفل من بعض انا مش عارف الصف المختار لاي جدول في الثلاثة
اولا انا هعمل ابديت لاي جدول انا مش عارف الصف الي هختارة خاص باي جدول لان الصفوف تجميعة ثلاث جداول
جملة الابديت لابد من وجود اسم الجدول بها
انا هستخدم 3 تيكست بوكس مثلا للثلاثة خلايا بالصف الواحد
الابديت يبدا باسم الجدول هضع اسم اي جدول في الثلاثة وينتهي بحقل المفتاح لنفس الجدول
دة كود الابديت لجدول واحد اعملة لثلاثة ازاي حتي لو عملت 3 ابديت ل 3 جداول اسفل من بعض انا مش عارف الصف المختار لاي جدول في الثلاثة
كود :
On Error Resume Next
con.Open()
Dim Sav As New OleDb.OleDbCommand
Sav.Connection = con
Sav.CommandType = CommandType.Text
Sav.CommandText = "UPDATE TB1 SET TYPE_TB1 = '" & _
product1_add.TextBox1.Text & "' ,COUN_TB1 = '" & _
product1_add.TextBox2.Text & "' where ID_TB1 LIKE '" & _
product1_add.Label8.Text & "'"
Sav.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "TB1")
DataGridView1.Refresh()
conn()
count()
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("تم التعديل والحفظ بنجاح")