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

[SOFIANE09]

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

[kachwahed]

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

كود :

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;

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

[SOFIANE09]

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

[kachwahed]

الأخ SOFIANE09 حاول الأمر بسيط:

PHP كود :

ImportDataSet(ADOTable1, archive.ADOTable1); 


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

for I := 1 to dsSource.FieldCount-1 do

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

[SOFIANE09]

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

[kachwahed]

ببساطة:

كود :

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

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

[SOFIANE09]

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