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

[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 حاول :) الأمر بسيط:
ImportDataSet(ADOTable1, archive.ADOTable1);
فقط غيرت السطر:
for I := 1 to dsSource.FieldCount-1 do
لتفادي نسخ سجلات الحقل الأول، لأنه AutoInc.

[SOFIANE09]

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

[kachwahed]

ببساطة:
ADOTable1.FieldByName('FieldName').AsString := archive.ADOTable1.FieldByName('FieldName').AsStrin g;
كررها لكل حقل و/أو ضعها في حلقة، مع تغيير FieldName باسم الحقل.
الأصل في نقل البيانات بين الجداول استخدام TBatchMove (http://www.delphi4arab.com/forum/showthread.php?t=1586)
بالتوفيق.

[SOFIANE09]

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