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

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

هو لا يعمل 

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

[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
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك

الرد
#23
قد تكون مشكلة اقواس !!!!
لم اجرب الكود if not (source.Fields[i].AsDateTime = 0) then
الرد
#24
ان شاء الله سوف اجرب الكود
بالتوفيق و السلام عليكم
الله المعين و بارك الله فيك
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك

الرد
#25
السلام عليكم
جربت الكود يأخي للاسف هو لا يعمل هناك خطأ
[صورة مرفقة: xfigrtons4i7.png]
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك

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

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

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

 for 
i:= 0 to DM1.source.FieldCount-do
 
   begin
     
if DM1.source.Fields[i].DataType in [ftDate,ftDateTimethen
       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 user says قال شكرا ل AbdouProg على المشاركة المفيدة
  • Ben.Ja
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف