[haniblack]

السلام عليكم ورحمة الله وبركاته

اخوتي الكرام  في المشاركات الماضية طلبت برنامج حذف صف كامل من قاعدة بيانات
وساعدني الاستاذ العظيم احمد منصور  امده الله بالصحة والعافية في مثال موجود بالمرفقات

حيث يقوم البرنامج بحذف صف محدد داخل جدول قاعدة بيانات
لكن اذا كان بالامكان عمل زر اضافي يقوم بتعديل على محتويات هذا الصف
يعني بمعنى اخر يقوم بنسخ قيمة من مربع text ووضعها في صف الجدول بالكامل
بدل من طريقة الادخال اليدوي على كل حقل


وشكرا لكم

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم ، أنا أكتب ردي هذا من جهاز الموبايل لذلك قمت بتحميل المرفق وإستخراج الكود كـ نص ، لكي أنسخ كود زر المسح لعمود كامل في الجدول لأن كود تعديل عمود كامل في الجدول هو بنفس الطريقة اللهم بدل القيمة الفارغه تستبدلها لقيمة التكيت بوكس ، إذا أدرج زر جديد وليكن إسمه Command4 وهذا الزر يقوم بتعديل مثلا عمود الـ SeatNo بقيمة الـ Text1 , إذا الكود سيكون كالتالي :

PHP كود :

Private Sub Command4_Click()
On Error Resume Next: Err.Clear

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Update seat Set Seat_No='" & Trim$(Text1.Text) & "'"
Adodc2.Refresh

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From seat"
Adodc1.Refresh

MsgBox "تم تعديل بيانات العمود بقيمة التكست بوكس", vbOKOnly + vbInformation, "تنبيه"

End Sub 


[haniblack]

(11-10-16, 12:17 PM)ألف شكر لك استاذ احمد عدلت على البرنامج وتم الموضوع بنجاحبارك الله بك وجعلها في ميزان حسناتك Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم ، أنا أكتب ردي هذا من جهاز الموبايل لذلك قمت بتحميل المرفق وإستخراج الكود كـ نص ، لكي أنسخ كود زر المسح لعمود كامل في الجدول لأن كود تعديل عمود كامل في الجدول هو بنفس الطريقة اللهم بدل القيمة الفارغه تستبدلها لقيمة التكيت بوكس ، إذا أدرج زر جديد وليكن إسمه Command4 وهذا الزر يقوم بتعديل مثلا عمود الـ SeatNo بقيمة الـ Text1 , إذا الكود سيكون كالتالي :

PHP كود :

Private Sub Command4_Click()
On Error Resume Next: Err.Clear

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Update seat Set Seat_No='" & Trim$(Text1.Text) & "'"
Adodc2.Refresh

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sdb.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From seat"
Adodc1.Refresh

MsgBox "تم تعديل بيانات العمود بقيمة التكست بوكس", vbOKOnly + vbInformation, "تنبيه"

End Sub 


[princeofislam]

كود قوي جدا جدا استاذنا
بارك الله بكم