سؤال عن ربط texopject في تقرير كريستال ب textbox في فورم ... في فيجوال بيسك 2005

السلام عليكم

راجع هذا الرابط بالتوفيق إن شاء الله.

جزاك ربي الجنة أخي ... اطلعت على الرد اكثر من مره .. لكن لم استطع تطبيقه

لكن الآن وصلت للحل بارك الله فيك

عندي سؤال آخر ان تكرمت .. واعتذر إن تماديت في الأسئلة

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

علماً بأني ربطت التقرير عن طريق المعالج ( ويزورد ) ..

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

ودمتم بود

السلام عليكم

بالنسبة لقاعدة البيانات اكسس Access database

 Dim myReport As New crSell
		' Declare variables used to set the proper database connection information.
		Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
		Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
		'This code is optional if the connection information is set in the 
		'.rpt file itself.
		For Each tbCurrent In myReport.Database.Tables
			tliCurrent = tbCurrent.LogOnInfo
			With tliCurrent.ConnectionInfo
				.ServerName = ""
				.DatabaseName = Application.StartupPath & "\Mydata.mdb"
			End With
			tbCurrent.ApplyLogOnInfo(tliCurrent)
		Next tbCurrent

بالنسبةِ لقاعدة البيانات سكول SQL database

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

 ' Assign Report Connection
			For Each tbC In rptMonthlyCrims.Database.Tables
				tli = tbC.LogOnInfo
				With tli.ConnectionInfo
					.ServerName = MyServerName
					.DatabaseName = "mySqlDatabase"
				End With
				tbC.ApplyLogOnInfo(tli)

Next tbC

بالنسبةِ للربط بالـ Dataset Object

Try
			EmpAdapter.Fill(dataSet, "Orders")
			oRpt.SetDataSource(dataSet)
			CrystalReportViewer1.ReportSource = oRpt
		Catch ex As Exception
			System.Windows.Forms.MessageBox.Show(ex.Message)
		End Try

رابط لمعرفة كيفية ربط التقرير عند التصميم بالعنصر Dataset

و السلام.

اخي المشكلة لازالت موجود

عذراً على الازعاج ..

لكن تم التطبيق بالأمس بنجاح

لكن اليوم عادة المشكلة .. بصراحة تعبت مع الكريستال

بارك الله فيك .. واحتسب الأجر في المعاونة .. ( فالبرنامج المراد التطبيق عليه خاص بحلقات تحفيظ )

هذا مثال لك حاولت تطبيق ما ذكرته لكنه لم يعمل

دمت بخير

WindowsApplication1.rar

السلام عليكم الكود صحيح إلا أنك لم تضع اسم المستضيف

 .ServerName = ""

لا أكثر.

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

			CrystalReportViewer1.ReportSource = rptArea

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try