منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود (/showthread.php?tid=17451)



ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود - ياسر عبد الكريم - 25-09-16

[attachment=11801][attachment=11802]
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني عندي ملف قاعدة بيانات من نوع mdb  وبها جدول للمنتجات وهي محمية بكلمة مرور والمشكلة أني لم استطيع ربط هذا الملف المحمي عن طريق الكود .
استطيع ربطه وهوا غير محمي ارجو منكم المساعدة في تعديل المشروع المرفق مع هذا الموضوع كي استطيع ربط ملف قاعدة البيانات المحمي بكرستال ريبورت عن طريق الكود.
حيث أني املك الاصدار Crystal Report 8.5 من البرنامج
يوجد مع المرفقات ملفان ملف باسم CrystalReports 8 وهو الملف الي يحوي المشروع المراد تعديلة . كلمة مرور قاعدة البيانات هي (123).

اما الملف الأخر باسم CrystalReports 10 ويحتوي على مثال نقلتة من احد المواقع به بعض الامثلة لربط قواعد البيانت على CrystalReports 10 عند طريق الكود عدة طرق لربط قواعد البيانات ولاكن المكتبات لم تعمل على  Crystal Report 8.5 .
ارجوا منكم إن استطعتوا تعديل المثال كي يعمل على الاصدار Crystal Report 8.5 .
من ناحية ربط المكتبات وتعريف الكائنات على الاصدار 8.5

ولكم مني جزيل الشكر


RE: ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود - Ahmed_Mansoor - 26-09-16

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

إستبدل كود حدث الـ Form_Load للفورم2 بهذا الكود :

PHP كود :
On Error Resume Next
Call Form_Resize
Dim ReportFile 
As String
ReportFile 
App.Path "\DATA1\2016\ASNAF1.rpt"
Set m_Report m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).SetLogOnInfo "p2sodbc.dll""ASNAF.mdb""Admin""123"
m_Report.Database.Tables(1).Location App.Path "\data1\2016\ASNAF.mdb"
CRViewer1.ReportSource m_Report
CRViewer1
.ViewReport
Screen
.MousePointer vbDefault
CRViewer1
.Zoom 1 
[/php]

ماتم إضافته هو هذا السطر :

PHP كود :
m_Report.Database.Tables(1).SetLogOnInfo "p2sodbc.dll""ASNAF.mdb""Admin""123" 



RE: ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود - ياسر عبد الكريم - 26-09-16

(26-09-16, 01:01 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته


ماتم إضافته هو هذا السطر :

PHP كود :
m_Report.Database.Tables(1).SetLogOnInfo "p2sodbc.dll""ASNAF.mdb""Admin""123" 

شكراً  أخي هذا حل المشكلة جزاك الله الف خير

Heart Heart Heart Heart Blush Blush
الله يبارك فيك أخي أحمد