مشكلة في اتصال الكريستال ريبورت

بشكل عام الريبورت يأخذ بياناته من داتا سيت حدث الداتا سيت من مصدر البيانات الجديد وأعد تشغيل الريبورت

- إذا لم ينفع أرفق مثالا عما تفعله حتى نستطيع مساعدتك بشكل أفضل -

انا عندى نفس المشكله

انا بأستخدم كريستال 10 مع دوت نت 2005

على فكره انا عندى نفس المشكله

بعد ما عملت التقارير حبيت اجعلها تعمل على اى مسار

فقمت بنقل البرنامج وتعديل مسار التقارير حتى تعمل على اى مسار

ففوجئت بها عند تشغيلها ان هناك نافذه تظهر لى

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

علماً بأننى لم اعمل كلمة مرور للداتا بيز

ارجو الرد

شكراً

السلام عليكم

هذا السؤال متكرر أكثر من 4 مرات..

إليك الطريقة وهي كالتالي:

عرف اولاً هذين المتغيرين, مع تعريف التقرير.

' Declare variables used to set the proper database connection information.
			Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
			Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo

			' Create a report document instance to hold the report.
			Dim rptGeneralInfro As New EProfile

ثم قم بهذه الحلقة التي ستدور حول كل الجداول و تقوم بربطها بالمسار الصحيح.

 For Each tbCurrent In rptGeneralInfro.Database.Tables
				tliCurrent = tbCurrent.LogOnInfo
				With tliCurrent.ConnectionInfo
					.ServerName = ""
					.DatabaseName = Application.StartupPath & "\police.mdb"
				End With
				tbCurrent.ApplyLogOnInfo(tliCurrent)
			Next tbCurrent

بالتوفيق إن شاء الله.

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

الاخ الفاضل الغملاسي ارجوا المساعدة

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

لم افهم منها شيئا وذلك لعد ذكر المكان الذي يوضع فيه الكود " الحدث الذي يوضع فيه الكود " وايضا عدم ذكر مالذي الذي تعنيه المتغرات المذكورة

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

ولك مني فائق الشكر والاحترام

اخوك في الله alfotusy

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

انا في انتظار الرد الاخ الغملاسي او من لديه العلم

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

ما زلت في الانتظار

ارجوا المساعدة

إليك مثال مرفق يوضح الكود الذي في الاعلى , بالتوفيق إن شاء الله.

CrystalReportAccessDatabaseBindingConnection.rar

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

الاخ الغملاسي لك جزيل الشكر على الاسجابة لسؤالي ولكن

لقد بائت كل محاولاتي بالفشل

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

اخي الكريم في المثال الذي قمت انت بوضعه في المرفقات استخدمت الادوات للربط مع قاعدة البيانات وانشاء الـ DataSet والـ DtatAdapter

للاسف انا لا اعرف استخدام هذه الادوات ولكن استخدم الكود فقط للربط والاضافة ...الخ

ايضا ارجوا منك ان توضح لي ما تعنيه هذه المتغيرات

----------------------------------------------------------------------

Dim crtableLogoninfos As New TableLogOnInfos()

Dim crtableLogoninfo As New TableLogOnInfo()

Dim crConnectionInfo As New ConnectionInfo()

Dim CrTables As Tables

Dim CrTable As Table

---------------------------------------------------------------------

ايضا ماذا تعني

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

ارجوا منك المساعدة ولك جزيل الشكر والامتنان

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

Test_2.rar

السلام عليكم

فقط المشكلة كانت في شقين الاول

أن الربط الاول مع قاعدة البيانات كان عبر مستضيف صفحات الانترنت ربما الـ IIS أو مزود الـيونكس Appache

وكان يتوجه لذلك المكان مباشرتاً بغض النظر عن وجود الكود المزود لقيم الاتصال من عدمه. وبما أنه ليست هنالك صلاحية لهذا العمل , كون

جهازي ليس بهِ أصلاً ذلك المسار , فبلا شك أنه سيظهر رسالة تحديد مسار قاعدة البيانات.

الحل هو تغيير مسار المصدر

الشق الثاني: هو يجب استخدام الخاصية ServerName و تزودها بالقيمة "" حتى و إن كان هذا تحصيل حاصل.

لان التقرير إذا لم يتعرف على قيمة هذه الخاصية سيقوم بإظهار صندوق تحديد المسار.

الحل هو عبر الكود التالي:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
'---------------------------------
Public Class Form2

	Private Sub Form2_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load
		Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
		Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
		Dim rpt As New CrystalReport1

		For Each tbCurrent In rpt.Database.Tables
			tliCurrent = tbCurrent.LogOnInfo
			With tliCurrent.ConnectionInfo
				.ServerName = ""
				.DatabaseName = Application.StartupPath & "\Test.mdb"
			End With
			tbCurrent.ApplyLogOnInfo(tliCurrent)
		Next tbCurrent

		CRV.ReportSource = rpt

	End Sub
End Class

و بالله التوفيق.

Test_2.rar

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

الاخ الفاضل الغملاسي جزاك الله عني خير الجزاء ولك الشكر على المساعدة القيمة

اخي الكريم لازلت انتظرمنك بعض الاجابات على استفساراتي ولك جزيل الشكر

اقتباس

ايضا ارجوا منك ان توضح لي ما تعنيه هذه المتغيرات

----------------------------------------------------------------------

Dim crtableLogoninfos As New TableLogOnInfos()

Dim crtableLogoninfo As New TableLogOnInfo()

Dim crConnectionInfo As New ConnectionInfo()

Dim CrTables As Tables

Dim CrTable As Table

---------------------------------------------------------------------

ايضا ماذا تعني

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

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

لازىت في الانتظار ولك جزيل الشكر

:)