تقرير الكريستال ريبورت لا يستطيع تحديد مسار قاعدة البيانات

مغلق

بدأه محمد فؤاد تركي في 6 أبريل 2007 · 24 رد · 10,891 مشاهدة · في تصميم وبرمجة التقارير

مشاركة: واتساب X فيسبوك تيليجرام

#16 أبريل 2007 في 02:26 صاحب الموضوع

أخواني الافاضل

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

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

المشكلة هي عبارة عن الاتي . . .

طبعاً أولاً : - أنا هتكلم عن برنامج فيجوال بيسك دوت نت الاصدار 2005 بروفيشنال

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

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

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

وهذه هي الاكواد التي استعنت بها في حدث تحميل النموذج الذي يحوي تقرير CrystalReportViewer1 كالتالي

Private Sub Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			Me.OleDbConnection1.ConnectionString = _
			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
						  Application.StartupPath & "\Swiss.mdb;Jet OLEDB:Database Password=261177;"



			Dim tbCArea As CrystalDecisions.CrystalReports.Engine.Table
			Dim tliArea As CrystalDecisions.Shared.TableLogOnInfo
			Dim rptArea As New Crpt_All
			For Each tbCArea In rptArea.Database.Tables
				tliArea = tbCArea.LogOnInfo
				With tliArea.ConnectionInfo
					.DatabaseName = Application.StartupPath & "\Swiss.mdb"
					.Password = "261177"
				End With
				tbCArea.ApplyLogOnInfo(tliArea)
			Next tbCArea

			CrystalReportViewer1.ReportSource = rptArea
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

وأيضا لم تفلح هذه المحاوله

لذلك أردت أن أرفق لكم مثال لكي تدلوني علي الخطأ علما بأن التقرير طبعا شغال تمام التمام وانا علي برنامج الدوت نت لكن عندما يتم تحزيم البرنامج تظهر المشكلة

شكراً لكم

Setup.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 7 يوليو 2009 في 10:47

#26 أبريل 2007 في 02:30

ملحوظة

قبل هذه التجربه جربت عمل Dataset ويكون التقرير مصدر Dataset واستعنت أيضا بهذا الكود المطروح من أحد الاعضاء ولكن جميع محاولاتي بآت بالفشل

وهذا هو الكود

Dim rpt As New Crpt_All
		'rpt.SetDataSource(Ddata)
		'CrystalReportViewer1.ReportSource = rpt
		'CrystalReportViewer1.RefreshReport()

#36 أبريل 2007 في 13:57

جربت جميع الحلول لكن الرساله دائما تظهر في جميع الحالات

وهو أن التقرير بيطلب ID و Password

أعتقد المشكلة في تعذر وصول البرنامج أو التقرير لمسار الداتا بيز بعد عمليه التحزيم

منتظر افادتكم

#46 أبريل 2007 في 16:45

بعد محاولات ومحاولات توصلت لهذا الكود ووضعته في حدث تحميل النموذج الذي يحمل التقرير ولكن ما زالت المشكله قائمة

Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "\\swiss.mdb;"

#56 أبريل 2007 في 16:53

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

error(8).JPG

#66 أبريل 2007 في 18:00

نفس المشكلة قائمة عندي ولكن على قاعدة SQL Server

ارجو الافادة

#77 أبريل 2007 في 13:19

هذه مو مشكلة بس الاخ محمد فؤاد للاسف الداتا بيس عنده لا تفتح يبدو انها مش أكسيس يمكن شئ اخر.

والحل يكمن في استخدام TableLogOnInfo

http://www.google.com/search?hl=en&q=T...OnInfo++vb.net+

#87 أبريل 2007 في 13:30

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

http://www.codeproject.com/vb/net/CrystalR...ts_in_VBNET.asp

بالتوفيق

#98 أبريل 2007 في 10:09

أخي الغالي Moon

لا والله الداتا بيز عندي أكسس والباص وورد الخاص بها هو 261177 وأشكرك علي الروابط المقترحة من سيادتك لكن لو عدلت علي المثال يكون أفضل حتي أستفيد

شكراً لك

مرفق الملف مرة أخري بعد إظهار الجدول داخل قاعدة البيانات لكي تسطيع التعامل معها

#108 أبريل 2007 في 10:11

مرفق الملف

Setup.rar

#118 أبريل 2007 في 22:16

عزيزي محمد

Pass_Db_log_info_to_a_CReport_.txt

[ CISCO + IT + VB.NET ]

#129 أبريل 2007 في 14:35

أخي الغالي فيبولتن

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

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

شكراً لك

مرفق المثال

Setup.rar

#139 أبريل 2007 في 16:10

عزيزي

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

[ CISCO + IT + VB.NET ]

#149 أبريل 2007 في 17:23

هل تقصد أن يصبح الكود بهذه الطريقة

 Dim crtableLogoninfos As New CrystalDecisions.Shared.TableLogOnInfo()
			Dim crtableLogoninfo As New CrystalDecisions.Shared.TableLogOnInfo()
			Dim crConnectionInfo As New CrystalDecisions.Shared.TableLogOnInfo()

واذا كان الكود بهذه الطريقة فلا يزال أيضا أخطأ

مثل هذا الكود الموضح في الصورة

أخي الغالي لماذا لا تعدل علي المثال مباشرة أو تشرح لي بشيء من التفصيل عما يجب عمله بالضبط لان الموضوع ده جديد بعض الشيء عليا

