منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رسالة خطأ تظهر في البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رسالة خطأ تظهر في البرنامج (/showthread.php?tid=10653)



رسالة خطأ تظهر في البرنامج - aftfm - 11-11-14

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

رسالة خطأ تظهر بعد تحزيم البرنامج وبالتحديد بعد تشغيل التقرير ومن ثم اغلاقهة وفي بعد الحالات عند قراءة ملف نصي باستخدام الـ openFileDilug

الرسالة مفادها


PHP كود :
جرت محاولة القراءة من الذاكرة المحمية أو الكتابة اليهاويعد ذلك غالباً اشارة إلى أن الذاكرة الأخرى تالفة 

في الحالة الاولى :
عند التجربة من داخل البرنامج لا تظهر المشكلة إلا في حالة التشغيل من خلال مجلد الـ Debug او مجلد الـ Release
أو بعد تحزيم البرنامج
في الحالة الثانية : 
وهي قراءة ملف نصي تظهر عند التشغيل من داخل المشروع
ارجوا أن اكون قد وفقت في شرح المشكلة 


RE: رسالة خطأ تظهر في البرنامج - الوليد ☺ - 11-11-14


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

وجدت لك الموضوع [تم حل المشكلة]مشكلة مع الذاكرة والمعالج يا ريث الحل

والموضوع بيتكلم عن برنامج HijackThis.exe لإصلاح المشكلة




RE: رسالة خطأ تظهر في البرنامج - aftfm - 11-11-14

الف شكر على مساعدتك

لكن لا تزال المشكلة قائمة


RE: رسالة خطأ تظهر في البرنامج - aftfm - 11-11-14

قد يكون من كود الطباعة 

ممكن حد يشوف لنا الكود الخاص بالطباعة هل فيه خطأ


كود :
       Dim sql As String = " SELECT * FROM [tblComDel]  WHERE IDNumberR = '" & Me.lblIDNumberR.Text & "' AND ParCodeNum= '" & Me.cmbIDDevices.Text & "'"
       Dim da As New OleDbDataAdapter(sql, Con)
       Dim DataT1 As New DataTable
       DataT1.Clear()
       da.Fill(DataT1)
       If Me.BindingContext(DataT1).Count = 0 Then
           Exit Sub
       Else
           Dim rpt As New CRComDel
           rpt.SetDataSource(DataT1)
           Dim frmPrint As New frmPrint
           frmPrint.CrystalReportViewer1.ReportSource = rpt
           rpt.SetParameterValue(0, "سند إخراج")
           frmPrint.ShowDialog()
       End If