الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط قاعدتي بيانات أو ثلاث

مغلق
بدأه mazen_kb في 13 يونيو 2007 · 3 رد · 675 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف يمكن ربط قاعدتي بيانات أو ثلاث مع بعضها حيث :

لدينا القواعد التالية : DB1.mdb & DB2.mdb &DB3.mdb

حيث نريد نقل البيانات الموجودة في DB1.mdb إلى قاعدة البيانات BD2.mdb عند توفر شرط معين

مثل نقوم بنقل اسماء الطلاب من القاعدة DB1.mdb بعد إنشاء مفاضلة بينهم و الذي ينجح بالمفاضلة ينتقل لقاعدة البيانات DB2.mdb

و السلام

#2

أظنك إن أستخدمت ثلاثة Table بامكانك نقل المحتوى من أي Table إلى الأخرى سجل سجل حسب الشرط المتوفر في السجل

#3

شكرا أخي

ولكن ماهي الطريقة لذلك حيث شرحت مالذي أريده

لدي في قاعدة البيانات DB1.mdb المعلومات التالية حيث هذه القاعدة تحوي بيانات جميع الطلاب أكان ناجحاً أم راسباً:

رقم الطالب/ اسم الطالب / المحافظة/علامته

أما في القاعدة DB2.mdb تحوي معلومات الطلا ب الناجحين فقط

فمهمتنا هي نقل السجلات من DB1.mdb إلى DB2.mdb

#4

يبدو أنك تريد حلول جاهزة

لا باس لاني أنا أيضاً أحب أن أخذ الحلول جاهزة لذلك جرب هذا الحل إن شاء الله يكون طلبك

يتم الفرز اذا كانت علامة الطالب أكثر من 50 يضاف إلى ال Table2

procedure TForm1.Fillter;
var
point,numb:integer;
nam,area: string;
begin
  Table1.DisableControls;
  Table1.First;
  while not  Table1.Eof do
  begin

  if Table1points.AsInteger > 50 then
  begin
	 numb  := Table1numb.AsInteger;
	 point := Table1points.AsInteger;
	 nam   := Table1name.AsString;
	 area  := Table1area.AsString;

	 Table2.Insert;
	 Table2numb.AsInteger   := numb ;
	 Table2points.AsInteger := point;
	 Table2name.AsString	:= nam  ;
	 Table2area.AsString	:= area ;
	 Table2.Post;

  end;

  Table1.Next;
  end;
  Table1.EnableControls;

end;

هذا الموضوع مغلق.

مواضيع مشابهة