alinux031
چهارشنبه 24 مهر 1392, 17:38 عصر
سلام من یک کریستال ریپورت را به دیتا ست متصل کردم و در فرم کد زیر را نوشتم
Imports System.Data.SqlClient
Public Class varede_report
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
Dim rpt As New CrystalReport1
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New rt_DataSet
Try
myconnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\khatam.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
mycommand.Connection = myconnection
mycommand.CommandText = "select * from letter1"
mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "letter1")
rpt.SetDataSource(myds)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception
'MessageBox.Show(Excep.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
اما در هنگام اجرا ارور زیر را می دهد مشکل از کجاست؟
111939
Imports System.Data.SqlClient
Public Class varede_report
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
Dim rpt As New CrystalReport1
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New rt_DataSet
Try
myconnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\khatam.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
mycommand.Connection = myconnection
mycommand.CommandText = "select * from letter1"
mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "letter1")
rpt.SetDataSource(myds)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception
'MessageBox.Show(Excep.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
اما در هنگام اجرا ارور زیر را می دهد مشکل از کجاست؟
111939