دخول

samnaj00

السلام عليكم ورحمة الله وبركاته
السادة الكرام
لدي قاعدة بيانات1 فيها جدول1 بعمودين (id+name ) والعمود name مطلوب
و قاعدة بيانات2 فيها جدول2 بعمودين id+photo

اريد عندما اضيف سجل جديد في جدول1 ان يضاف نفس id في جدول2

بما أن العمود name مطلوباً فإن اي خطأ يظهر عند الحفظ دون كتابة قيمة للحقل name فإنه يتم اضافة السجل للجدول2 في حين لم تتم اضافته للجدول1 وهنا الخطأ

الكود في BEFOREPOST للجدول1

كود :
if ABSTable1.State in [dsInsert] then
begin
  ABSTable2.Append;
  ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
  ABSTable2.Post;
end;

وضعت في POST ERROR لتلافي الادخال في الجدول2 لكنه لم يعمل

كود :
if (E is EABSEngineError) then
    begin
      Showmessage('Error');
      Abort;
    end;

فكيف الحل؟؟
.rar

Insert into other database.rar (الحجم : 811.04 ك ب / التحميلات : 25)

Delphi4Us · 09-11-2020, 04:33 PM

السلام عليكم ورحمة الله وبركاته

هناك عدة حلول اولا ان تستخدام TRansction والتي تجعل من العمليتين ناجحتين او تلغي العمليتين
ثانيا يمكنك ان لا تضيف بالجدول الثاني الا بعد اضافة السجل الاول .بالجدول الاول اي تفعيل زر اضافة صورة للسجل بعد نجاح اضافة السجل

samnaj00 · 09-11-2020, 06:19 PM

(09-11-2020, 04:33 PM)Delphi4Us كتب : ثانيا يمكنك ان لا تضيف بالجدول الثاني الا بعد اضافة السجل الاول .بالجدول الاول اي تفعيل زر اضافة صورة للسجل بعد نجاح اضافة السجل

نعم استاذي الكريم . نجحت هذه الطريقة.

لكن ماهو TRansction ؟

Delphi4Us

قد يختلف قليلا من قاعدة بيانات الى اخرى

كود :
dbDemos.StartTransaction;
  try

    AbsTable1.Insert;
    AbsTable1.FieldByName('name').AsString := 'Kelly';
    AbsTable1.Post;
  AbsTable2.Insert;
 AbsTable2.FieldByName('name').AsString := 'Kelly';
 AbsTable2.Post;
    dbDemos.Commit(cbFlush.Checked);
  except
    dbDemos.Rollback;
  end;

كود :
with ABSQuery1 do
    begin
      SQL.Text := 'START TRANSACTION; INSERT INTO friends (name) values ("Junior");';
      if cbFlush.Checked then
        SQL.Text := SQL.Text + 'COMMIT;'
      else
        SQL.Text := SQL.Text + 'COMMIT NOFLUSH;';
      try
        ExecSQL;
      except
        SQL.Text := 'ROLLBACK';
        ExecSQL;
      end;
    end;

samnaj00 · 10-11-2020, 03:00 PM

(09-11-2020, 07:23 PM)Delphi4Us كتب : قد يختلف قليلا من قاعدة بيانات الى اخرى

كود :
dbDemos.Commit(cbFlush.Checked);

هذا الجزء لم يعمل عندي في absolute وحاولت تعديله فلم افلح
كل الشكر لك استاذي

قمت بعمل هذا الكود فنجح الامر تماماً - اضافة-تعديل-حذف لكلا الجدولين . فهل يوجد افضل من ذلك؟
- جعلت في الجدول1 عمود auto اوتونمبر وبناء على قيمة الفريدة لهذا العمود سيتم الادخال في الجدول2 او التعديل او الحذف

كود :
procedure TForm1.ABSTable1AfterEdit(DataSet: TDataSet);
begin
label1.Caption := '1';
end;

procedure TForm1.ABSTable1AfterInsert(DataSet: TDataSet);
begin
label1.Caption := '0';
end;

procedure TForm1.ABSTable1AfterPost(DataSet: TDataSet);
begin
if label1.Caption = '0' then
begin
  ABSTable2.Append;
  ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
  ABSTable2.FieldByName('auto').Value := ABSTable1.FieldByName('auto').Value;
  ABSTable2.Post;
