تحويل التسجيلات من جدول الى اخر باستعمال براميتر

[S.FATEH]

السلام عليكم انا لم اجرب قاعدة البيانات FlashFiler لكن يبدو ان لهم طريقتهم في التعامل مع الـ date
نفس الفكرة استخدم if اذا كان التاريخ =0 لا تنقل القيمة 30/12/1899 هو نفسه 0 و هو نفسه null حسب قاعدة البيانات التي تستخدمها

جرب الكود الخاص بي مع تغيير اللازم و رد لي الخبر
نفس الفكرة لا تنقل التواريخ التي هي null

[AbdouProg]

جربت الكود الخاص بك 

هو لا يعمل 

في الشرط الثالي لا يمر 

[size=small] if not source[/size][size=small].[/size][size=small]Fields[/size][size=small][[/size][size=small]i[/size][size=small]].[/size][size=small]AsDateTime [/size][size=small]= [/size][size=small]0 then[/size]

---

if not source.Fields[i].AsDateTime = 0 then

[S.FATEH]

قد تكون مشكلة اقواس !!!!
لم اجرب الكود if not (source.Fields[i].AsDateTime = 0) then

[AbdouProg]

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

[AbdouProg]

السلام عليكم
جربت الكود يأخي للاسف هو لا يعمل هناك خطأ

[AbdouProg]

السلام عليكم و رحمة الله و بركاته

الكود الثالي يعمل بامتياز و بدون مشاكل و خاصة في MYSQL  بالتوفيق للجميع 
و الشكر موصول لكل الزملاء الدين ساعدوني في ايجاد الحل و خاصة S.FATEH و BEN.JA  

PHP كود :

var
i : 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 (N°, FIRSTNAME,LASTNAME,CITY,COUNTRY,date_enr)');
     SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5, :b6)');

 for i:= 0 to DM1.source.FieldCount-1 do
    begin
     if DM1.source.Fields[i].DataType in [ftDate,ftDateTime] then
       begin
        if DM1.source.Fields[i].isnull Then
          begin
          Params[i].Clear;
          Params[i].Bound := TRUE;
          Params[i].DataType :=  ftDateTime;
          end
          else
           Params[i].DataType := DM1.source.Fields[i].DataType;
           Params[i].Value := DM1.source.Fields[i].Value;
        end
        else
          Params[i].DataType := DM1.source.Fields[i].DataType;
          Params[i].Value := DM1.source.Fields[i].Value;
     end;
     ExecSQL;
   End;
   DM1.source.next;
End;