ربط الكريستال ريبورت مع سيرفر بعيد

لقد وجدت الحل للسؤال السابق وهو كالتالي

وشكرا لكم

Option Explicit
Public crApp As New CRAXDDRT.Application
Public crRep As CRAXDDRT.Report
Public dbTable As CRAXDDRT.DatabaseTable
Public strSelect As String

Private Sub Form_Load()
	strSelect = "select * from table"
	viewReport strSelect, App.Path & "\report1.rpt"
End Sub

Private Sub Form_Resize()
	CRViewer1.Width = ScaleWidth
	CRViewer1.Height = ScaleHeight
End Sub

Function viewReport(ByVal strSql As String, ByVal strReportFile As String)
	Set crRep = New CRAXDDRT.Report
	Set crApp = CreateObject("crystalruntime.application")
	Set crRep = crApp.OpenReport(strReportFile)

	For Each dbTable In crRep.Database.Tables
		dbTable.SetLogOnInfo "192.168.0.75", "DB", "User_Name", "Password"
	Next

	crRep.SQLQueryString = strSql
	Form1.CRViewer1.ReportSource = crRep
	Form1.CRViewer1.viewReport

	Set crRep = Nothing
	Set crApp = Nothing
End Function