+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : PRint في SQL server أريد إظهارها في دالفي (/showthread.php?tid=7654)
PRint في SQL server أريد إظهارها في دالفي - merzoug2020 - 26-03-2016
السلام عليكم في SQL server عملت تريڨر فيه شرط إذا تحقق 'print 'passed و أريد إضهار تلك الكلمة passed في showmessage في دالفي وشكرا لكم
RE: PRint في SQL server أريد إظهارها في دالفي - PLANSHARP - 29-03-2016
يمكن فعل ذلك عن طريق حدث infomessage لعنصر الـ adoconnection:
كمايلي:
كود :
procedure TForm1.ADOConnection1InfoMessage
(Connection: TADOConnection; const Error: Error; var EventStatus: TEventStatus);
begin
Memo1.Lines.Add(Error.Description);
end;وإذا كان هناك أكثر من رسالة يمكن تعديل الكود السابق:
كود :
procedure TForm1.ADOConnection1InfoMessage
(Connection: TADOConnection; const Error: Error; var EventStatus: TEventStatus);
var i:integer;
begin
//Memo1.Lines.Add(Error.Description);
for i := 0 to AdoConnection1.Errors.Count - 1 do
begin
Memo1.Lines.Add(ADOConnection1.Errors.Item[i].Description);
end;
end;RE: PRint في SQL server أريد إظهارها في دالفي - merzoug2020 - 30-03-2016
ربي يحفظك أخي وشكرا لك
RE: PRint في SQL server أريد إظهارها في دالفي - merzoug2020 - 01-04-2016
أخي لكن هذا هوا الخطء 'The transaction ended in the trigger. The batch has been aborted.' الذي يخرج في دالفي وليسا الذي كتبته في SQL SERVER في PRINT
RE: PRint في SQL server أريد إظهارها في دالفي - PLANSHARP - 02-04-2016
قم بتنفيذ التريغر الخاص بك داخل Sql server و تأكد من أنه يعمل بشكل جيد ويخرج الرسالة الخاصة بك, لأنه لا علاقة لدلفي بهذه الرسالة.
و أيضاً تأكد من ضبط الخاصية CursorLocation للعنصر AdoConnection إلى clUseServer.
مع مراعاة إستخدام العنصر AdoCommand لتنفيذ إستعلامات التحديث و الحذف على الجداول, لأنها هي من تقدح الحدث infomessage.