خطا در گزارش

[hesamamir]

من این کد ها رو برای چاپ در کریستال نوشتم ولی از اون جاهایی که ستاره گذاشتم خطا می گیره


Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim adpp As New SqlDataAdapter
Dim ds As New KashefDataSet

cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\BSJ-Kashef\Prog\BSJ_Kashef\KASHEF\Kashef.mdf;Integrate d Security=True;Connect Timeout=30;User Instance=True"
cmd.Connection = cn
cmd.CommandType = CommandType.Text

cn.Open()

cmd.CommandText = ("select * from factory_kdb")
adpp.SelectCommand = cmd
adpp.Fill(ds, "*kashef")

Dim rp As New CrystalReport1
rp.SetDataSource(ds)

Me.CrystalReportViewer1.ReportSource = rp

* Me.ShowDialog()
cn.Close()
نیاز به راهنمایی دارم
البته موقع نوشتن کد ها خطا نمیگیره ولی موقع اجرا خطا میده

[damanpak]

من این کد ها رو برای چاپ در کریستال نوشتم ولی از اون جاهایی که ستاره گذاشتم خطا می گیره

[VB][LEFT] Dim cn As New SqlConnection
Dim cmd As New SqlCommand.....
نیاز به راهنمایی دارم
البته موقع نوشتن کد ها خطا نمیگیره ولی موقع اجرا خطا میده

سلام،دوست اولا تا زمانی که فرمی که این کدها رو داخلش نوشتی باز نشه(load)این دستورات اجرا نمیشن
دوما زمانی Load بشه و به عبازتی که مشخص کرده اید برسه خطا میده میگه فرم شما بازه دوباره نمیشه بازش کرد
پس عبارتی که مشخص کرده اید رو از داخل کدها پاک کنید

[hesamamir]

متشکر درست شد
ولی نکته اینجاست که باز هیچی نشون نمیده یعنی صفحه خالی
در صورتی که بانک اطلاعات درش ثبت شده

[damanpak]

متشکر درست شد
ولی نکته اینجاست که باز هیچی نشون نمیده یعنی صفحه خالی
در صورتی که بانک اطلاعات درش ثبت شده

شما کدی که نوشتی رو توی یک روال قرار بده و اسم روال رو مثلا بزار myprocedure
بعدش توی فرم لود روال رو فراخوانی کن