كيفيه نقل بيانات من جدول فى قاعده بيانات الى نفس ا

أخي العزيز سأحاول مساعدتك قليلاً رغم أني مشغول جداً جداً ..

إذا كنت تقصد نقل البيانات من جدول العملاء مثلاً موجود في قاعدة بيانات أكسس إلى

جدول مماثل في البنية في قاعدة سكول سيرفر مثلاً :

وليكن الجدول مؤلف من حقلين :

الأول : ID

والثاني : Name

إفعل ما يلي :

1- عليك أولاً أن تنشئ اتصالين بالقاعدتين و يمكنك ذلك عن طريق الـ AdoConnection

حيث تهيئ الخاصية ConnectionString الخاصة بها

2- ضع على فورم 2 AdoQuery واربط الخاصية Connection لكل منهما مع الـ

أحد AdoConnection .

3- وإليك الكود لتضعه في الـ Button مباشرة :

with AdoQuery1 Do
Begin
  close;
  sql.clear;
  sql.Text := 'select Id,Name from Table'
  open;
  First;
  while Not(Eof) do
  begin
     AdoQuery2.sql.clear;
     AdoQuery2.sql.text := 'Insert Into OtherTable(Id,Name) values( ' +
     Fields.FieldByName('ID').asString + ',' +
     Fields.FieldByName('Name').asString + ')';
     AdoQuery2.ExecSql;
     Next;
  end;

أتمنى الفائدة .. :rolleyes:

المبرمج عماد .... B) B) B)

يوجد أيضاً طريقة أخرى و هي :

with AdoQuery1 Do
Begin
 close;
 sql.clear;
 sql.Text := 'select Id,Name from Table'
 open;
 First;
 while Not(Eof) do
 begin
    adoTable1.Insert;
    adoTable1.fields.fieldByName('ID').value := adoQuery2.fields.fieldByName('ID').value;
    adoTable1.fields.fieldByName('Name').value := adoQuery2.fields.fieldByName ('Name').value;
    adoTable1.Post;
    Next;
 end;

المبرمج عماد ... B) B)

اليك هذا الرابط

Datapump

mo_zamzam كتب:

كيفيه نقل بيانات من جدول فى قاعده بيانات الى نفس الجدول فى قاعدة بياناتINTERBASE اخرى

على سبيل المثال فى جدول العملاء يوجد بيانات العميل وحساباته وارقام تليفونات اريد ان انقل بيانات  مجموعه محدده من العملاء فى نفس الجدول الى قاعده بيانات اخرى مع الاخذ فى الاعتبار ان قاعده البيانات الاخرى يوجد بها مجموعه مختلفه من العملاء مع العلم ان نفس بيانات الجدولين متطابقه و فى قاعده البيانات الاولى مفتاح اساسى و ترقيم تلقائى

←