إخواني السلام عليكم
كيف اقوم بالتمركز عند اخر سطر تمت اظافته في قاعدة البيانات ونقوم بعملية اخر سطر+1 تم ننقوم باظافة المعلومات عن طريق DATASET.append
لانه حالىاعند اضافة اى سطر في قاعدة البيانات اضافة تمسح اخر سطر تمت اظافته
استعمل الكود الاتي
procedure TForm1.Button6Click(Sender: TObject);
begin
;ADODataSet1.Append
end;;
سؤالى الثانى ماهو الفرق بين append et insert في dataset
شكرا مقدما
و عليكم السلام و رحمة الله
مثال
كود :
ADODataSet1.Append;
ADODataSet1.FieldByName('field1').AsString := 'valfield1';
ADODataSet1.FieldByName('field2').AsString := 'valfield2';
ADODataSet1.Post;
كود :
ADODataSet1.InsertRecord(['valfield1', 'valfield2']);
Post تستعمل للحفظ بعد Edit, Insert, Append
بالتوفيق
الـ Edit لتعديل سجل حالي
الـ Append لإضافة سجل تحت آخر سجل بالجدول
الـ Insert هو إدخال سجل جديد في الجدول
يوجد اختلاف بسيط بين Insert و Append الأخيره تقوم بوضع السجل في آخر الجدول إجباريا بينما الأولى لا يهم الموقع.
post للحفظ
insert تدخل تسجيلة جديدة في الجدول
append تنشا تسجيلة جديدة في أخر الجدول
شكرا لكم اخواني، قمت بما يلي
كود :
ADODataSet1.Append;
ADODataSet1.FieldByName('Num_E').AsString := dbedit1.text;
ADODataSet1.FieldByName('Nom_E').AsString := dbedit2.text;
ADODataSet1.FieldByName('Prenom_E').AsString := dbedit3.text;
ADODataSet1.FieldByName('D_Nais_E').AsString := dbedit4.text;
ADODataSet1.FieldByName('A_Etud_E').AsString := dbedit5.text;
ADODataSet1.Post;
لكن المشكلة تقع عند ادخال المعلومات للمرة الثانىة فهنا يتم مسح اخر سجل وتعويضه بالذي ادخلته ماخرا
المشكلة الثانية هي عندما اقوم بتنفيد البرنامج تظهر لي معلومات السجل الاول من القاعدة البيانات لكن كيف تكون DBEDIT فارغة لكى اتمكن من ملئ المعلومات
شكرا مقدما و جزاكم الله خيرا
السلام عليكم
عندك خياران
- تستخدم DBEDIT تضيف زرين واحد Append و الآخر Post فقط
- تعوض كل DBEDIT بـ TEDIT و تستخدم الكود الذي كتبته ( مع تعويض dbedit بما يقابلها )
بالتوفيق