arsalansalar
چهارشنبه 15 دی 1389, 18:53 عصر
با سلام
من یک نرم افزاری با بانک اکسس نوشته بودم.
الان رکورداش نزدیک 80 هزار تا هست.برای همین زمانی که جستجو می کند خیلی طول میکشه.
من از کد زیر استفاده می کنم.کسی راهکاری داره که این زمان و کمتر کنم؟
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
con.Open()
Dim da As New OleDbDataAdapter("select rdate as 'روز',mdate as 'ماه',sdate as 'سال',textm as 'مطلب',id as 'شماره مطلب',title as 'عنوان',onvan as 'منبع',gro as 'گروه',npic as 'شخصیت' from telephon where rdate = '" + jro.Text + "' and mdate = '" + jma.Text + "' and sdate = '" + jsa.Text + "'", con)
Dim ds As New DataSet
da.Fill(ds, "telephon")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "telephon"
DataGrid1.Visible = True
MessageBox.Show(ds.Tables(0).Rows.Count.ToString + " مورد یافت شد")
من یک نرم افزاری با بانک اکسس نوشته بودم.
الان رکورداش نزدیک 80 هزار تا هست.برای همین زمانی که جستجو می کند خیلی طول میکشه.
من از کد زیر استفاده می کنم.کسی راهکاری داره که این زمان و کمتر کنم؟
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
con.Open()
Dim da As New OleDbDataAdapter("select rdate as 'روز',mdate as 'ماه',sdate as 'سال',textm as 'مطلب',id as 'شماره مطلب',title as 'عنوان',onvan as 'منبع',gro as 'گروه',npic as 'شخصیت' from telephon where rdate = '" + jro.Text + "' and mdate = '" + jma.Text + "' and sdate = '" + jsa.Text + "'", con)
Dim ds As New DataSet
da.Fill(ds, "telephon")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "telephon"
DataGrid1.Visible = True
MessageBox.Show(ds.Tables(0).Rows.Count.ToString + " مورد یافت شد")