إستدعاء إجراء مخزن من SQL Server الى الدلفي عن مكونات ADO و نخص بذلك المكون الموجود في الحزمة
وهو ADOStoredProc
حيث يحتوي على البرامترات الموجودة في الإجراء المخزن عند ربط المكون مع SQL Server بإسم
الإجراء المخزن مما يسمح لنا فقط ببرمجة الأكواد الخاصة المكونات المتعلقة بالعمليات على قاعدة البيانات
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.ProcedureName:= 'inser_Auteur;1';
ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters.ParamByName('@Num_Auteur').Value := Edit1.Text;
ADOStoredProc1.Parameters.ParamByName('@Pren_Auteur').Value := Edit2.Text;
ADOStoredProc1.Parameters.ParamByName('@nom_Auteur').Value := Edit3.Text;
ADOStoredProc1.Parameters.ParamByName('@Anné_Ecrit').Value := Edit4.Text;
ADOStoredProc1.Parameters.ParamByName('@Num_Invent').Value := Edit5.Text;
ADOStoredProc1.ExecProc;
showmessage ('تمت الإضافة بنجاح');
end;
end.
للحصول على النتيجة التالية
و العملية مصورة في هذا الفيديو
-----------------------------------------------
------------------------------------------------
قد يعجبك ايضا