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

تاريخ الإنتساب : 05-11-2015
تاريخ الميلاد : غير محدد
التوقيت المحلي : 16-12-2018 في 04:14 AM
الحالة : غير متصل

AbdouProg معلومات المنتدى
إنضم إلينا : 05-11-2015
آخر زيارة 06-12-2018, 01:12 PM
إجمالي المشاركات : 79 (0.07 مشاركات في اليوم الواحد | 0.19 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 15 (0.01 مواضيع في اليوم | 0.19 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 2 أيام, 6 ساعات, 16 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 7 (0.01 0.16 per day | 4309 percent of total 0.16)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 0 (0 0 per day | 4327 percent of total 0)
(Find All Thanked ThreadsFind All Thanked Posts)

بيانات العضو AbdouProg
البريد : قم بمراسلة AbdouProg بالبريد .
مراسلة خاصة : أكتب لـ AbdouProg رسالة خاصة .
  
توقيع 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;
 
     SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
 
     SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
 
     Params[0].Value := DM1.SourceID.Value;
 
     Params[1].Value := DM1.SourceFIRSTNAME.Value;
 
     Params[2].Value := DM1.SourceLASTNAME.Value;
 
     Params[3].Value := DM1.SourceCITY.Value;
 
     Params[4].Value := DM1.SourceCOUNTRY.Value;
 
     ExecSQL;
 
     end;
DM1.source.next;
End