شكرا لك

#159 أبريل 2007 في 20:53

لازم تزبطه وراح يزبط انا واجهتني نفس المشكلة

#1610 أبريل 2007 في 13:02

الاخ الغالي فيبولتن

الله يعطيك ألف عافية علي الكود الرائع خلاص المشكلة اتحلت . . . من خلال هذا الكود الذي يوضع في حدث تحميل الفورم

Try
			Me.OleDbConnection1.ConnectionString = _
			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
			Application.StartupPath & "\Swiss.mdb;Jet OLEDB:Database Password=261177;"
			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 Crpt_All()
			With crConnectionInfo
				.DatabaseName = Application.StartupPath & "\Swiss.mdb"
				.Password = "261177"
			End With
			CrTables = crReportDocument.Database.Tables
			For Each CrTable In CrTables
				crtableLogoninfo = CrTable.LogOnInfo
				crtableLogoninfo.ConnectionInfo = crConnectionInfo
				CrTable.ApplyLogOnInfo(crtableLogoninfo)
			Next
			CrystalReportViewer1.ReportSource = crReportDocument
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

وقبل الــ Class في بدايه شاشة الكود يتم اضافة هذه الجملة

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

بكده الكود يشتغل تمام التمام و اتحلت مشكله التقرير ....

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

عن طريق الكود وتضمين التقرير ضمن حزمة السيت آب . . .

#1710 أبريل 2007 في 15:44

الف مبروك اخي محمد فؤاد تركي

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

حيث ان القاعدة SQLserver

وتظهر هذه النافذة

فما المشكلة

#1810 أبريل 2007 في 17:24

أعتقد ان هيبقي في اختلاف في الكود بسيط يخص قاعدة البيانات SQL عموما أنا شايف الاخ فيبولتن معانا دلوقتي في المشاركة وان شاء الله يكون في ايديه الحل بأذن الله أهو نستفاد في طريقة الربط بين الاكسس والــ SQL

ربنا معاك

وجزاك الله خيرا يا أخ فيبولتن

#1917 أبريل 2007 في 15:58

بالنسبة لل SQL

	   Dim MTLIS As New CrystalDecisions.Shared.TableLogOnInfos
		Dim MTLI As New CrystalDecisions.Shared.TableLogOnInfo
		Dim MCI As New CrystalDecisions.Shared.ConnectionInfo
		Dim MPFS As New CrystalDecisions.Shared.ParameterFields

		With MCI
			.ServerName = SQLServerName
			.DatabaseName = DatabaseName
			.UserID = "sa"
			.Password = ""
		End With
		MTLI.ConnectionInfo = MCI
		   MTLIS.Add(MTLI)
		Report.LogOnInfo = MTLIS

اقتباس
How to get experience without a job, and how to get a job without experience

#2017 أبريل 2007 في 17:30

بعتلك الحل على الميل

#2117 أبريل 2007 في 20:19

الله يبارك فيك يا أخي الغلي حمزة ويعطيك ألف عافية

شكرا لكل من شارك في هذه المشاركة الفعاله

#2218 أبريل 2007 في 12:21

شكراً أخي حمزة ويعطيك العافية

ولكم جميعاً

#2316 مايو 2007 في 08:06

مشكورين ياجماعة .. بجرب الحل عندي ...........

تم تعديل هذه المشاركة بواسطة goaway في 16 مايو 2007 في 08:37

#2416 مايو 2007 في 08:08

والله مسألة vb.net و crystal report معقدة شوي بالربط مع بعضها .., ومستغرب من التعقيد الموجود بينهم!!!!!!!!!!!!

#2523 مايو 2007 في 20:02

Report.LogOnInfo = MTLIS اخي حمزه بالنسبه لهذا الكود ويش تقصد

المتغير من نوع report هل تقصد

reportdocument

ارجوا التوضيح

Dim MTLIS As New CrystalDecisions.Shared.TableLogOnInfos

Dim MTLI As New CrystalDecisions.Shared.TableLogOnInfo

Dim MCI As New CrystalDecisions.Shared.ConnectionInfo

Dim MPFS As New CrystalDecisions.Shared.ParameterFields

With MCI

.ServerName = SQLServerName

.DatabaseName = DatabaseName

.UserID = "sa"

.Password = ""

End With

MTLI.ConnectionInfo = MCI

MTLIS.Add(MTLI)

Report.LogOnInfo = MTLIS

هذا الموضوع مغلق.

مواضيع مشابهة

كيف أظهر بيانات 3 حقول في قاعدة البيانات في حقل واحد في تقرير بالكريستال ريبورت1 رد · 1 مارس 2010
سؤال كيفية عمل تقرير باستخدام الفيجوال بيسيك 2005 والكريستال ريبورت 10 وقاعدة بيانات Sqlserver20055 رد · 17 ديسمبر 2009
جعل تقرير الكريستال ريبورت بالعرض3 رد · 2 أبريل 2006
كيف استخدم الإجراءات المخزنة في طباعة تقرير كريستال ريبورت1 رد · 28 ديسمبر 2014
هل يمكن تحويل تقرير الأكسيس إلى كريستال ريبورت5 رد · 11 مايو 2009
كيف يتم انشاء تقرير الكريستال ريبورت في run time1 رد · 26 مارس 2006