كيف أحصل على اسم قاعدة البيانات المتصل معها بالكريستال

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Dim strSql As String = "SELECT * FROM Customers" & _
		" WHERE CustomerID = 'ALFKI'"

		Dim cnn1 As New OleDbConnection(My.Settings.cnn)
		Dim cmd As New OleDbCommand(strSql, cnn1)
		Dim Adapter As New OleDbDataAdapter
		Dim rpt As New Report1
		Me.Ds.EnforceConstraints = False

		'Get database table & column name.
		Dim ReptxDBInfo As TextObject

		ReptxDBInfo = rpt.ReportDefinition.ReportObjects("ReptxDBInfo")

		Dim dbinfo As String = " Database name: " & _
		System.IO.Path.GetFileNameWithoutExtension( _
		rpt.DataSourceConnections.Item(0).DatabaseName.ToString)

		'dbName &= "Database name: " & _
		'System.IO.Path.GetFileNameWithoutExtension( _
		'rpt.Database.Tables("Customers").LogOnInfo.ConnectionInfo.DatabaseName.ToString) 

		dbinfo &= "Table name: " & rpt.Database.Tables(0).Name.ToString

		dbinfo &= "Column name: " & rpt.Database.Tables(0).Fields(0).Name.ToString

		ReptxDBInfo.Text = dbinfo

		With Adapter
			.SelectCommand = cmd
			.Fill(Me.Ds.Customers)
		End With


		With rpt
			.SetDataSource(Ds)
			CRV.ReportSource = rpt
		End With

	End Sub

End Class

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

اخي الحبيب هذا كود فيجوال بيسك وواضح أنه يجب كتابته داخل الفيجوال ستوديو :)

لكن ما أردته بارك الله فيك هو كيفية عمل Formula بداخل الكريستال ريبورت وليس بداخل الفيجوال .الله يحفظك.

السلام عليكم

هذه طريقةٌ اخرى , ولكن ليست الافضل ,

نقوم بجلب الـ Stored Procedures وهو sp_databases وهو ضمن sys شاهد الصورة.

ثم نقوم بالتالي في التقرير.

ربما هذا الحل أقرب للطلب من الحل الاول.

السلام عليكم.