السلام اخواني
استعمل قاعدة معطيات الاكسس
ما هي كيفية نقل سجيل معين من جدول الى جدول اخر
.بمعني من جدول المعلومات العامة الى جدول الارشيف
.ويجب في نفس الوقت ان يمحى من جدول المعلوات العامة عند نقلة الى جدول الارشف و يوضع في جدول الارشيف
وشكرا.
السلام عليكم ورحمة الله
مبدئيا:
كود :
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 حاول الأمر بسيط:
PHP كود :
ImportDataSet(ADOTable1, archive.ADOTable1);
إقتباس : for I := 1 to dsSource.FieldCount-1 do
لتفادي نسخ سجلات الحقل الأول، لأنه AutoInc.
شكرا اخي الكريم ولكن وقعت في مشكلة وهي اني عند نقل التسجيل لا ياخد التسجيل المعني بل ياخد كل محتوى التسجيل كيف يمكنني ان اجعله ينقل تسجيل الدي انا ارغب فيه وشكرا اخى على المشاركة الطيبة والقيمة
ببساطة:
كود :
ADOTable1.FieldByName('[color=Blue]FieldName[/color]').AsString := archive.ADOTable1.FieldByName('[color=Blue]FieldName[/color]').AsString;
الأصل في نقل البيانات بين الجداول استخدام TBatchMove
بالتوفيق.
شكرا اخي الكريم على هاته الاادة اجرك على الله ولكن لم تفهم قصدي اقصد عند نقل التسجيلات من الجدول الاول ياخد كل ما هو مسجل فب dbgrid و لا ياخد التسجيل الذي اختاره فقط ثم يمحه في نفس الوقت ويضعه في لارشيف.يعني عندما ابحث عنه مر اخرى في الجدل الاول لا اجدة اجده ماشرة في الارشيف.وشكرا اخى الكريم على هاته المساهمة القيمة