PDA

View Full Version : گزارش گیری با vb.net



mehdi_522
دوشنبه 18 شهریور 1387, 10:39 صبح
با سلام
اقا من میخواهم با select کردن از دیتا بیس بصورت کد نویسی از طریق sqlreader اطلاعات به کریستال ریپورت انتقال دهم اما نمی دانم که باید در کریستال ریپورت فیلد text ایجاد کنم یا فیلد ÷پارامتر بعد چطوری کورد ها تکرار میشوند اگر امکان یک سورس برای گزارش گیری از طریق کد نویسی برای من ارسال نماید

MORTEZA66
دوشنبه 18 شهریور 1387, 11:06 صبح
اول از همه دو تا متغير زير رو براي كار با ديتاست و دستورات SQL تعريف كنيد و يه كم مقدار دهي كنيد

DIM dap1 As New SqlClient.SqlDataAdapter
DIM dset1 As New DataSet
dap1.SelectCommand = New SqlClient.SqlCommand
dap1.SelectCommand.Connection = con ‘Connection name


يك شي يا هر چي از نوع گزارشتون تعريف مي كنيد


Dim rpt As New kolRpt
بعد براي اينكه موقع نمايش گزارش كادر User و Pass نياد خط زير رو كه فكر مي كنم همش واضح باشه مي نويسيد


rpt.DataSourceConnections.Item(0).SetConnection(se rver, database, username, pass)
بعد دستور SQL رو مي سازيد


sqltext = "select name,family,fathername from main_tlb Where id=1"
بعد متغيرهايي كه در ابتدا براي كار با ديتاست و دستورات SQL ساختيد رو به صورت زير مقدار دهي مي كنيد


dset1.Dispose()
dset1 = New DataSet
dap1.SelectCommand.CommandText = sqltext
dset1.Clear()
dap1.Fill(dset1, "main_tlb")
rpt.SetDataSource(dset1)

بعد هم RPT رو كه در واقع يك گزارش است به هر گزارشي كه دلتون مي خواد براي ديدن پيش نمايش نسبت مي ديد


frm.viewrep1.ReportSource = rpt
frm.Show()

MORTEZA66
دوشنبه 18 شهریور 1387, 11:18 صبح
فايل هاي آموزشي زيادي در اين زيمنه وجود داره اگه خواستيد بگيد تا براتون بزارم ويا مي تونيد توي سايت جستجو كنيد

saman_itc
دوشنبه 18 شهریور 1387, 12:15 عصر
من یه جستجو نوشتم که همه جا جواب میده اما تو کریستال ریپورت مشکل دارهو تعدادشون کم و زیاد با رکورد های تکراری میزنه