+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل التسجيلات من جدول الى اخر باستعمال براميتر (/showthread.php?tid=9323)
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - S.FATEH - 19-04-2018
السلام عليكم انا لم اجرب قاعدة البيانات FlashFiler لكن يبدو ان لهم طريقتهم في التعامل مع الـ date
نفس الفكرة استخدم if اذا كان التاريخ =0 لا تنقل القيمة 30/12/1899 هو نفسه 0 و هو نفسه null حسب قاعدة البيانات التي تستخدمها
جرب الكود الخاص بي مع تغيير اللازم و رد لي الخبر
نفس الفكرة لا تنقل التواريخ التي هي null
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - AbdouProg - 19-04-2018
جربت الكود الخاص بك
هو لا يعمل
في الشرط الثالي لا يمر
[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
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - S.FATEH - 19-04-2018
قد تكون مشكلة اقواس !!!!
لم اجرب الكود if not (source.Fields[i].AsDateTime = 0) then
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - AbdouProg - 19-04-2018
ان شاء الله سوف اجرب الكود
بالتوفيق و السلام عليكم
الله المعين و بارك الله فيك
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - AbdouProg - 21-04-2018
السلام عليكم
جربت الكود يأخي للاسف هو لا يعمل هناك خطأ
![[صورة: xfigrtons4i7.png]](http://gulfup.co/i/00684/xfigrtons4i7.png)
RE: تحويل التسجيلات من جدول الى اخر باستعمال براميتر - AbdouProg - 23-04-2018
السلام عليكم و رحمة الله و بركاته
الكود الثالي يعمل بامتياز و بدون مشاكل و خاصة في 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;