farshad
سه شنبه 06 مرداد 1388, 17:40 عصر
با سلام
برنامه ای را باvb.net2008 و crystalreport 2008 نوشته ام هنگامیکه از طریق یک client با نام user4 از طریق برنامه میخواهم به سرور وصل بشوم هنگام اتصال به سرور زمان زیادی طول می کشد تا ارتباط وصل شود در حالیکه برنامه دیگری که از همون کلاینت وصل می شود بسرعت اتصال وصل می شود برای سریع شدن ارتباط چه با ید کرد؟ همین کندی را هم وقتی می خواهم یک گزارش بگیرم اتفاق می افتد .لطفا راه حلی برای این 2 مشکل بفرماییید ممنون می شوم
connection string :
Network Library=dbmssocn;Network Address=192.168.0.1;Integrated security=SSPI;Initial Catalog=BHesab;Connection Timeout=20;user id=user4;password=2
کد برای گزارش :
st = Application.StartupPath & "\Report\CrPardakht.rpt"
cmdstr = "Select * from VwSanad where " & cmdstr
Dim da As New SqlClient.SqlDataAdapter(cmdstr, cnstr)
برای نمایش گزارش با سرعت بالا چه باید کرد؟
Dim dt As New DataTable
da.Fill(dt)
dim cr as New ReportDocumentدر این خط خیلی مکس می کند
cr.SetDatabaseLogon("user4","2", "192.168.0.1", "bhesab")
cr.SetDataSource(dt)ر این خط خیلی مکس می کند
cr.Load(st)
Dim f As New frmReport
f.CrystalReportViewer1.ReportSource = cr
برنامه ای را باvb.net2008 و crystalreport 2008 نوشته ام هنگامیکه از طریق یک client با نام user4 از طریق برنامه میخواهم به سرور وصل بشوم هنگام اتصال به سرور زمان زیادی طول می کشد تا ارتباط وصل شود در حالیکه برنامه دیگری که از همون کلاینت وصل می شود بسرعت اتصال وصل می شود برای سریع شدن ارتباط چه با ید کرد؟ همین کندی را هم وقتی می خواهم یک گزارش بگیرم اتفاق می افتد .لطفا راه حلی برای این 2 مشکل بفرماییید ممنون می شوم
connection string :
Network Library=dbmssocn;Network Address=192.168.0.1;Integrated security=SSPI;Initial Catalog=BHesab;Connection Timeout=20;user id=user4;password=2
کد برای گزارش :
st = Application.StartupPath & "\Report\CrPardakht.rpt"
cmdstr = "Select * from VwSanad where " & cmdstr
Dim da As New SqlClient.SqlDataAdapter(cmdstr, cnstr)
برای نمایش گزارش با سرعت بالا چه باید کرد؟
Dim dt As New DataTable
da.Fill(dt)
dim cr as New ReportDocumentدر این خط خیلی مکس می کند
cr.SetDatabaseLogon("user4","2", "192.168.0.1", "bhesab")
cr.SetDataSource(dt)ر این خط خیلی مکس می کند
cr.Load(st)
Dim f As New frmReport
f.CrystalReportViewer1.ReportSource = cr