AbdouProg
(مبرمج هاوي)
***

تاريخ الإنتساب : 05-11-2015
تاريخ الميلاد : غير محدد
التوقيت المحلي : 20-05-2019 في 01:30 PM
الحالة : غير متصل

AbdouProg معلومات المنتدى
إنضم إلينا : 05-11-2015
آخر زيارة 24-01-2019, 03:05 PM
إجمالي المشاركات : 79 (0.06 مشاركات في اليوم الواحد | 0.19 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 15 (0.01 مواضيع في اليوم | 0.18 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 2 أيام, 6 ساعات, 17 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 7 (0.01 0.14 per day | 4877 percent of total 0.14)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 0 (0 0 per day | 4896 percent of total 0)
(Find All Thanked ThreadsFind All Thanked Posts)
  
توقيع AbdouProg
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك


RE: كيف يمكن نقل سجيلات من جدول الى اخر باستعمال الفلترة مع العلم ان DatabaseName مختلفة 4
كيف يمكن نقل سجيلات من جدول الى اخر باستعمال الفلترة مع العلم ان DatabaseName مختلفة سؤال و جواب حول دلفي
السلام عليكم و رحمة الله و بركاته
في الاخير ثم الوصول الى الحل النهائي و دالك بتظافر الجهود من اعضاء هدا المنتدى التعليمي الرائع
و في الختام اشكر الجميع و جعله الله في ميزان حسناتهم ووفقكم الله وليستفيد الجميع اقدم لكم الكود الاخير بطريقتين و لكم الاختيار فيما يناسبكم ان شاء الله

الطريقة الاولى

PHP كود :
var
integer;
Begin

DM1
.Source.close;
DM1.Source.open;
DM1.Source.first;

While 
Not DM1.Source.eof  Do

Begin
 With DM1
.destination Do

 
    Begin
     Active
:=False;
 
    SQL.Clear;
 
    SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
 
    SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
 
  for i:= 0 to DM1.Source.FieldCount-do
 
    Params[i].Value := DM1.source.Fields[i].Value;
 
    ExecSQL;
 
    End;
 
  DM1.source.next;
End

الطريقة الثانية

[php]begin

DM1.Source.close;
DM1.Source.open;
DM1.Source.first;

While Not DM1.Source.eof  do  

Begin

with DM1.destination do

     begin
     Active:=False;
     SQL.Clear;...