كيف يمكن ان نخزن ونحدف و عن طريق SQl ؟

أولاُ ادخال

with ADOQuery1 do
     begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO employee');
      SQL.Add('( IDNo,IDName,IDDate)');
      SQL.Add(' Values (:T1,:T2,:T3)');
      Prepared;
      Parameters.ParamByName('T1').Value := Edit1.Text;
      Parameters.ParamByName('T2').Value := Edit2.Text;
      Parameters.ParamByName('T3').Value := Edit3.Text;
      ExecSQL

تانياُ تعديل

with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE employee');
    SQL.Add(' SET ');
    SQL.Add('IDNo = :T1, IDName = :T2,Tel =:P3,IDDate');
    SQL.Add(' WHERE IDNo = '+Edit1.Text);
    Prepared;
    Parameters.ParamByName('T1').Value := Edit1.Text;
    Parameters.ParamByName('T2').Value := Edit2.Text;
    Parameters.ParamByName('T3').Value := Edit3.Text;
    ExecSQL
 end;

ثالثا الحدف

with ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Add('DELETE FROM employee WHERE IDNo = :T1');
  Prepared;
  Parameters.ParamByName('T1').Value := Edit1.Text;
  ExecSQL
End;

--------------------

ارجو ان يكون هذا المطلوب :rolleyes:

السلام عليكم

مشكور اخي سيف الدين

لكن الاحظ في اكواد الدلفي تقسيم الأمر على عدة سطور ؟

SQL.Add('UPDATE employee');
   SQL.Add(' SET ');
   SQL.Add('IDNo = :T1, IDName = :T2,Tel =:P3,IDDate');
   SQL.Add(' WHERE IDNo = '+Edit1.Text);

لِمَ ذلك ؟ هل الشخص مجبر على التقسيم ؟ لأني اريد أن أضعها في سطر واحد ؟

شكرا لكم جميعا

لا لست مجبرا على هذا التقسيم

بامكانك وضعها في سطر واحد هكذا

SQL.Add('UPDATE employee   SET IDNo = :T1, IDName = :T2,Tel =:P3  WHERE IDNo = '+Edit1.Text);

السطر في المنتدى لا يسمح بفعل ذلك

عموما التقسيم للوضوح والسهولة

تسلم

بارك الله الله فيك سيف الدين 2

و شكرا لكم جميعا

السلام عليكم

يمكن استخدام ADOCommand بدل من AdoQuery

السلام عليكم

اخوتي الاعزاء هل من الممكن الشرح يكون ( الكود + الإعدادات الخاصة لكل أداة ) :)

اخ سيف

لو تكرمت بين لي سبب عدم حفظ البيانات في الكود التالي

with ADOQuery1 do
    begin
     Close;
     SQL.Clear;
     SQL.Add('INSERT INTO names');
     SQL.Add('( Name,phone)');
     SQL.Add(' Values (:T2,:T3)');
     Prepared;
     Parameters.ParamByName('T2').Value := Edit2.Text;
     Parameters.ParamByName('T3').Value := Edit3.Text;
     ExecSQL
end;

وماذا يقصد بـT1 هل هو متغير يرمز لمربع نص ؟

ويا ليت لو تصحح لي الكود التالي

with ADOQuery1 do
    begin
     Close;
     SQL.Clear;
     SQL.Add('INSERT INTO names (name,phone) values (:'+edit2.Text+',:'+edit3.Text+')');
      open;
     end;

في هذا المثال في التصحيح للكود... :rolleyes:

SQl.rar

اخ سيف مشكور على جهدك لكن لحد الان لم اصل الى ما اريد

بالنسبة لحقل ID وضعته ترقيم تلقائي فلم يعمل الكود

فيا ليت تعدل بالبرنامج وترفقه هنا ولك خالص الشكر

UP

يا سرعها راحت للصفحة الثانية

ترقيم تلقائي مع جدول أم ماذا ؟

إذا كنت تستخدم table من أجل الاستعراض , ((أو query ومحدد عبارة sql سلفا))

وكطريقة عامه وقياسية يمكنك اتباع الآتي :

أولا من access حدد أن الحقل الطولب من النوع Autonumber ثم

أنقر مرتين على عنصر الtable سيظهر لك نافذة صغيرة "محرر حقول"

أنقر بالأيمن واختر add all fields" ستظهر لك حقول الجدول , أختر منها الحقل ذا الترقفيم التلقائي

من ضابط الكائنات ستجد الخا صية Auto Generate Value إضبطها إلى AutoInc

جرب الآن

مشكور انحلت المشكلة :)

ممكن شرح طريقه الادخال فى قواعد

INTERBASE

تعليم InterBase

انظر هذا قد يفيدك