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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل تسجيل من جدول الى جدول اخر (/showthread.php?tid=1977)

تحويل تسجيل من جدول الى جدول اخر - SOFIANE09 - 06-05-2010

السلام اخواني
استعمل قاعدة معطيات الاكسس
ما هي كيفية نقل سجيل معين من جدول الى جدول اخر
.بمعني من جدول المعلومات العامة الى جدول الارشيف
.ويجب في نفس الوقت ان يمحى من جدول المعلوات العامة عند نقلة الى جدول الارشف و يوضع في جدول الارشيف
وشكرا.

تحويل تسجيل من جدول الى جدول اخر - kachwahed - 06-05-2010

السلام عليكم ورحمة الله
مبدئيا:

كود :
procedure ImportDataSet(dsSource, dsDest: TDataSet);
var
  I: Integer;
begin
  dsSource.DisableControls;
  dsDest.DisableControls;
  try
    dsSource.First;
    while not dsSource.Eof do begin
      dsDest.Append;      
      for I := 0 to dsSource.FieldCount-1 do
        dsDest.FieldByName(dsSource.Fields[I].FieldName).Value := dsSource.Fields[I].Value;
      dsSource.Next;
    end;
    if dsDest.State in [dsEdit, dsInsert] then
      dsDest.Post;
  finally
    dsSource.EnableControls;
    dsDest.EnableControls;
  end;
end;

قم بمحاولة ونصححها Smile

تحويل تسجيل من جدول الى جدول اخر - SOFIANE09 - 06-05-2010

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

تحويل تسجيل من جدول الى جدول اخر - kachwahed - 06-05-2010

الأخ SOFIANE09 حاول Smile

الأمر بسيط:

PHP كود :
ImportDataSet(ADOTable1, archive.ADOTable1); 

فقط غيرت السطر:

إقتباس : for I := 1 to dsSource.FieldCount-1 do

لتفادي نسخ سجلات الحقل الأول، لأنه AutoInc.

تحويل تسجيل من جدول الى جدول اخر - SOFIANE09 - 06-05-2010

شكرا اخي الكريم ولكن وقعت في مشكلة وهي اني عند نقل التسجيل لا ياخد التسجيل المعني بل ياخد كل محتوى التسجيل كيف يمكنني ان اجعله ينقل تسجيل الدي انا ارغب فيه وشكرا اخى على المشاركة الطيبة والقيمة

تحويل تسجيل من جدول الى جدول اخر - kachwahed - 06-05-2010

ببساطة:

كود :
ADOTable1.FieldByName('[color=Blue]FieldName[/color]').AsString := archive.ADOTable1.FieldByName('[color=Blue]FieldName[/color]').AsString;

كررها لكل حقل و/أو ضعها في حلقة، مع تغيير FieldName باسم الحقل.
الأصل في نقل البيانات بين الجداول استخدام TBatchMove
بالتوفيق.

تحويل تسجيل من جدول الى جدول اخر - SOFIANE09 - 07-05-2010

شكرا اخي الكريم على هاته الاادة اجرك على الله ولكن لم تفهم قصدي اقصد عند نقل التسجيلات من الجدول الاول ياخد كل ما هو مسجل فب dbgrid و لا ياخد التسجيل الذي اختاره فقط ثم يمحه في نفس الوقت ويضعه في لارشيف.يعني عندما ابحث عنه مر اخرى في الجدل الاول لا اجدة اجده ماشرة في الارشيف.وشكرا اخى الكريم على هاته المساهمة القيمة