ادخال قيمة الى حقل في قاعدة البيانات

ادخال قيمة الى حقل في قاعدة البيانات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ادخال قيمة الى حقل في قاعدة البيانات (/showthread.php?tid=8511)

ادخال قيمة الى حقل في قاعدة البيانات - Med-01 - 11-03-2017

السلام عليكم ورحمة الله وبركاته
لدينا جدول في قاعدة البيانات table1 يحتوى على عدة حقول من بينها حقل test

اريد ادخال قيمة edit1 الى الحقل test في جميع السجلات

[صورة: 498879value.png]

جزاكم الله خيراااا

RE: ادخال قيمة الى حقل في قاعدة البيانات - jeanjamil - 11-03-2017

كود :
begin
  Table1.DisableControls
    try
       Table1.First
        while not Table1.Eof do
        begin
          Table1.Edit
          Table1.FieldByName('test').Value:=Edit1.Text
          Table1.Post
          Table1.Next
        end
    finally
       Table1.EnableControls
end

طبعا مع الفواصل المنقوطة نهاية الاسطر

RE: ادخال قيمة الى حقل في قاعدة البيانات - Med-01 - 12-03-2017

اهلا اخي jeanjamil
جزاك الله خيرااا وجعلها في ميزان حسناتك امين يارب
اسئل الله ان يرزقك من حيث لا تحتسب .

مادا لو اضفنا حقل جديد بجانب test ولنفترض اسمه test2 من نوع bolean اي "true or false "
واردنا عمل شرط if حيت ستعطى قيمة Edit1.Text في فقط ادا امن امامه صح اي true وادا كان false يبقى كما هو

[صورة: 171778Capture.png]

وشكرااا مسبقا اخي الكريم

RE: ادخال قيمة الى حقل في قاعدة البيانات - jeanjamil - 12-03-2017

بالاستطاعة تعديل الكود

كود :
table1.DisableControls;
try
  table1.First;

while not table1.eof do
  begin
    table1.Edit
    if table1.FieldByName('check').AsBoolean=true then
     table1.FieldByName('name').AsString:='done  
 table1.Post   
  table1.Next    
    end
     Finally
      table1.EnableControls;
  end;

RE: ادخال قيمة الى حقل في قاعدة البيانات - Med-01 - 13-03-2017

بارك الله فيك اخي الكريم
اسئل الله ان يغفرك لك ولولديك امين يارب .
ويرزقكم الفردوس الاعلى

ياريت تشرح كل من هده الاكواد

كود :
table1.DisableControls;
try

 while not table1.eof do

خاصتا eof
Finally

RE: ادخال قيمة الى حقل في قاعدة البيانات - jeanjamil - 14-03-2017

disablecontrols
لتسريع معالجة البيانات وخاصة في حالات الثكرارLOOP
table1.first
تضع المؤشر عند اول سجل
وهنا تبدأ معالجة البيانات سجل تلو الاخر
while not table1.eof
أي اذا لم يكن السجل الحالي هو الأخير في الجدول
end of file(eof)
اذن next أي انتقل الى السجل التالي   حتى الوصول الى نهاية الجدول
try و finally
للحماية من الاعتراضات وتحرير الذاكرة عند نهاية الكود
ارجو ان يكون واضحا  بالتوفيق

RE: ادخال قيمة الى حقل في قاعدة البيانات - Med-01 - 18-03-2017

جزاك الله خيراااا اخي الكريم"jeanjamil"
شرح كافي و وافي اعتدر لتاخر في الرد
سادعوا لك في ظهر الغيب