مشكلة في الفيجوال مع الكريستال

Up

Still need help

أنا لا أعلم ما الطريقة المستخدمه في عرض التقرير لكي تظهر هذه النافذة أن كانت اداة CrView او بالكود فأنا استخدم تقارير الكريستال ريبورت الاصدار 9 و بشكل التالية

[1] بعد عملية الاتصال بقاعدة البيانات بشكل التالي

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=HnHn; Data Source=MyDB.mdb"
Set rs.ActiveConnection = cn

[2]ثم اقوم بتعريف متغير من نوع تقرير الكريستال

[3] ثم ابني استعلام واسنده إلى الاداة بشكل التالي

Dim Report As New CrystalReport1
Dim SQL$
SQL = "SELECT * FROM Tablel1 where name ='" + Text1 + "'"
Set rs = cn.Execute(SQL)
Report.Database.SetDataSource rs	 'HnHn : اسناد عملية الاتصال والاستعلام إلى المتغير
Screen.MousePointer = vbHourglass
CRViewer.ReportSource = Report		   'HnHn : عملية الاتصال بالتقرير  بأسناد المتغير له
CRViewer.Zoom 70						 'HnHn : الزوم الخاص بالتقرير اثناء العرض
CRViewer.ViewReport					  'HnHn : عرض التقرير

-_- طبعا لابد ان نرسم الاداة الخاصة بالتقارير على الفورم .واعتقد أن هذه الطريقة ستنجح مع SQL Server لأنه بنفس الطريقة والاختلاف سيكون في عملية الاتصال وانا اعلم بانك تعرفه جيدا ولكن للمعلوميه سيكون هكذا

	Dim strcn As String
	strcn = "driver=sql server; server=(local); database=Test; trusted_connection=yes"
	cn.Open strcn

هذا ما احببت ان اشارك به للمساعده على أمل ان اكون قد اقدتك فلو كنت منصب الاصدار العاشر من التقارير لكنت ارفقت لك مثال يوضح لك ذلك فلك مني العذر ....

انظر

مشكلة عند عرض تقرير أساسي و فرعي

كل ماتريده موجود هنا فقط

/index.php?showtopic=105517

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

شكرا يا اخواني على الردودكم واهتمامكم

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

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

ولذلك فهو يأخذ بيانات الاتصال بالسيرفر من خلال الـ Connection Object ولذلك تم حل المشكلة بعد ان جعلت مصدر التقرير من الـ RS والذي بدوره يتصل بالسيرفر من خلال الـ Connection Object المفتوح عندي

شكرا وبالتوفيق لكم جميعا

==================

الى اللقاء