delphi4arab منتديات دلفي للعرب
مشكلة information sur la colonne clé insuffisante pour la mise à jour - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة information sur la colonne clé insuffisante pour la mise à jour (/showthread.php?tid=6891)



مشكلة information sur la colonne clé insuffisante pour la mise à jour - ziad - 21-03-2015

سلام عليكم
لدي هذا المشكل عند التغيير في نفس الجدول مرتين دون الخروج من دلفي ... مع العلم استعمل delphi xe7 وقاعدة معطيات access 2007
كود :
http://www10.0zz0.com/2015/03/21/20/572250964.jpg



مشكلة information sur la colonne clé insuffisante pour la mise à jour - bassem_43 - 21-03-2015

وعليكم السلام
وضح اكثر اخي كي نستطيع مساعدتك
ضع على الاقل جزء من الكود للفهم اكثر


مشكلة information sur la colonne clé insuffisante pour la mise à jour - ziad - 21-03-2015

PHP كود :
procedure TForm8.Button1Click(Sender: TObject);
begin
ADOTable1
.Open;
ADOTable2.Open;
ADOTable2.Edit;
ADOTable1.First;
ADOTable2.First;

 if 
not ((adotable1.Locate('Num-permis',edit1.Text,[]))and (adotable2.Locate('Num-permis',edit1.Text,[]) )) then
 begin
 showmessage
(' حاول مع رقم اخر,الرقم غير موجود');
 
Edit1.Text := '';
 
DBEdit1.Text := '';
 
DBEdit2.Text := '';
 
DBEdit3.Text := '';
 
DBEdit4.Text := '';
 
DBEdit5.Text := '';
 
DBEdit6.Text := '';
 
DBEdit7.Text := '';
 
DBEdit8.Text := '';
 
DBEdit9.Text := '';
 
DBEdit10.Text := '';
 
DBEdit11.Text := '';
 
DBEdit12.Text := '';
 
DBEdit13.Text := '';
 
DBEdit14.Text := '';
 
DBEdit15.Text := '';
 
DBEdit16.Text := '';
 
DBEdit17.Text := '';
 
DBEdit18.Text := '';
 
end
 
else
 
begin

 end
;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
form2
.ADOConnection1.Connected := false;
form2.ADOConnection1.Connected := true;
adotable1.Active:= true;
adotable2.Active:= true;
form8.Close;
form4.Show;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
ADOTable2
.Post;
ADOTable1.Close;
ADOTable2.Close;
end;
end. 



مشكلة information sur la colonne clé insuffisante pour la mise à jour - bassem_43 - 22-03-2015

في الحدث TForm8.Button1Click لمذا تقوم بافراغ محتوى جميع DBEdit.Text عند البحث ؟؟
كدلك في الحدث TForm8.Button3Click لمادا لا تضعه في حدث الضغط button1 ؟