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

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

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


وشكرا لكم


الملفات المرفقة
.rar   Delete_1.rar (الحجم : 9.48 ك ب / التحميلات : 3)
الرد }}}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 62 30-11-16, 03:11 PM
آخر رد: haniblack
  [ تم الحل ] : ربط الكومبو بقاعدة البيانات عبد العزيز البسكري 3 94 28-11-16, 10:55 PM
آخر رد: عبد العزيز البسكري
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 74 26-11-16, 01:17 AM
آخر رد: NOOOR
  [سؤال] اصلاح قاعدة البيانات من نوع اكسس amer2000 2 52 23-11-16, 02:27 PM
آخر رد: amer2000
  سوال عن قاعدة البيانات Hamed_85ltt 3 73 22-11-16, 10:21 PM
آخر رد: Amir_alzubidy
Bug [vb6.0] ارجو المساعدة في حفظ وطباعة الصور من قاعدة البيانلت amer2000 4 124 21-11-16, 11:45 AM
آخر رد: amer2000
  مشاركة قاعدة البيانات على الانترنت haniblack 3 105 20-11-16, 09:50 PM
آخر رد: Top GreaT
  [vb6.0] كيف اربط كمبوبوكس بجدول فى قاعدة البيانات ابراهيم حورس 6 183 03-11-16, 09:14 PM
آخر رد: زياد مقداد
  هل ممكن ان يتم استبدال قيمة من قاعدة بيانات باسم ثابت في datareport ابن دوعن 1 81 02-11-16, 03:03 PM
آخر رد: ممدوح
  كيف اربط قاعدة البيانات ل سكول سرفير ahmed_egypt 7 233 07-10-16, 10:47 PM
آخر رد: Amir_alzubidy

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


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