delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > تحويل التسجيلات من جدول الى اخر باستعمال براميتر
نسخة كاملة : تحويل التسجيلات من جدول الى اخر باستعمال براميتر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

S.FATEH

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

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

AbdouProg

19-04-2018, 12:30 AM
جربت الكود الخاص بك 

هو لا يعمل 

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

[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

19-04-2018, 12:35 AM
قد تكون مشكلة اقواس !!!!
لم اجرب الكود if not (source.Fields[i].AsDateTime = 0) then

AbdouProg

19-04-2018, 12:49 AM
ان شاء الله سوف اجرب الكود
بالتوفيق و السلام عليكم
الله المعين و بارك الله فيك

AbdouProg

21-04-2018, 12:04 AM
السلام عليكم
جربت الكود يأخي للاسف هو لا يعمل هناك خطأ
[صورة: xfigrtons4i7.png]

AbdouProg

23-04-2018, 12:10 AM
السلام عليكم و رحمة الله و بركاته

الكود الثالي يعمل بامتياز و بدون مشاكل و خاصة في 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; 
الصفحات : 1 2 3
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > تحويل التسجيلات من جدول الى اخر باستعمال براميتر