تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير محتويات الصف بالكامل في جدول قاعدة البيانات
#1
السلام عليكم ورحمة الله وبركاته

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

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


وشكرا لكم


الملفات المرفقة
.rar   Delete_1.rar (الحجم : 9.48 ك ب / التحميلات : 21)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Amir_alzubidy
#2
وعليكم السلام ورحمة الله وبركاته

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

PHP كود :
Private Sub Command4_Click()
On Error Resume NextErr.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 
الرد }}}}
#3
(11-10-16, 12:17 PM)ألف شكر لك استاذ احمد عدلت على البرنامج وتم الموضوع بنجاحبارك الله بك وجعلها في ميزان حسناتك Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

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

PHP كود :
Private Sub Command4_Click()
On Error Resume NextErr.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 
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 3 92 01-10-17, 02:37 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عن ربط قاعدة البيانات اكسس amer2000 4 273 14-05-17, 01:08 PM
آخر رد: Amir_alzubidy
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 206 13-04-17, 09:57 AM
آخر رد: haniblack
  كيف اربط قاعدة البيانات ل سكول سرفير ahmed_egypt 8 799 05-04-17, 04:39 PM
آخر رد: ahmed_egypt
  هل ممكن ان يتم استبدال قيمة من قاعدة بيانات باسم ثابت في datareport ابن دوعن 3 417 02-01-17, 04:40 PM
آخر رد: sendbad100
  [سؤال] اصلاح قاعدة البيانات من نوع اكسس amer2000 4 648 15-12-16, 12:49 PM
آخر رد: Amir_alzubidy
  [سؤال] سؤال حول البحث. المتكرر في قاعدة البيانات وفرزها في التكستات عمور2016 13 884 10-12-16, 03:02 PM
آخر رد: عبد العزيز البسكري
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 480 30-11-16, 03:11 PM
آخر رد: haniblack
  [ تم الحل ] : ربط الكومبو بقاعدة البيانات عبد العزيز البسكري 3 478 28-11-16, 10:55 PM
آخر رد: عبد العزيز البسكري
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 446 26-11-16, 01:17 AM
آخر رد: NOOOR

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم