majidsoft
پنج شنبه 05 آذر 1388, 00:17 صبح
با سلام
من از اين كد براي جستجو در بانكم استفاده مي كنم ولي زماني كه داده ها زياد مي شه هنگام تايپ كردن يه مقداري برنامه كند مي شود يعني وقتي من شروع به تايپ مي كنم زماني بين تايپ كردن گرفته مي شود
[CODE]Private Sub txtfilter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfilter.TextChanged
'Dim ds As New DataSet : Dim len As Integer = txtfilter.Text.Length
'Dim cnn As SqlConnection = Fn_Get_SqlConnection()
'Dim cmd As SqlDataAdapter = New SqlDataAdapter("SELECT * from moshtarak Where " & filter_val & " like '" & txtfilter.Text.Trim & "%'", cnn)
'cmd.Fill(ds, "moshtarak_tbl") : dgv.DataSource = ds.Tables("moshtarak_tbl")
'dgv.Columns(0).HeaderText = "شماره اشتراک" : dgv.Columns(1).HeaderText = "نام"
'dgv.Columns(2).HeaderText = "نام خانوادگی" : dgv.Columns(3).HeaderText = "آدرس"
'dgv.Columns(4).HeaderText = "منطقه" : dgv.Columns(5).HeaderText = "تلفن"
End Sub/CODE]
با تشكر
من از اين كد براي جستجو در بانكم استفاده مي كنم ولي زماني كه داده ها زياد مي شه هنگام تايپ كردن يه مقداري برنامه كند مي شود يعني وقتي من شروع به تايپ مي كنم زماني بين تايپ كردن گرفته مي شود
[CODE]Private Sub txtfilter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfilter.TextChanged
'Dim ds As New DataSet : Dim len As Integer = txtfilter.Text.Length
'Dim cnn As SqlConnection = Fn_Get_SqlConnection()
'Dim cmd As SqlDataAdapter = New SqlDataAdapter("SELECT * from moshtarak Where " & filter_val & " like '" & txtfilter.Text.Trim & "%'", cnn)
'cmd.Fill(ds, "moshtarak_tbl") : dgv.DataSource = ds.Tables("moshtarak_tbl")
'dgv.Columns(0).HeaderText = "شماره اشتراک" : dgv.Columns(1).HeaderText = "نام"
'dgv.Columns(2).HeaderText = "نام خانوادگی" : dgv.Columns(3).HeaderText = "آدرس"
'dgv.Columns(4).HeaderText = "منطقه" : dgv.Columns(5).HeaderText = "تلفن"
End Sub/CODE]
با تشكر