منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] مشكلة في إظهار التقرير مرة اخرى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+---- قسم : قسم اسئلة التقارير والطباعة للغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=73)
+---- الموضوع : [vb6.0] مشكلة في إظهار التقرير مرة اخرى (/showthread.php?tid=107)

مشكلة في إظهار التقرير مرة اخرى - eng.bassel - 16-09-13

السلام عليكم

ارجو مساعدتي في هذه المشكلة
لدي تطبيق متصل بقاعدة بيانات اكسس عن طريق Data
وصممت تقرير Data Report عن طريق Data Environment
ويظهر التقرير عند الضغط على زر الطباعة بشكل سليم و لكن المشكلة هي انه عند الضغط مرة اخرى على زر طباعة يظهر الخطأ التالي:
Run-time error 3705: this operation is not allowed when the object is open
أعتقد ان الرسالة تقول انه لايمكن إعادة الاتصال بقاعدة البيانات لانه قمنا بالاتصال في المرة الاولى
لذلك قمت بكتابة كود لإغلاق الاتصال و لكن ظهرت الرسالة التالية:
Run-time error 3709: The connection cannot be used to perform this operation. It's either closed or invalid in this context

وهنا اعتقد انا الرسالة تعني انه لايمكن الاتصال بقاعدة البيانات لان الاتصال مغلق او غير صالح

وهذا الكود: 
كود :
DataEnvironment1.Connection1.ConnectionString = App.Path + "\db1.mdb"
DataEnvironment1.rsCommand1.Open "select in_pay,in_pay_date,typein,std_nm from inmoney order by typein"
DataReport1.Show

وهذا كود الاغلاق الذي وضعته:
كود :
If DataEnvironment1.rsCommand1.State = adStateOpen Then
  DataEnvironment1.rsCommand1.Close
End If

If DataEnvironment1.Connection1.State = adStateOpen Then
   DataEnvironment1.Connection1.Close
End If
MsgBox "Closed!"

أرجو المساعدة و لكم جزيل الشكر...

RE: مشكلة في إظهار التقرير مرة اخرى - تركي الحلواني - 21-09-13

والله يالغالي لو ترفق مشروعك ليتم التعديل علية

RE: مشكلة في إظهار التقرير مرة اخرى - eng.bassel - 21-09-13

أخي الكريم هذا المشروع بالمرفقات

جرب تشغله و تدوس زر طباعة... ثم اغلق التقرير و دوس زر طباعة مرة اخرى و شوف المشكلة

RE: مشكلة في إظهار التقرير مرة اخرى - تركي الحلواني - 23-09-13

تفضل أخي التعديل Big Grin

RE: مشكلة في إظهار التقرير مرة اخرى - eng.bassel - 23-09-13

Blush شكرا لك اخي تركي الحلواني Smile