crystalreport 10 + vb6 + sqlserver200 كيف نقوم بفتح تقرير مع توفير معلومات الدخول في بيئة الفيجوال بيسيك

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

الحمد لله رب العالمين تم التوصل الى الحل المناسب

وحتى لا نعقد المسألة سنبدأ من الصفر كما هو موضح في الدرس الخامس من دورة الكريستال ريبورت

أولا قم بتصميم التقرير المناسب بواسطة برنامج الكريستال ريبورت الاصدار رقم 10 وطبعا من المفترض ان يكون مصدر البيانات هو احد الجداول او الفيوز في قاعدة بيانات سكيول سيرفر وتاكد بان التقرير يعمل بدون مشاكل واحفظ هذا التقرير وليكن باسم report1.rpt

ثانيا افتح مشروع جديد في الفيجوال باسيك الاصدار ويفضل الاصدار السادس

وكل ما نحتاجه هو نافذة واحدة فقط form1

ولا تنسى ان تحفظ المشروع في نفس الدليل المحفوظ عليه التقرير او العكس

ثالثا سنقوم باضافة المكتبات اللازمة لتشغيل الكريستال ريبورت

من القائمة بروجكت اختر ريفرنس واضف المكتبة التالية

crystal report activex designer design and run time library 10.0

ثم من القائمة بروجكت اختر كومبوننت واضف المكتبة التالية

crystal activex viewer library 10.0

ستظهر اداة جديدة في قائمة الادوات هي الاداة report viewer

رابعا : اضف الاداة اعلاه الى الفورم وليكن اسمها crviewer1

والان في كود التحميل للفورم كل ما عليك هو لصق الكود التالي

وطبعا لا تنسى ان تغير البيانات الخاصة باسم المستخدم وكلمة مروره واسم قاعدة البيانات واسم السيرفر واسم السيرفس

Private Sub Form_Load()

Dim m_application As New CRAXDDRT.Application
Dim m_report As New CRAXDDRT.Report

Dim connectstring1 As String
Dim service1 As String
Dim server1 As String
Dim dbname1 As String
Dim user1 As String
Dim pass1 As String
Dim reportfile1 As String

' very important
' you must inter correct connection settings
reportfile1 = App.Path & "\report1.rpt"  ' the name of pre_designed crystal report which exists in the same path of your application
user1 = "user name"		  ' must have a valied login to your database in sql server
pass1 = "user password"			' the user password
service1 = "sql service name"		 ' you can get the service name from sql server service manager
server1 = "sql server name"   ' you can get the server name from sql server service manager
dbname1 = "database name"  ' the name of your database project in sql server 2000

' this is my connecting string  to the database
' it differ according to sql server 2000 settings
connectstring1 = connectstring1 & "Driver=" & service1 & ";"
connectstring1 = connectstring1 & "Server=" & server1 & ";"
connectstring1 = connectstring1 & "Database=" & dbname1 & ";"
connectstring1 = connectstring1 & "Uid=" & user1 & ";"
connectstring1 = connectstring1 & "Pwd=" & pass1 & ";"

Set m_report = m_application.OpenReport(reportfile1)
m_report.Database.Tables(1).ConnectBufferString = connectstring1

' set the viewr final properties
crviewer1.Top = 0
crviewer1.Left = 0
crviewer1.Height = Me.Height
crviewer1.Width = Me.Width
crviewer1.Zoom 1
crviewer1.ReportSource = m_report
crviewer1.Refresh
crviewer1.ViewReport


End Sub

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

طبعا انا اختصرت الموضوع فقط حتى تصل الفكرة العامة

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

Dim m_application As New CRAXDDRT.Application

Dim m_report As New CRAXDDRT.Report

الى التعريف التالية

Dim m_application As New CRAXDRT.Application

Dim m_report As New CRAXDRT.Report

والتوفيق من الله عز وجل اولا واخيرا فبفضله هيئ لنا هذا المنتدى الرائع بمشرفيه واعضاءه

وبارك الله فيكم جميعا

الاخ خطــــــــــــــــــاب المعذرة على التدخل المتأخر

ولكن ماهو المطلوب فقط اختلفت على الفكره الاوله مشكله والثانية ماذا هل هي حل اما ماذا

إذا كانت مشكلة الاتصال بقاعدة الاس كيول سيرفر موجوده فارجو ابلاغي على الخاص وسوف اقوم بعمل المساعدة

ومعذرة لم أرى الموضوع إلا اليوم فقلت صعب يترك بدون رد ولو جبر خاطر