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

Try
			Dim crtableLogoninfos As New TableLogOnInfos()
			Dim crtableLogoninfo As New TableLogOnInfo()
			Dim crConnectionInfo As New ConnectionInfo()
			Dim CrTables As Tables
			Dim CrTable As Table
			Dim crReportDocument As New G1()
			With crConnectionInfo
				.DatabaseName = Application.StartupPath & "\db.mdb"
			End With
			CrTables = crReportDocument.Database.Tables
			For Each CrTable In CrTables
				crtableLogoninfo = CrTable.LogOnInfo
				crtableLogoninfo.ConnectionInfo = crConnectionInfo
				CrTable.ApplyLogOnInfo(crtableLogoninfo)
			Next

			CRV.ReportSource = crReportDocument

		Catch ex As Exception
			MsgBox(ex.Message)
			Me.Cursor = Cursors.Default
		End Try

طيب يا اخوان اذا كان الاتصال بقاعدة بيانات SQL Server 2005؟

/index.php?showtopic=136915

الشكر الجزيل لك اخي Adel_N مع اني لم افهم الكود تماما :s لكنه يعمل 100% مع بعض التعديلات البسيطة

شكرا مرة اخرى وجزاك الله خيرا

عفواً أخي.

بسم الله الرحمن الرحيم

اجوا منك الاخ الكريم Adel_N ان تقوم بشرح الكود الذي وضعته في المشاركة للربط مع الكريستال ريبورت

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

ارجوا منك الافادة ولك جزيل الشكر والامتنان .. وأنا آسف على الاطالة

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

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

اقتباس

اجوا منك الاخ الكريم Adel_N ان تقوم بشرح الكود الذي وضعته في المشاركة للربط مع الكريستال ريبورت

حسناً هنا الشرح في هذه الصورة:

اقتباس

واين يوضع في الفورم

في نفس النموذج الذي يحوي أداة عارض التقارير CrystalReportViewer... أغلب الناس يضعه في الحدث Load كما سنفعل نحن.

أنا أفضل دائماً أن أنشأ نموذج مستقل لا يحتوي أي أدوات ما عدا أداة عارض التقارير.

في المثال المرفق تجد مثال كامل فيه نموذجين:

Form1 نموذج يحتوي على زر إذا ضغطت عليه يعرض النموذج الآخر Form2

Form2 يحتوي التقرير والكود الخاص به

ملاحطة: لاحظ أنه في أعلى النموذج Form2 الذي يحتوي التقرير قمنا بإضافة سطرين لاستيراد المكتبات البرمجية اللازمة، وإلاّ لن يعمل البرنامج..

السطرين كالتالي:

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

كما أنك لو تصفحت جميع الملفات المرفقة مع البرنامج ستجد الملف db.mdb في نفس الدليل الذي يعمل منه البرنامج، وهو محمي بكلمة سرية.

Example01.zip

بسم الله الرحمن الرحيم

جزاك الله خير الجزاء اخي الكريم Adel_N وبارك الله فيك على الشرح المميز والمفيد

وجعله الله في ميزان حسناتك ومن العلم الذي ينتفع به ولا ينقطع ثوابه الى يوم القيامة

قال رسول الله صلى الله عليه وسلم " إذا مات ابن آدم انقطع عمله إلا من ثلاث صدقة جارية أو علم ينتفع به أو ولد صالح يدعو له " حديث صحيح - ارواء الغليل للالباني

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

آمين يا رب..

جزاك الله خير.

أخوك