Parameter 'P1' not found

مغلق

بدأه المتميز في 24 يوليو 2005 · 7 رد · 622 مشاهدة · في لغة Delphi

#124 يوليو 2005 في 20:36 صاحب الموضوع

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

استخدمت ADOQuery للتعامل مع قاعدة البيانات وأثناء عملية الإدخال يظهر لي رسالة

ADOQuery1: Parameter 'P1' not found

وهذا الكود المستخدم

procedure TFrmMain.Button3Click(Sender: TObject);
begin



    with ADOQuery1 do
     begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO names');
      SQL.Add('(name,phone)');
      SQL.Add('Values');
      SQL.Add('(:P1,:P2)');
      Prepared;
      Parameters.ParamByName('P1').Value := Edit2.Text;
      Parameters.ParamByName('P2').Value := Edit3.Text;

      ExecSQL
    end;

end;
end.

#225 يوليو 2005 في 03:33

السلام عليكم ،،،

الكود لا توجد به أخطاء .

بعض الاسماء لا تسمح لك قواعد بيانات أكسيس بإستخدامها .

فالخطأ هنا انك استخدمت اسم للجدول محجوز في قواعد بيانات أكسيس وهو names . غيره الى أي اسم ، وسيعمل معك الكود بإذن اللـــــه تعالــــى .

وفقك اللـــــه .

ثانوية خالد بن الوليد

#325 يوليو 2005 في 07:26

إضافة إلى كلام الاخ أبومحمد احتمال كون الخطأ من

SQL.Add('(:P1,:P2)');

اخوكم

When You Started With Delphi ...You Could Not Stop!

alharmoodiGropu.com

#425 يوليو 2005 في 07:26

ماذا تقصد بها!!!؟؟

When You Started With Delphi ...You Could Not Stop!

alharmoodiGropu.com

#525 يوليو 2005 في 07:58

السلام عليكم ،،،

اقتباس
ماذا تقصد بها!!!؟؟

لا أعلم موجهه لي أم للمتميز

عموما يصبح الكود بهذا الشكل

procedure TFrmMain.Button3Click(Sender: TObject);
begin



   with ADOQuery1 do
    begin
     Close;
     SQL.Clear;
     SQL.Add('INSERT INTO name_phone);
     SQL.Add('(name,phone)');
     SQL.Add('Values');
     SQL.Add('(:P1,:P2)');
     Prepared;
     Parameters.ParamByName('P1').Value := Edit2.Text;
     Parameters.ParamByName('P2').Value := Edit3.Text;

     ExecSQL
   end;

end;
end.

ويغير اسم الجدول في قواعد البيانات الى هذا الاسم name_phone

سيعمل معه الكود بإذن الله .

ثانوية خالد بن الوليد