امروز کد اتصال کریستال ریپورت 10 با ویژوال بیسک رو باریتان گذاشتم

< Dim strRecordsFormula As String <br>Private Sub Command1_Click() <br>crview.SearchForText (Text1.Text) <br>End Sub <br>Private Sub Form_Load() <br>Dim CRReport As CRAXDRT.Report <br>Dim CRApp As New CRAXDRT.Application <br>Set CRReport = CRApp.OpenReport(App.Path & "\RptFilename") <br>CRReport.database.Tables(Tableindex).Location = App.Path & "\DbFilename" <br>With crview <br>.ReportSource = CRReport <br>.ViewReport <br>While .IsBusy <br>DoEvents <br>Wend <br>.Visible = False <br>.Refresh <br>End With <br>Set CRApp = Nothing <br>Set CRReport = Nothing <br>End Sub <br>Private Sub Form_Resize() <br>crview.Height = Me.ScaleHeight - 100 <br>crview.Width = Me.ScaleWidth <br>End Sub

بجای RptFilename نامه گزارش کریستال ریپورت را بنویسید بجای tableindex شماره جدول موجود در بانک اطلاعاتی را بنویسید بجای Dbfilename نام بانک اطلاعاتی را بنویسید و از منوی componets گزینه Crystal viewer را پدا کرده و انتخاب کنید و از منوی ابزار آن را با نام Crview در فرم قرار دهید

دانلود کد بصورت فایل Text

نمونه ی پروژه را از با کلیک بر اینجا می توانید دریافت کنید

توجه: برای استفاده از این پروژه و این کدها نرم افزار کریستال ریپورت 10 حتما باید نصب باشد