end;
if label1.Caption = '1' then
begin

  With Qr1 Do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update Table2 Set ID = '+ InttoStr(ABSTable1ID.Value) +' Where auto = '+ IntToStr(ABSTable1auto.Value) +'');
    ExecSQL;
    ABSTable2.Refresh;
  end;

end;

end;

procedure TForm1.ABSTable1BeforeDelete(DataSet: TDataSet);
begin
  With Qr1 Do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from table2 where auto = '+ inttostr(ABSTable1auto.Value) +'');
    ExecSQL;
    ABSTable2.Refresh;
  end;
end;

procedure TForm1.ABSTable1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
    if (E is EABSEngineError) then
    begin
      Showmessage('Error');
      Abort;
    end;

end;

Delphi4Us · 10-11-2020, 11:58 PM

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

كود :
drop table MyTable;
create table MyTable (ID AutoInc, val1 Integer, val2 string(10));
insert into MyTable (val1, val2) values (2,'Start');
start transaction;
insert into MyTable (val1, val2) values (4,'Rollback');
rollback;
start transaction;
insert into MyTable (val1, val2) values (5,'Commit');
commit;
select * from MyTable;

كود :
drop table MyTable;
create table MyTable (ID AutoInc, val1 Integer, val2 string(10));
insert into MyTable (val1, val2) values (2,'2');
insert into MyTable (val1, val2) values (4,'3');
start transaction;
insert into MyTable (val1, val2) values (5,'Flush1');
insert into MyTable (val1, val2) values (7,'Flush2');
commit flush;
select * from MyTable;

samnaj00 · 11-11-2020, 03:09 PM

(10-11-2020, 11:58 PM)Delphi4Us كتب : اما اذا كان الكود في في حدث زر يمكنه بعد عودة الكهرباء مثلا ان يكمل من حيث توقف او عندما يحدث خطاء مثل ادخال بيانات مكررة ان يعيد من حيث توقف لان كل شئ مرهون بنقرة زر .

جزاك الله كل خير استاذي الكريم على الاهتمام والمشاركة

الا يمكن اعتبار حدث AfterPost كنقرة زر؟

على كل حال جربت كود الشركة كما ذكرت ونجح في الادخال
اما التعديل وهو الذي كان مشكلة لذلك اتبعت طريقة ال 0 و 1 للتمييز بين الحفظ بعد الادخال او التعديل
فكيف يكون ذلك؟

Delphi4Us · 20-11-2020, 06:05 PM

إقتباس :اما التعديل وهو الذي كان مشكلة لذلك اتبعت طريقة ال 0 و 1 للتمييز بين الحفظ بعد الادخال او التعديل

فكيف يكون ذلك؟

حسب مراجعة شفرتك السابقة يمكنك ان تعرف اذا كنت بوضع الاضافة او التعديل كالتالي:

كود :
if ABSTable1.State in [dsEdit] then

او

كود :
if ABSTable1.State in [dsInsert] then

samnaj00

(20-11-2020, 06:05 PM)Delphi4Us كتب :
إقتباس :اما التعديل وهو الذي كان مشكلة لذلك اتبعت طريقة ال 0 و 1 للتمييز بين الحفظ بعد الادخال او التعديل

فكيف يكون ذلك؟
حسب مراجعة شفرتك السابقة يمكنك ان تعرف اذا كنت بوضع الاضافة او التعديل كالتالي:

كود :
if ABSTable1.State in [dsEdit] then
او

كود :
if ABSTable1.State in [dsInsert] then

المعذرة استاذي الكريم على التاخير في الرد
وضعت في حدث Afterpost للجدول الاول

كود :
  dbdemo2.StartTransaction;
if ABSTable1.State in [dsInsert] then
BEGIN
    try
    AbsTable2.Insert;
    ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
    AbsTable2.Post;
    dbdemo2.Commit(cbFlush.Checked);
    except
    dbdemo2.Rollback;
end;
end;

لكن ما هو الكود حال التعديل(في حال تغيير id من رقم 1 الى 11 مثلاً يجب تغيير id في الجدول الثاني ايضاَ من 1 الى 11 ) بدلالة اي شيئ؟؟

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة